Shape.GetLinkedDataRow メソッド (Visio)

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

注:

この Visio オブジェクトまたはメンバーは Visio Professional 2013 のライセンス ユーザーのみが使用できます。

構文

式。 GetLinkedDataRow( _DataRecordsetID_ )

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

パラメーター

名前	必須 / オプション	データ型	説明
DataRecordsetID	必須	Long	リンクされている行を含むデータ レコードセットの ID です。

戻り値

Long

注釈

図形がデータ行にリンクされていない場合、GetLinkedDataRow メソッドは失敗します。

例

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

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

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

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

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