Characters.AddFieldEx メソッド (Visio)
Characters オブジェクトで表されるテキストを、指定したカテゴリ、コード、形式、言語 ID、カレンダー ID の新しいフィールドに置き換えます。
構文
式。AddFieldEx (カテゴリ、 コード、 形式、 LangID、 CalendarID)
式: Characters オブジェクトを表す変数。
パラメーター
| 名前 | 必須 / オプション | データ型 | 説明 |
|---|---|---|---|
| [カテゴリ] | 必須 | VisFieldCategories | 新しいフィールドの分類です。 |
| コード | 必須 | VisFieldCodes | 新しいフィールドのコードです。 |
| Format | 必須 | VisFieldFormats | 新しいフィールドの書式です。 |
| LangID | 省略可能 | Long | 新しいフィールドに使用する言語。 |
| CalendarID | 省略可能 | Long | 新しいフィールドに使用するカレンダーです。 |
戻り値
なし
解説
Category、Code、Format の定数値は、VisFieldCategories、VisFieldCodes、VisFieldFormats の Visio タイプ ライブラリによってそれぞれ宣言されます。
LangID 引数は、異なる言語バージョンをエンコードするために Windows で使用される標準 ID の 1 つである必要があります。 たとえば、Microsoft Visio の米国バージョンの場合、言語 ID は &H0409 です。 使用可能な言語 ID の一覧を参照するには、MSDN の Microsoft プラットフォーム SDK で「VersionInfo」を検索してください。
引数 CalendarID は、Visio タイプ ライブラリの VisCellVals で宣言されている次のいずれかの値になります。 既定値は、visCalWestern で、カレンダーを西欧暦に設定します。
| 定数 | 値 | 説明 |
|---|---|---|
| visCalWestern | 0 | 西部 |
| visCalArabicHijri | 1 | アラビア暦 (ヒジュラ暦) |
| visCalHebrew 太陽・月齢 | 2 | ヘブライ太陰暦 |
| visCalChineseTaiwan | 3 | 台湾暦 |
| visCalJapaneseEmperor | 4 | 和暦 |
| visCalThaiBuddhism | 5 | タイ仏暦 |
| visCalKoreanDanki | 6 | 韓国檀紀 |
| visCalSakaEra | 7 | サカ暦 |
| visCalTranslitEnglish | 8 | 英語 (音訳) |
| visCalTranslitFrench | 9 | フランス語 (音訳) |
AddFieldEx メソッドを使用することは、[挿入] タブの [フィールド] をクリックして、次の分類のフィールドをテキストに挿入するのと同じです。
日付/時刻
ファイル情報
ジオメトリ
オブジェクトの情報
ページ情報
ユーザー設定の数式フィールドを追加するには、 AddCustomField メソッドまたは AddCustomFieldU メソッドを 使用します。 省略可能な LangID 引数と CalendarID 引数に値を渡さない (または既定値を渡す) 場合、 AddFieldEx は AddField とまったく同じように動作 します。
例
次の Microsoft Visual Basic for Applications (VBA) マクロは、AddFieldEx プロパティを使用して、図形の日付フィールドの書式を設定する方法を示します。 図面ページに四角形を描画し、西暦を使用して現在の日付をギリシャ語で表示するフィールドを挿入します。
Public Sub AddFieldEx_Example()
Dim vsoCharacters As Visio.Characters
Dim vsoShape As Visio.Shape
ActiveWindow.DeselectAll
Set vsoShape = Application.ActivePage.DrawRectangle(3, 5, 5, 3)
vsoShape.Text = "Date: "
Set vsoCharacters = vsoShape.Characters
'Set Begin property equal to End property to
'append new text to existing text.
vsoCharacters.Begin = vsoCharacters.End
'Add a field for the current date, in Greek,
'using the Western calendar and the long date format.
vsoCharacters.AddFieldEx visFCatDateTime, visFCodeCurrentDate, visFmtMsoDateLong, 1032, visCalWestern
End Sub
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。