Свойство Document.ProgID (Visio)

Статья
04/07/2023

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

Синтаксис

expression. Progid

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

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

Строка

Замечания

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

Используйте свойство ProgID объекта Shape или OLEObject , чтобы получить программный идентификатор объекта. Каждый класс объектов OLE хранит программный идентификатор для себя в реестре. Обычно это происходит, когда программа, которая обслуживает объект, устанавливается самостоятельно. Клиентские программы используют этот идентификатор для идентификации объекта. Идентификатор Microsoft Visio используется при выполнении инструкции , например GetObject ("Visio.Application") из программы Microsoft Visual Basic.

Это строки, которые может возвращать свойство ProgID :

 
Visio.Drawing.5 
MSGraph.Chart.5 
Forms.CommandButton.1

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

Пример

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

 
Public Sub ProgID_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 OLEObjects collection. 
 For intCounter = 1 To vsoOLEObjects.Count 
 Debug.Print vsoOLEObjects(intCounter).ProgID 
 Next intCounter 
 
End Sub

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

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

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