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

図形にリンクされている、指定されたデータ レコードセットのデータ行の ID を取得します。Gets the ID of the data row in the specified data recordset linked to the shape.

注意

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

構文Syntax

expression. GetLinkedDataRow( _DataRecordsetID_ )

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

パラメーターParameters

名前Name 必須 / オプションRequired/Optional データ型Data type 説明Description
DataRecordsetIDDataRecordsetID 必須Required LongLong リンクされている行を含むデータ レコードセットの ID です。The ID of the data recordset that contains the linked row.

戻り値Return value

LongLong

解説Remarks

図形がデータ行にリンクされていない場合、 Getlinkeddatarowメソッドは失敗します。The GetLinkedDataRow method fails if the shape is not linked to a data row.

Example

次の Microsoft Visual Basic for Applications (VBA) マクロは、 Getlinkeddatarowメソッドを使用して、図形にリンクされている指定したデータレコードセットのデータ行の ID を取得する方法を示しています。The following Microsoft Visual Basic for Applications (VBA) macro shows how to use the GetLinkedDataRow method to get the ID of the data row in the specified data recordset linked to the shape.

このマクロを実行する前に、ドキュメントの**DataRecordsets** コレクションに少なくとも1つのデータレコードセットを追加してください。Before running this macro, add at least one data recordset to the DataRecordsets collection of the document. マクロは、図形をページにドロップし、その図形を、コレクションに最後に追加されたデータレコードセットのデータ行にリンクし、その行の ID を取得して、その行の ID をイミディエイトウィンドウに出力します。The macro drops a shape onto the page, links the shape to a data row in the data recordset most recently added to the collection, gets the ID of the row, and then prints the ID of the row in the Immediate window.

Public Sub GetLinkedDataRow_Example() 
 
    Dim vsoDataRecordset As Visio.DataRecordset 
    Dim vsoShape As Visio.Shape 
    Dim intCount As Integer 
    Dim lngRowID As Long 
     
    intCount = Visio.ActiveDocument.DataRecordsets.Count 
    Set vsoDataRecordset = Visio.ActiveDocument.DataRecordsets(intCount) 
     
    Set vsoShape = ActivePage.DrawRectangle(2, 2, 4, 4) 
         
    vsoShape.LinkToData vsoDataRecordset.ID, 1, True 
            
    lngRowID = vsoShape.GetLinkedDataRow(vsoDataRecordset.ID) 
    Debug.Print lngRowID 
         
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.