OLEObject.ClassID-Eigenschaft (Visio)

Gibt die Klassen-ID-Zeichenfolge eines Shapes zurück, die ein ActiveX-Steuerelement oder ein eingebettetes oder verknüpftes OLE-Objekt darstellt. Schreibgeschützt.

Syntax

Ausdruck. ClassID

Ausdruck Eine Variable, die ein OLEObject-Objekt darstellt.

Rückgabewert

Zeichenfolge

Hinweise

Die ClassID-Eigenschaft löst eine Ausnahme aus, falls der Shape kein ActiveX-Steuerelement oder eingebettetes oder verknüpftes Objekt von OLE 2.0 darstellt. Ein Shape stellt ein ActiveX-Steuerelement oder eingebettetes oder verknüpftes Objekt von OLE 2.0 dar, wenn das visTypeIsOLE2-Bit (&H8000) auf den Wert festgelegt ist, der von Shape. ForeignType.

ClassID gibt eine Zeichenfolge folgender Form zurück:

{2287DC42-B167-11CE-88E9-002AFDDD917}

Dies identifiziert die Anwendung, die das Objekt bedient. Möglicherweise wird ein eingebettetes Objekt auf einem Microsoft Visio-Zeichenblatt als Microsoft Excel-Objekt identifiziert.

Nach dem Verwenden einer Object-Eigenschaft zum Erhalten eines Automatisierungsschnittstelle für das Objekt, das vom Shape dargestellt wird, sollten Sie eine der Eigenschaften ClassID oder ProgID erhalten, um die von der Schnittstelle zur Verfügung gestellten Methoden und Eigenschaften zu bestimmen.

Beispiel

Das folgende Makro von VBA (Microsoft Visual Basic für Applikationen) veranschaulicht, wie die OLEObjects-Auflistung eines aktiven Zeichenblatts abgerufen wird, und zeigt die ClassID für jedes OLEObject-Objekt im Direktfenster an. 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 ClassID_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 
 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.