次の方法で共有

Shape.LinkToData メソッド (Visio)

  • [アーティクル]

図形をデータ レコードセットのデータ行にリンクします。

注:

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

構文

expression. LinkToData( _DataRecordsetID_ , _RowID_ , _AutoApplyDataGraphics_ )

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

パラメーター

名前 必須 / オプション データ型 説明
DataRecordsetID 必須 Long リンク先のデータを含むデータ レコードセットの ID。
RowID 必須 Long リンクする特定のデータ レコードを含むデータ レコードセットの行の ID です。
AutoApplyDataGraphics 省略可能 Boolean リンクされている図形に、データ グラフィックを自動的に適用するかどうかを指定します。 詳細については「備考」を参照してください。

戻り値

なし

解説

Shape.LinkToData メソッドの機能は、Selection オブジェクトの Selection.LinkToData メソッドの機能とほぼ同じですが、1 つのデータ行とリンクするのは、選択した図形ではなく 1 つの図形です。

AutoApplyDataGraphics パラメーターとして True を渡した場合、このメソッドを呼び出す前にデータ グラフィックが適用されていた場合は、その図形に既存のデータ グラフィックが再適用されます。 データ グラフィックが適用されていなかった図形には、現在の図面の他の図形に最後に適用されたデータ グラフィックが適用されます。

例

次の Microsoft Visual Basic for Applications (VBA) マクロは、LinkToData メソッドを使用して、1 つの図形をデータ行にリンクする方法を示します。

このマクロを実行する前に、少なくとも 1 つのデータ レコードセットをドキュメントの DataRecordsets コレクションに追加します。 マクロは、そのコレクションの最後に追加されたデータ レコードセットの ID を使用します。 ページ上に四角形の図形を描画し、既定のデータ グラフィックを図形に適用しながら、データ レコードセットの最初の行のデータにリンクします。

Public Sub LinkToData_Example() 
 
    Dim vsoDataRecordset As Visio.DataRecordset 
    Dim vsoShape As Visio.Shape 
    Dim intCount As Integer 
     
    intCount = Visio.ActiveDocument.DataRecordsets.Count 
    Set vsoDataRecordset = Visio.ActiveDocument.DataRecordsets(intCount) 
     
    Set vsoShape = ActivePage.DrawRectangle(2, 2, 5, 5) 
     
    vsoShape.LinkToData vsoDataRecordset.ID, 1, True 
 
End Sub

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

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