In diesem Beispiel wird eine Liste der Verknüpfungstypen für die OLE-Objekte in Sheet1 erstellt. Diese Liste wird in einem neuen Tabellenblatt angezeigt, das das Makro zuvor erstellt hat.
Set newSheet = Worksheets.Add i = 2 newSheet.Range("A1").Value = "Name" newSheet.Range("B1").Value = "Link Type" For Each obj In Worksheets("Sheet1").OLEObjects newSheet.Cells(i, 1).Value = obj.Name If obj.OLEType = xlOLELink Then newSheet.Cells(i, 2) = "Linked" Else newSheet.Cells(i, 2) = "Embedded" End If i = i + 1 Next