IconName Property Example

This example changes the first shape in the selection to be displayed as an icon and sets the text below the icon to the icon's file name.

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