Page.GetShapesLinkedToData メソッド (Visio)

  • [アーティクル]

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

注:

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

構文

expression. GetShapesLinkedToData( _DataRecordsetID_ , _ShapeIDs()_ )

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

パラメーター

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

戻り値

なし

解説

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

リンク先のデータ レコードセット図形の特定のデータ行を特定するには、 Page.GetShapesLinkedToDataRow メソッドを使用します。

例

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

このマクロを実行する前に、 DataRecordsets.Add メソッドまたは別の手段を使用して 、DataRecordsets コレクションに少なくとも 1 つのデータ レコードセットを追加し、アクティブなページにデータ レコードセット内のデータにリンクされている図形が少なくとも 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 のサポートおよびフィードバックを参照してください。