IconPath Property

expression.IconPath

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