Page.OLEObjects 属性 (Visio)

返回页面的 OLEObjects 集合。 此为只读属性。

语法

expression。 OLEObjects

表达 一个代表 Page 对象的变量。

返回值

OLEObjects

备注

OLEObjects 属性返回一个 OLEObjects 集合，该集合包括文档、主控形状或页面中包含的任何 OLE 2.0 链接或嵌入对象或者 ActiveX 控件。

示例

以下 Microsoft Visual Basic for Applications (VBA) 宏显示如何获取活动页的 OLEObjects 集合并在“立即”窗口中打印每个 OLEObject 对象的 ClassID 和 ProgID。 本示例假设活动页至少包含一个 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。