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 のサポートおよびフィードバックを参照してください。