DataColumn.SetProperty メソッド (Visio)

  • [アーティクル]

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

注:

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

構文

式。SetProperty (プロパティ、 値)

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

パラメーター

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

戻り値

なし

解説

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

注:

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

データ列のプロパティによって、データ列はシェイプシートの図形データ セクションの特定のセルにマップされます。 たとえば、列挙値 visDataColumnPropertyDisplayName で表される DisplayName プロパティの新しい値を SetProperty メソッドに渡すことで、特定の図形データ項目の ShapeSheet の [図形データ] セクションの [ラベル] セルの値を設定します。

さらに、このプロパティを設定すると、[図形データ] ダイアログ ボックスの 図形 データ項目のラベルと、Visio ユーザー インターフェイスの [外部データ] ウィンドウに表示されるデータ列の名前が設定されます。 これらの設定は、Visio ユーザー インターフェイスの [列の設定] ダイアログ ボックスで設定できる設定 ([外部データ] ウィンドウで右クリックし、[列の設定] をクリック) と、各列の [型と単位] ダイアログ ボックスで作成できる設定 ([列の設定] ダイアログ ボックスの [データ型] をクリック) に対応します。

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

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

Value パラメーターに設定可能な値は、Property パラメーターの値によって決まります。 次の表は、データ列のデータ型に応じて、各データ列プロパティの有効なデータ列プロパティ値を示しています。

Data Column プロパティ 番号 Date 通貨 期間 文字列 ブール型
定数 visPropTypeNumber visPropTypeDate visPropTypeCurrency visPropTypeDuration visPropTypeString visPropTypeBoolean
Visible Boolean Boolean Boolean Boolean Boolean Boolean
DisplayName String String String String String String
LangID 有効な LCID 番号
通貨 Visio シェイプシートの CY 関数で使用される文字列と同じ、有効な 3 文字の通貨定数を指定します。
予定表 LangID 値に応じて 、VisCellVals のメンバーの 1 つ (下の表を参照)。
Units 次の VisUnitsCodes のメンバーのいずれかを指定します。
  • visAcre
  • visAngleUnits
  • visCentimeters
  • visCiceros
  • visCicerosAndDidots
  • visDegreeMinSec
  • visDegrees
  • visDrawingUnits
  • visFeet
  • visFeetAndInches
  • visHectare
  • visDidots
  • visInches
  • visInchFrac
  • visKilometers
  • visMeters
  • visMileFrac
  • visMiles
  • visMillimeters
  • visMin
  • visNautMiles
  • visPageUnits
  • visPicas
  • visPicasAndPoints
  • visPoints
  • visRadians
  • visSec
  • visyards
  • visNumber (特殊な動作: この定数は値をユニットレスにします)

または

説明文字列: cm や sq cm などの単位に使用される文字列。この文字列は、サポートされている Visio ユニットの 1 つになるように検証されます。 無効な文字列を渡すと、メソッドが失敗します。		 次の VisUnitsCodes のメンバーのいずれかを指定します。
  • visDurationUnits
  • visElapsedDay
  • visElapsedHour
  • visElapsedMin
  • visElapsedSec
  • visElapsedWeek

または

説明文字列: ew などの単位に使用される文字列。 この文字列は検証されるので、Visio の単位としてサポートされているものを指定する必要があります。 無効な文字列を渡すと、メソッドが失敗します。
ハイパーリンク Boolean

LangID プロパティと Calendar プロパティは、次の表の検証の規則に従う必要があります。 次の表に記載されていない言語では、西暦を使用します。

言語 Hirji 西部 フランス語 (音訳) 英語 (音訳) ヘブライ暦 サカ暦 和暦 韓国檀紀 タイ仏暦
すべてのアラビア語 x x x x
Bengla(バングラデシュ) x x
Divehi x x
すべての英語 x x x x
ペルシャ語 x x
ヘブライ語 x x
ヒンディー語 x x
日本語 x x
韓国語 x x
カシミーリー語 x x
パンジャブ語 (パキスタン) x x
パシュトゥー語 x x
Sindhi x x
タイ語
ウルドゥ語 x x
Tamzight x x

例

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

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

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

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