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

Статья
04/07/2023

Возвращает коллекцию OLEObjects документа. Только для чтения.

Синтаксис

expression. OLEObjects

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

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

OLEObjects

Замечания

Свойство OLEObjects возвращает коллекцию OLEObjects , которая включает все связанные или внедренные объекты OLE 2.0 или элементы ActiveX, содержащиеся в документе, главном элементе или странице.

Пример

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

 
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

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

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

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