expression.IconLabel
expression Required. An expression that returns an OleFormat object.
Example
This example changes the text below the icon for the first shape in the selection.
Dim olefTemp As OLEFormat
If Selection.ShapeRange.Count >= 1 Then
Set olefTemp = Selection.ShapeRange(1).OLEFormat
With olefTemp
.DisplayAsIcon = True
.IconLabel = "My Icon"
End With
End If