Свойство OLEObject.ClassID (Visio)

Статья
04/07/2023

Возвращает строку идентификатора класса фигуры, представляющей элемент ActiveX или внедренный или связанный объект OLE. Только для чтения.

Синтаксис

выражение. ClassID

Выражение Переменная, представляющая объект OLEObject .

Возвращаемое значение

String

Замечания

Свойство ClassID создает исключение, если фигура не представляет элемент ActiveX или внедренный или связанный объект OLE 2.0. Фигура представляет элемент управления ActiveX или внедренный или связанный объект OLE 2.0, если бит visTypeIsOLE2 (&H8000) задан в значении, возвращаемом Shape. ForeignType.

ClassID возвращает строку в форме:

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

Это идентифицирует приложение, которое обслуживает объект . Например, он может идентифицировать внедренный объект на странице Microsoft Visio как объект Microsoft Excel.

После использования свойства Object фигуры для получения интерфейса автоматизации для объекта, который представляет фигура, может потребоваться получить свойство ClassID или ProgID фигуры, чтобы определить методы и свойства, предоставляемые интерфейсом.

Пример

В следующем макросе Microsoft Visual Basic для приложений (VBA) показано, как получить коллекцию OLEObjects активной страницы и распечатать ClassID для каждого объекта OLEObject в окне Интерпретация. В этом примере предполагается, что активная страница содержит по крайней мере один внедренный или связанный объект OLE 2.0 или элемент ActiveX.

 
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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через