SourceFullName Property

expression.SourceFullName

expression    Required. An expression that returns one of the objects in the Applies To list.

Example

This example displays the path and file name of the source file for all embedded OLE shapes on the first page of the active publication.

Sub DisplaySourceName()
    Dim shp As Shape
    For Each shp In ActiveDocument.Pages(1).Shapes
        If shp.Type = pbEmbeddedOLEObject Then
            With shp.LinkFormat
                MsgBox .SourceFullName
            End With
        End If
    Next
End Sub