DataColumn.GetProperty メソッド (Visio)

指定されたデータ列のプロパティの値を取得します。

注:

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

構文

式。GetProperty (プロパティ)

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

パラメーター

名前	必須 / オプション	データ型	説明
プロパティ	必須	VisDataColumnProperties	取得するデータ列のプロパティです。 使用可能な値については 、「備考 」を参照してください。

戻り値

バリアント型

注釈

Microsoft Visio 図面の図形をデータ レコードセットのデータにリンクする場合、Visio はそのデータ レコードセットの列を、図形データの各項目に対応するシェイプシートの図形データ セクションの行にマップします。

注:

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

データ列のプロパティによって、データ列はシェイプシートの図形データ セクションの特定のセルにマップされます。 たとえば、列挙値 visDataColumnPropertyDisplayName で表される DisplayName プロパティを GetProperty メソッドに渡すことで、特定の図形データ項目の ShapeSheet の [図形データ] セクションの [ラベル] セルの値を取得できます。 さらに、このプロパティは、[図形データ] ダイアログ ボックスの 図形 データ項目のラベルと、Visio ユーザー インターフェイスの [外部 データ] ウィンドウに表示されるデータ列の名前を設定します。

Property パラメーターに設定可能な値は、次のとおりです。これらの値は VisDataColumnProperties で宣言されています。

定数	値	説明
visDataColumnPropertyCalendar	3	データ列プロパティのカレンダー。
visDataColumnPropertyCurrency	5	データ列プロパティの通貨。
visDataColumnPropertyDisplayName	6	UI でのデータ列プロパティの表示名。
visDataColumnPropertyHyperlink	8	図形にリンクされている場合、Visio UI でデータ列の値をハイパーリンクとして表示するかどうかを表します。
visDataColumnPropertyLangID	2	データ列プロパティの言語 ID。
visDataColumnPropertyType	1	データ列プロパティの種類。
visDataColumnPropertyUnits	4	データ列プロパティの単位。
visDataColumnPropertyVisible	7	データ列のプロパティが UI に表示されるかどうかを表します。

例

次の Microsoft Visual Basic for Applications (VBA) マクロは、GetProperty メソッドを使用して、メソッドに渡されたデータ レコードセットの最初の列の [図形データ] セクションの [ラベル] セルの値を取得し、イミディエイト ウィンドウに表示する方法を示しています。 次に 、SetProperty メソッドを使用して値を設定し、新しい値を表示します。 この値を変更すると、データ レコードセット内の行にリンクされているすべての図形の [図形データ] ダイアログ ボックスの図形データ項目のラベルが変更されます。

ラベル セルの値を取得および設定するために、VisDataColumnProperties 列挙の visDataColumnPropertyDisplayName を DataColumn.GetProperty メソッドと DataColumn.SetProperty メソッドに渡します。

このマクロを実行する前に、VBA プロジェクトにマクロに渡すデータ レコードセットを最低 1 つは作成してください。

 
Public Sub GetProperty_Example(vsoDataRecordset As Visio.DataRecordset) 
    Dim strPropertyName As String 
    Dim strNewName As String 
    Dim vsoDataColumn As Visio.DataColumn 
 
    strNewName = "New Property Name" 
    Set vsoDataColumn = vsoDataRecordset.DataColumns(1) 
 
    strPropertyName = vsoDataColumn.GetProperty(visDataColumnPropertyDisplayName) 
    Debug.Print strPropertyName 
 
    vsoDataColumn.SetProperty visDataColumnPropertyDisplayName, strNewName 
    strPropertyName = vsoDataColumn.GetProperty(visDataColumnPropertyDisplayName) 
    Debug.Print strPropertyName 
End Sub

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

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