Shape.BreakLinkToData メソッド (Visio)

図形と、指定されたデータ レコードセット内でその図形にリンクされているデータ行の間のリンクを解除します。

注:

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

構文

BreakLinkToData( _DataRecordsetID_ )

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

パラメーター

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

戻り値

なし

解説

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

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

このマクロを実行する前に、ページに図形を配置し、少なくとも 1 つのデータ レコードセットをドキュメントの DataRecordsets コレクションに追加し、任意のリンク メソッドを使用して、コレクションに最後に追加したデータ レコードセット内のデータ行に図形をリンクします。 または、Visio ユーザー インターフェイスで、[外部データ] ウィンドウから行を図形の上にドラッグして、図形をデータ行にリンクすることも可能です。 その後、リンクされた図形を選択します。

Public Sub BreakLinkToData_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 = ActiveWindow.Selection.PrimaryItem 
    vsoShape.BreakLinkToData (vsoDataRecordset.ID) 
    
End Sub

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

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