IconName Property

expression.IconName

expression    Required. An expression that returns an OleFormat object.

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.

Dim olefTemp As OLEFormat

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