共用方式為

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