GetLinkedDataRecordsetIDs メソッド (Visio)Shape.GetLinkedDataRecordsetIDs method (Visio)

図形にリンクされているデータ行を含むすべてのデータ レコードセットの ID を取得します。Gets the IDs of all the data recordsets that contain data rows linked to the shape.


この Visio オブジェクトまたはメンバーは Visio Professional 2013 のライセンス ユーザーのみが使用できます。This Visio object or member is available only to licensed users of Visio Professional 2013.


expression. GetLinkedDataRecordsetIDs( _DataRecordsetIDs()_ )

Shape オブジェクトを返す式を指定します。expression An expression that returns a Shape object.


名前Name 必須 / オプションRequired/Optional データ型Data type 説明Description
DataRecordsetIDs()DataRecordsetIDs() 必須Required LongLong 出力パラメーターです。Out parameter. 図形にリンクされているデータ行を含むデータレコードセットの Id の配列です。An array of IDs of data recordsets containing data rows linked to the shape.

戻り値Return value



DataRecordsetIDs () パラメーターには、メソッドが図形にリンクされたデータ行を含むデータレコードセットの Id を格納するLong型の空の次元配列を渡します。For the DataRecordsetIDs() parameter, pass an empty, dimensionless array of type Long that the method fills with the IDs of data recordsets containing data rows linked to the shape.


次の Microsoft Visual Basic for Applications (VBA) マクロは、 GetLinkedDataRecordsetIDsメソッドを使用して、図形にリンクされたデータ行を含むすべてのデータレコードセットの id を取得する方法を示しています。The following Microsoft Visual Basic for Applications (VBA) macro shows how to use the GetLinkedDataRecordsetIDs method to get the IDs of all the data recordsets that contain data rows linked to the shape.

このマクロを実行する前に、ドキュメントの**DataRecordsets** コレクションに少なくとも2つのデータレコードセットを追加します。Before running this macro, add at least two data recordsets to the DataRecordsets collection of the document. マクロは、図形をページにドロップし、その図形をコレクションに最後に追加された2つのデータレコードセットのデータにリンクして、 GetLinkedDataRecordsetIDsメソッドによって返されるリンクされたデータレコードセットの Id をイミディエイトウィンドウに出力します。The macro drops a shape onto the page, links the shape to data in the two data recordsets most recently added to the collection, and then prints the IDs of the linked data recordsets returned by the GetLinkedDataRecordsetIDs method in the Immediate window.

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) 
End Sub

サポートとフィードバックSupport and feedback

Office VBA またはこの説明書に関するご質問やフィードバックがありますか?Have questions or feedback about Office VBA or this documentation? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.