IconLabel Property Example

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

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