Visio VBAを掌握する極限の知見：`Shape.Characters.AddCustomField`による動的フィールド自動挿入の深淵
Visioによる図面自動化の現場において、最も見落とされがちであり、かつアーキテクチャの優劣を決定づけるのが「テキスト組版の動的制御」である。
図形内に「最終更新日時」「ファイルパス」「現在のページ番号」などをハードコーディングする愚を犯していないだろうか？ 図面のライフサイクルが長くなるほど、静的なテキストは負債となり、整合性の崩壊を招く。Visioが持つ真のポテンシャルを引き出すには、`Shape.Characters`オブジェクトを支配し、ドキュメントのメタデータをリアルタイムに同期させる「カスタムフィールド（Custom Field）」のプログラム的注入が不可欠となる。
本稿では、レガシーなVBA環境におけるメモリ管理の罠、オブジェクトのライフサイクル、そして`AddCustomField`メソッドを用いた極限のテキスト自動化手法を、チーフアーキテクトの視点から解き明かす。
—
1. Visioテキストエンジンと`Characters`オブジェクトの構造的理解
Visioのシェイプ（`Shape`）におけるテキストは、単なる文字列プロパティ（`Shape.Text`など）ではない。テキストは独立したサブレイヤーである`Characters`オブジェクトとして存在し、フォント、段落、そして動的フィールドのコンテナとして機能する。
ここで多くの開発者が陥る最初の罠が、オブジェクトのライフサイクルと解放の軽視である。
‘ 【アンチパターン】メモリリークを引き起こす記述
Dim shp As Visio.Shape
Set shp = ActivePage.Shapes(1)
shp.Characters.Text = “更新日: ”
‘ この後、Charactersオブジェクトを適切に扱わないと、COMラッパーがメモリ上に残存する
VisioのCOMコンポーネントは、明示的に参照を切断しない限り、VBAの実行スコープを抜けてもメモリ上にゾンビインスタンスを残すことがある。特にループ内で`Characters`や`Field`オブジェクトを頻繁に生成・破棄する場合、ガーベジコレクションの遅延がVisioの強制終了（クラッシュ）を引き起こす主因となる。
—
2. `AddCustomField` による動的フィールドの注入メカニズム
動的フィールドを挿入するためには、`Characters`オブジェクトに対してカスタムフィールドの数式（Formula）をバインドする必要がある。ここで使用するのが `Characters.AddCustomField` メソッドである。
このメソッドの核心は、Visioの「ShapeSheet（シェイプシート）」の数式エンジンと直接対話している点にある。引数として渡すのは単なる文字列ではなく、Visioのカスタム数式（例: `DocProp` や `P1()` など）である。
実装パターン：ファイル名と更新日時を動的に埋め込むプロシージャ
以下に、実業務のシステム間連携において耐えうる、堅牢なVBAコードを示す。エラーハンドリング、オブジェクトの明示的解放、そしてShapeSheetの再計算最適化（`ScreenUpdating`の制御）を網羅した実装だ。
Option Explicit
Public Sub InjectDynamicMetadataFields()
‘ —————————————————————–
‘ チーフアーキテクトによる実装：
‘ 選択されたシェイプにファイル名と更新日時のカスタムフィールドを安全に注入する
‘ —————————————————————–
Dim vsoApp As Visio.Application
Set vsoApp = Application
‘ パフォーマンス最適化：画面描画とイベントを一時停止
vsoApp.ScreenUpdating = False
vsoApp.EventsEnabled = False
On Error GoTo ErrorHandler
Dim vsoSelection As Visio.Selection
Set vsoSelection = vsoApp.ActiveWindow.Selection
If vsoSelection.Count = 0 Then
MsgBox “対象となるシェイプが選択されていません。”, vbExclamation, “Visio Automation”
GoTo CleanUp
End If
Dim vsoShape As Visio.Shape
Set vsoShape = vsoSelection(1)
Dim vsoChars As Visio.Characters
Set vsoChars = vsoShape.Characters
‘ 既存のテキストをクリアし、ベース文字列を設定
vsoChars.Text = “【自動制御図面】” & vbCrLf & _
“ファイル名: ” & Chr(10) & _
“更新日時: ”
‘ カーソルを末尾に移動してファイル名フィールドを追加
vsoChars.Begin = vsoChars.CharCount
vsoChars.End = vsoChars.CharCount
‘ DocProp.Filename または 独自数式フィールドの挿入
‘ 構文: AddCustomField(Formula, Format)
‘ Visio内部のセル参照「TheDoc!Prop.FileName」またはカスタム関数を使用
Dim vsoField1 As Visio.Field
Set vsoField1 = vsoChars.AddCustomField(“TheDoc!DocName”, visFmtGeneralString)
‘ 改行を挟んで次のフィールド（更新日時）を追加
vsoChars.Begin = vsoChars.CharCount
vsoChars.End = vsoChars.CharCount
vsoChars.Text = vsoChars.Text & vbCrLf & “最終更新: ”
vsoChars.Begin = vsoChars.CharCount
vsoChars.End = vsoChars.CharCount
Dim vsoField2 As Visio.Field
‘ 構文: ズームやドキュメントのプロパティから日時を取得
Set vsoField2 = vsoChars.AddCustomField(“TheDoc!TimeEd”, visFmtLongDate)
CleanUp:
‘ —————————————————————–
‘ メモリ最適化とオブジェクトの解放（COMラッパーのリーク防止）
‘ —————————————————————–
Set vsoField2 = Nothing
Set vsoField1 = Nothing
Set vsoChars = Nothing
Set vsoShape = Nothing
Set vsoSelection = Nothing
vsoApp.ScreenUpdating = True
vsoApp.EventsEnabled = True
Exit Sub
ErrorHandler:
MsgBox “致命的なエラーが発生しました: ” & Err.Description, vbCritical, “Critical Error”
Resume CleanUp
End Sub
—
3. レガシー環境とシステム間連携における極限の知見
このアーキテクチャを大規模な社内ニッチシステム（PLMやERPとの連携基盤）に組み込む場合、さらに一歩進んだ知見が必要となる。
1. ShapeSheet数式インジェクションの罠
`AddCustomField`に渡す文字列（例: `”TheDoc!DocName”`）は、Visioのロケール（言語依存）の影響を受けることがある。日本語版Visioと英語版Visioでは、組み込みセルの名称や関数名（例: `PGBOOK`や`TODAY()`など）が内部的に異なる挙動を示す場合があるため、システム間連携を行う図面テンプレートでは、プロパティ（User定義セลล์）を仲介させるレイヤーを挟むのが定石である。
‘ テンプレート側にあらかじめUser.SystemFilenameセルを定義し、そこへAPI経由で値を流し込む
‘ そしてFieldオブジェクトには「User.SystemFilename」を参照させる
vsoChars.AddCustomField “TheText(User.SystemFilename)”, visFmtGeneralString
この設計により、Visioの言語依存性によるフィールド破損を完全に回避できる。
2. 大規模図面におけるパフォーマンスチューニング
数百のシェイプに対して一括でフィールドを注入する場合、前述のコードにある `ScreenUpdating = False` だけでは不十分である。Visioの内部エンジンはテキストが変更されるたびにShapeSheetの再計算（Recalculate）走査を行う。
これを防ぐため、一括処理の直前にドキュメント全体の自動計算を無効化するアプローチが有効だ。
‘ 自動計算の停止（Visioインスタンス全体）
vsoApp.Settings.AutoRecalc = False
‘ — ここで一括処理 —
‘ 再開と強制再計算
vsoApp.Settings.AutoRecalc = True
vsoApp.Calculate
この一手間を加えるだけで、数千個のシェイプを持つプラント図やネットワーク図の自動生成時間が、数分単位から数秒単位へと劇的に短縮される。
—
総括
`Shape.Characters.AddCustomField` は、単なる「文字を埋め込む便利機能」ではない。これは、Visioという巨大なベクターグラフィックスエンジン内部に、動的なメタデータ駆動型アーキテクチャを構築するための「唯一無二のフック」である。
メモリのライフサイクルを厳密に管理し、ShapeSheetの挙動を完全に掌握した者だけが、変化する要件にびくともしない、真に堅牢なVisio自動化システムを構築できる。コードの行数ではなく、背後にあるオブジェクトモデルの理（ことわり）を理解すること。それこそが、プロフェッショナルエンジニアの証左である。
