Document.OLEObjects property (Visio)

回傳文件的 OLEObjects 集合。 唯讀。

語法

表情。OLEObjects

詞 一個代表 文件 物件的變數。

傳回值

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 支援與意見反應。