Shape.GetLinkedDataRecordsetIDs メソッド (Visio)

図形にリンクされているデータ行を含むすべてのデータ レコードセットの ID を取得します。

構文

式。 GetLinkedDataRecordsetIDs( _DataRecordsetIDs()_ )

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

パラメーター

戻り値

なし

解説

DataRecordsetIDs() パラメーターの場合は、 Long 型の 空の無次元配列を渡します。この配列は、メソッドが図形にリンクされたデータ行を含むデータ レコードセットの ID で埋められます。

例

次の Microsoft Visual Basic for Applications (VBA) マクロは、GetLinkedDataRecordsetIDs メソッドを使用して、図形にリンクされたデータ行を含むすべてのデータ レコードセットの ID を取得する方法を示しています。

このマクロを実行する前に、少なくとも 2 つのデータ レコードセットをドキュメントの DataRecordsets コレクションに追加します。 マクロは、ページに図形をドロップし、最後にコレクションに追加された 2 つのデータ レコードセット内のデータに図形をリンクし、 GetLinkedDataRecordsetIDs メソッドによって返されるリンクされたデータ レコードセットの ID をイミディエイト ウィンドウに出力します。

Public Sub GetLinkedDataRecordsetIDs_Example() 
 
    Dim vsoDataRecordset1 As Visio.DataRecordset 
    Dim vsoDataRecordset2 As Visio.DataRecordset 
    Dim vsoShape As Visio.Shape 
    Dim intCount As Integer 
    Dim alngDataRecordsetIDs() As Long 
    Dim intArrayIndex As Integer 
     
    intCount = Visio.ActiveDocument.DataRecordsets.Count 
    Set vsoDataRecordset1 = Visio.ActiveDocument.DataRecordsets(intCount) 
    Set vsoDataRecordset2 = Visio.ActiveDocument.DataRecordsets(intCount - 1) 
     
    Set vsoShape = ActivePage.DrawRectangle(2, 2, 4, 4) 
         
    vsoShape.LinkToData vsoDataRecordset1.ID, 1, True 
    vsoShape.LinkToData vsoDataRecordset2.ID, 2, True 
         
    vsoShape.GetLinkedDataRecordsetIDs alngDataRecordsetIDs 
         
    For intArrayIndex = LBound(alngDataRecordsetIDs) To UBound(alngDataRecordsetIDs) 
        Debug.Print alngDataRecordsetIDs(intArrayIndex) 
    Next 
         
End Sub

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

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