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