Selection.LinkToData メソッド (Visio)

選択された図形をデータ レコードセットの 1 つのデータ行にリンクします。

構文

expression. LinkToData( _DataRecordsetID_ , _DataRowID_ , _AutoApplyDataGraphics_ )

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

パラメーター

戻り値

なし

解説

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

図形とデータ行のリンクが確立できない場合、Visio ではその図形はリンクされず、選択した次の図形が処理されます。 メソッドを実行した後、選択範囲内のすべての図形が実際にデータ行にリンクされているかどうかを確認するには、選択範囲内の各図形で Shape.GetLinkedDataRow メソッドを呼び出します。 このメソッドが失敗した場合、その図形はデータ行にリンクされていません。 図形が既にデータにリンクされていて、データ レコードセットのリンク置換動作設定でリンクを置き換えないように指定されている場合を除き、Visio は通常、行を図形にリンクすることに成功します。

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

例

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

このマクロを実行する前に、ページにいくつかの図形を配置し、ドキュメントの DataRecordsets コレクションに少なくとも 1 つのデータ レコードセットを追加します。 マクロは、そのコレクションの最後に追加されたデータ レコードセットの ID を使用します。 選択した図形をデータ レコードセットの最初の行のデータにリンクします。

Public Sub LinkToData_Example() 
 
    Dim vsoDataRecordset As Visio.DataRecordset 
    Dim vsoSelection As Visio.Selection 
    Dim intCount As Integer 
     
    intCount = Visio.ActiveDocument.DataRecordsets.Count 
    Set vsoDataRecordset = Visio.ActiveDocument.DataRecordsets(intCount) 
     
    ActiveWindow.DeselectAll 
    ActiveWindow.SelectAll 
     
    Set vsoSelection = ActiveWindow.Selection 
    vsoSelection.LinkToData vsoDataRecordset.ID, 1, True 
 
End Sub

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

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