Shape.IsCustomPropertyLinked メソッド (Visio)

  • [アーティクル]

図形のシェイプ シート スプレッドシートの [図形データ] セクションの図形データ (カスタム プロパティ) 行が、指定したデータ レコードセット内のデータ行にリンクされているかどうかを返します。

注:

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

構文

expression. IsCustomPropertyLinked( _DataRecordsetID_ , _CustomPropertyIndex_ )

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

パラメーター

名前 必須 / オプション データ型 説明
DataRecordsetID 必須 Long データ行を含むデータ レコードセットの ID です。
CustomPropertyIndex 必須 Long 図形のシェイプシートの [Shape Data] セクションの図形データ (カスタム プロパティ) 行のインデックスです。

戻り値

Boolean

注釈

GetCustomPropertyLinkedColumn メソッドを呼び出す前に、このメソッドを呼び出して、図形データ項目 (カスタム プロパティ行) が実際にデータ列にリンクされていることを確認します。

注:

Visio の以前の一部のバージョンでは、図形データはカスタム プロパティと呼ばれていました。

図形とデータがどのようにリンクされているかを理解しておくと、1 つまたは複数のデータ レコードセットを最新のデータに更新するときに、競合やリンクの解除の発生を防ぐことができます。

例

次の Microsoft Visual Basic for Applications (VBA) マクロは、IsCustomPropertyLinked メソッドを使用して、図形のカスタム プロパティ行がデータ レコードセット内のデータ行にリンクされているかどうかを判断する方法を示しています。

このマクロを実行する前に、少なくとも 1 つのデータ レコードセットをドキュメントの DataRecordsets コレクションに追加します。 マクロは図形をドロップし、図形の最初の図形データ項目がこのコレクションに最後に追加されたデータ レコードセットのデータ行にリンクされているかどうかテストし、その結果をイミディエイト ウィンドウに表示します。 図形がデータとリンクされていないため、テストは失敗します。 次に、図形を最後に追加されたデータ レコードセットとリンクしてから、再度テストを実行します。

Public Sub IsCustomPropertyLinked_Example() 
 
    Dim vsoDataRecordset As Visio.DataRecordset 
    Dim vsoShape As Visio.Shape 
    Dim intCount As Integer 
    Dim boolIsLinked As Boolean 
         
    intCount = Visio.ActiveDocument.DataRecordsets.Count 
    Set vsoDataRecordset = Visio.ActiveDocument.DataRecordsets(intCount) 
     
    Set vsoShape = ActivePage.DrawRectangle(2, 2, 4, 4) 
     
    boolIsLinked = vsoShape.IsCustomPropertyLinked(vsoDataRecordset.ID, 1) 
     
    Debug.Print boolIsLinked 
     
    vsoShape.LinkToData vsoDataRecordset.ID, 1, True 
    boolIsLinked = vsoShape.IsCustomPropertyLinked(vsoDataRecordset.ID, 1) 
     
    Debug.Print boolIsLinked 
     
End Sub

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

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