Page.OLEObjects-Eigenschaft (Visio)

Gibt die OLEObjects-Auflistung eines Zeichenblatts zurück. Schreibgeschützt.

Syntax

Ausdruck. OLEObjects

Ausdruck Eine Variable, die ein Page-Objekt darstellt.

Rückgabewert

OLEObjects

HinwBemerkungeneise

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.