Selection.BreakLinkToData メソッド (Visio)

選択範囲内のすべての図形と指定されたデータ レコードセット間のリンクを解除します。

注:

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

構文

式。 BreakLinkToData( _DataRecordsetID_ )

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

パラメーター

名前	必須 / オプション	データ型	説明
DataRecordsetID	必須	Long	リンクを解除するデータ行を含むデータ レコードセットの ID を指定します。

戻り値

なし

解説

選択範囲内の図形とデータ行の間のリンクを解除できない場合、または、リンクが存在しない場合は、その図形はスキップされ、選択範囲内の次の図形に移動します。 メソッドを実行した後、選択範囲の任意の図形がまだデータ行にリンクされているかどうかを判断するには、選択範囲の各図形で Shape.GetLinkedDataRow メソッドを呼び出します。 任意の図形に 対して GetLinkedDataRow メソッドが失敗した場合は、図形がデータ行にリンクされなくなったか、データ行にリンクされていないことを示します。

図形とデータの間のリンクを解除しても、図形から (以前のバージョンの Visio のうち一部ではカスタム プロパティと呼ばれてた) 図形データは削除されず、図形に関連付けられたデータ グラフィックも削除されません。

例

次の Microsoft Visual Basic for Applications (VBA) マクロは、BreakLinkToData メソッドを使用して、選択範囲の図形とデータ レコードセット内のデータ行間のすべてのリンクを解除する方法を示しています。

このマクロを実行する前に、ページに複数の図形を配置し、少なくとも 1 つのデータ レコードセットをドキュメントの DataRecordsets コレクションに追加し、リンク メソッドを使用して、コレクションに最後に追加したデータ レコードセット内の 1 つ以上のデータ行に複数の図形をリンクします。

Public Sub BreakLinkToData_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 
    Call vsoSelection.BreakLinkToData(vsoDataRecordset.ID) 
     
End Sub

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

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