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

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

Синтаксис

выражение. ОЛЕОблекты

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

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

OLEObjects

Примечания

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

Пример

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