IconPath Property

Returns the path of the file in which the icon for an OLE object is stored. Read-only String.

expression   Required. An expression that returns an OleFormat object.

Example

This example displays the path for each embedded OLE object that's displayed as an icon on the active document.

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