SourcePath Property Example

This example returns the path and name of the source file for any shapes on the active document that are linked OLE objects.

For Each s In ActiveDocument.Shapes
    If s.Type = msoLinkedOLEObject Then
        Msgbox s.LinkFormat.SourcePath & "\" _
            & s.LinkFormat.SourceName
    End If
Next s