IconLabel 属性

该属性返回或设置 OLE 对象的图标下面显示的文字。String 类型，可读写。

expression   必需。该表达式返回一个 OleFormat 对象。

示例

本示例更改所选内容中第一个图形的图标下面的文字。

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