Page.GetShapesLinkedToDataRow メソッド (Visio)

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

構文

expression. GetShapesLinkedToDataRow( _DataRecordsetID_ , _DataRowID_ , _ShapeIDs()_ )

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

パラメーター

戻り値

なし

解説

ShapeIDs() パラメーターとして、Long 型の、次元を指定しない空の配列を渡します。 DataRecordsetID で指定されたデータ レコードセット内の DataRowID で指定されたデータ行にリンクされた図形がページにない場合、 GetShapesLinkedToDataRow は空の配列を返します。

データ レコードセット内のすべてのデータ行の ID を確認するには、 DataRecordset.GetDataRowIDs メソッドを使用します 。 データ行 ID は、データ レコードセット内のデータ行の論理位置と必ずしも対応しているとは限りません。

例

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

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

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

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

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