IconPath 属性

该属性返回存储 OLE 对象的图标的文件路径。String 类型，只读。

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

示例

本示例显示每个嵌入式 OLE 对象的路径，这些 OLE 对象在活动文档中显示为图标。

Dim shapeLoop As Shape

For Each shapeLoop In ActiveDocument.Shapes
    If shapeLoop.Type = msoEmbeddedOLEObject Then
        If shapeLoop.OLEFormat.DisplayAsIcon = True Then _
            Msgbox shapeLoop.OLEFormat.IconPath
    End If
Next shapeLoop