VBA-Programmierung in Microsoft Excel

VBA-Begriff: Beispiel zur OLEObjects-Methode

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