IconLabel Property

Microsoft Word Visual Basic

expression.IconLabel

expression    Required. An expression that returns an OleFormat object.

Example

This example changes the text below the icon for the first shape in the selection.

Dim olefTemp As OLEFormat

If Selection.ShapeRange.Count >= 1 Then
    Set olefTemp = Selection.ShapeRange(1).OLEFormat
    With olefTemp
        .DisplayAsIcon = True
        .IconLabel = "My Icon"
    End With
End If