montrerLiens

Cette macro affiche les liens sources de toutes les images liées

 

Sub montrerLiens()
  Dim doc As Word.Document
  Dim oILShp As InlineShape
  Dim leSourceFullName
  Dim Res As String
  Res = ""
   For Each oILShp In ActiveDocument.InlineShapes
   If (Not oILShp.LinkFormat Is Nothing) Then
          leSourceFullName = oILShp.LinkFormat.SourceFullName
          Res = Res & leSourceFullName & vbCrLf
   End If  'If (Not oILShp.LinkFormat Is Nothing)

  Next 'oILShp
   MsgBox Res
End Sub