次の方法で共有

Page.OLEObjects プロパティ (Visio)

  • [アーティクル]

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

構文

式。 OLEObjects

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

戻り値

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