Sub Test() Dim s As Shape Dim str As String For Each s In ActivePage.Shapes If s.Type = cdrBitmapShape Then If s.Bitmap.ExternallyLinked Then str = str & s.Bitmap.LinkFileName & vbCrLf End If Next s MsgBox "The external file names are:" & vbCrLf & str End Sub