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