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