You're getting misleading information there. You want to look at:
ActiveWindow.Selection.ShapeRange(1).Type
instead. You'll find it's 11, msoLinkedPicture
And this gives you the path to the linked picture:
With ActiveWindow.Selection.ShapeRange(1)
Debug.Print .LinkFormat.SourceFullName
End With