Document.OLEObjects プロパティ (Visio)

図面の OLEObjects コレクションを返します。 読み取り専用です。

構文

OLEObjects

Document オブジェクトを表す変数。

戻り値

OLEObjects

注釈

OLEObjects プロパティは、OLE 2.0 のリンク オブジェクトや埋め込みオブジェクト、または図面、マスター シェイプ、ページ内にある ActiveX コントロールを含む OLEObjects コレクションを返します。

この VBA (Microsoft Visual Basic for Applications) マクロは、アクティブなページの OLEObjects コレクションを取得して、各 OLEObject オブジェクトの ClassID および ProgID をイミディエイト ウィンドウに出力する方法を示します。 この例は、アクティブなページに OLE 2.0 の埋め込みオブジェクトまたはリンク オブジェクト、または ActiveX コントロールが少なくとも 1 つあることを前提としています。

 
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 のサポートおよびフィードバックを参照してください。