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

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

Синтаксис

выражение. ProgID

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

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

String

Примечания

Свойство 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 и обратная связь.