In diesem Beispiel wird eine Liste der OLE- und DDE-Verknüpfungen in der aktiven Arbeitsmappe angezeigt. Wenden Sie das Makro auf eine Arbeitsmappe an, die mindestens ein verknüpftes Microsoft Word-Objekt enthält.
aLinks = ActiveWorkbook.LinkSources(xlOLELinks) If Not IsEmpty(aLinks) Then For i = 1 To UBound(aLinks) MsgBox "Link " & i & ":" & Chr(13) & aLinks(i) Next i End If