Page.GetShapesLinkedToData メソッド (Visio)

指定のデータ レコードセットのデータにリンクされたアクティブ ページのすべての図形の配列を返します。

注:

この Visio オブジェクトまたはメンバーは Visio Professional 2013 のライセンス ユーザーのみが使用できます。

構文

expression. GetShapesLinkedToData( _DataRecordsetID_ , _ShapeIDs()_ )

式Page オブジェクトを返す式。

パラメーター

名前 必須 / オプション データ型 説明
DataRecordsetID 必須 Long 現在の図面に含まれるデータ レコードセットの ID です。
ShapeIDs() 必須 Long 出力パラメーターです。 DataRecordsetID に指定されたデータ レコードセットにリンクされているページ上の図形の図形 ID で埋められた、メソッドが返す Long 型の配列。

戻り値

なし

解説

ShapeIDs() パラメーターとして、Long 型の、次元を指定しない空の配列を渡します。 ページにリンクされた図形がない場合、GetShapesLinkedToData は空の配列を返します。

図形がリンクされているデータ レコードセット内の特定のデータ行を確認するには、 Page.GetShapesLinkedToDataRow メソッドを使用します。

例

次の Microsoft Visual Basic for Applications (VBA) マクロは、GetShapesLinkedToData メソッドを使用して、現在のドキュメントの DataRecordsets コレクションに最近追加されたデータ レコードセット内のデータにリンクされているページ上の図形の図形 ID を確認する方法を示しています。 図形 ID が「即時」ウィンドウに出力されます。

このマクロを実行する前に、 DataRecordsets.Add メソッドまたはその他の方法を使用して少なくとも 1 つのデータ レコードセットを DataRecordsets コレクションに追加し、アクティブなページに少なくとも 1 つのデータ レコードセット内のデータにリンクされている図形があることを確認します。

Public Sub GetShapesLinkedToData_Example() 
 
    Dim vsoDataRecordset As Visio.DataRecordset 
    Dim intRecordsetCount As Integer 
    Dim alngShapeIDs() As Long 
    Dim intArrayCounter As Integer 
     
    intRecordsetCount = Visio.ActiveDocument.DataRecordsets.Count 
    Set vsoDataRecordset = Visio.ActiveDocument.DataRecordsets(intRecordsetCount) 
     
    ActivePage.GetShapesLinkedToData vsoDataRecordset.ID, alngShapeIDs 
     
    For intArrayCounter = LBound(alngShapeIDs) To UBound(alngShapeIDs) 
        Debug.Print alngShapeIDs(intArrayCounter) 
    Next 
     
End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。

  • Last updated on