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