Anmerkung
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
Gibt die OLEObjects-Auflistung eines Zeichenblatts zurück. Schreibgeschützt.
Syntax
Ausdruck. OLEObjects
Ausdruck Eine Variable, die ein Page-Objekt darstellt.
Rückgabewert
OLEObjects
Hinweise
Die OLEObjects-Eigenschaft gibt eine OLEObjects-Auflistung zurück, die in einem Dokument, Master-Shape oder Zeichenblatt enthaltene verknüpfte oder eingebettete OLE 2.0-Objekte oder ActiveX-Steuerelemente einschließt.
Beispiel
Dieses VBA-Makro (Microsoft Visual Basic für Applikationen) veranschaulicht, wie Sie die OLEObjects-Auflistung eines aktiven Zeichenblatts abrufen und die Eigenschaften ClassID und ProgID für jedes OLEObject-Objekt im benachbarten Fenster anzeigen. Das Beispiel setzt voraus, dass das aktive Zeichenblatt mindestens ein eingebettetes oder verknüpftes OLE 2.0-Objekt oder ein ActiveX-Steuerelement enthält.
Public Sub OLEObjects_Example()
Dim intCounter As Integer
Dim vsoOLEObjects As Visio.OLEObjects
'Get the OLEObjects collection of the active page.
Set vsoOLEObjects = ActivePage.OLEObjects
'Step through the collection of OLEObjects on the page.
For intCounter = 1 To vsoOLEObjects.Count
Debug.Print vsoOLEObjects(intCounter).ClassID
Debug.Print vsoOLEObjects(intCounter).ProgID
Next intCounter
End Sub
Support und Feedback
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.