IconPath Property Example

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

For each s in ActiveDocument.Shapes
    If s.Type = msoEmbeddedOLEObject Then 
        If s.OLEFormat.DisplayAsIcon = True Then _
            Msgbox s.OLEFormat.IconPath
    End If
Next s