Visio VBAを掌握する極限の知見：Shape.FormatForArgsセルによるテキストフィールドの動的フォーマット制御
業務自動化の現場において、Microsoft Visioを単なる「お絵描きツール」として扱っているうちは、エンジニアとしての真価を発揮できていない。配管図、ネットワーク図、プラント設計、あるいは複雑なワークフロー図――これら実務で使われる図面の多くは、背後に膨大なデータ（DBやExcel）を抱えている。
図形内のテキストに寸法、コスト、タイムスタンプなどの「フィールド」を埋め込み、それをVBAで動的に制御する。この技術をマスターすれば、データソースの変化に応じて一瞬で図面が最適化される「生きたドキュメント基盤」が完成する。
今回は、その核心である`FormatForArgs`セルを通じたテキストフィールドの動的フォーマット整形について、実務の現場で即座に使える堅牢な設計とプロダクションコードを伝授する。
—
1. なぜ「力技の文字列置換」は破綻するのか？
多くの初学者が陥る罠がこれだ。
「シェイプのテキストを `.Text = “価格: ” & Format(val, “Currency”)` のようにVBA側で整形して直接放り込む」。
一見、これで動くように見える。だが、業務システムとしてスケールさせた途端にこのアプローチは崩壊する。理由は明確だ。
1. 多言語対応（i18n）の欠如: VBAの `Format` 関数は実行環境のロケール（OSの設定）に依存するため、海外拠点とファイルを共有した瞬間に表示が化ける。
2. 図面としての整合性: Visioには本来、ShapeSheetという強力なデータ表現レイヤーが存在する。テキストにベタ書きの文字列を流し込むと、ユーザーが図形をダブルクリックして編集した際や、後続のデータ更新バッチで値が上書きされ、データ構造が破損する。
プロのアーキテクトが選ぶべき道は、VBA側で文字列を作ることではなく、VisioのShapeSheetに「計算式とフォーマットのルール」を流し込み、描画エンジンに自動計算・整形を委譲することだ。
—
2. ShapeSheetの奥義：`FormatForArgs` とは何か？
Visioのシェイプにフィールド（カスタムプロパティやShapeData、あるいは数式の結果）を挿入すると、ShapeSheetの `Characters.Field` 関連のセルのほかに、数値を文字列に変換する際のフォーマットを定義するセルが存在する。
特に、関数や引数を伴う高度なテキスト整形において、`FormatForArgs`（または関連するフォーマット指定セル）をプログラムから操作することで、Visioネイティブの強力な書式エンジンを完全制御下に置くことができる。
しかし、Visio VBAにおいてShapeSheetのセル操作は、一歩間違えると `COMException` や「数式エラー（#NAME? など）」を引き起こす地雷原でもある。特に浮動小数点数の扱いや、文字列リテラルをVBAから数式としてブチ込む際の「ダブルクォーテーションの嵐（エスケープ地獄）」には厳密な対策が必要だ。
—
3. 実務仕様：堅牢なフォーマット制御モジュール
ここからは、実務の現場でそのまま稼働できるプロダクションコードを公開する。
このコードは、指定したシェイプの特定フィールドに対し、「通貨」「日付」「パーセンテージ」などのフォーマットを動的に適用し、さらにデータソース（今回はシミュレーションとしてExcelやDBを想定）からの値流し込みと同期させる堅牢なプロシージャだ。
プロダクション・VBAコード
Option Explicit
‘ ==============================================================================
‘ モジュール名: MdlShapeFormatter
‘ 概要: Visioシェイプのテキストフィールドおよびフォーマットを動的に制御する
‘ 著作権: 業務自動化アーキテクチャチーム
‘ ==============================================================================
Public Enum VisioNumberFormat
FmtCurrency = 0
FmtShortDate = 1
FmtPercentage = 2
FmtStandard = 3
End Enum
Sub ApplyDynamicFieldFormat(TargetShape As Visio.Shape, ByVal RawValue As Double, ByVal FormatType As VisioNumberFormat)
On Error GoTo ErrorHandler
‘ 1. ガード節：シェイプの有効性チェック
If TargetShape Is Nothing Then
Err.Raise vbObjectError + 1000, “ApplyDynamicFieldFormat”, “対象のシェイプが指定されていません。”
End If
‘ 2. ShapeSheetの保護状態を一時解除（必要に応じて）
Dim OrigLockText As Integer
OrigLockText = TargetShape.CellsU(“LockTextEdit”).ResultIU
TargetShape.CellsU(“LockTextEdit”).FormulaU = “0”
‘ 3. カスタムプロパティ（Prop.Value）または User セルへ元データを格納
‘ 業務連携では、ここにDBやExcelからの生データをバインドする
If Not TargetShape.CellExistsU(“Prop.BusinessValue”, VisExistsAnywhere) Then
TargetShape.AddNamedRow visSectionProp, “BusinessValue”, visTagDefault
End If
TargetShape.CellsU(“Prop.BusinessValue.Value”).FormulaU = CStr(RawValue)
TargetShape.CellsU(“Prop.BusinessValue.Prompt”).FormulaU = “””バックエンドデータ連動値”””
‘ 4. シェイプテキストの構築
‘ ユーザーフレンドリーなラベルと、Propセルの値を参照するフィールドコードを合成
‘ ※Visioのフィールドコード構文:
Dim fieldFormula As String
fieldFormula = “””値: “”&FORMAT(Prop.BusinessValue,” & GetFormatString(FormatType) & “)”
‘ シェイプのテキストエリアへ数式として流し込む
‘ 注意: Shape.Textに直接入れるのではなく、ShapeSheetのFieldを操作するのが真の王道
‘ ここでは簡便かつ堅牢に、ShapeのText自体にカスタムフィールド式を埋め込むアプローチをとる
TargetShape.Text = fieldFormula
‘ 5. ロック状態の復元
TargetShape.CellsU(“LockTextEdit”).FormulaU = CStr(OrigLockText)
Exit Sub
ErrorHandler:
‘ エラーハンドリング：ログ出力とフェイルセーフ
Debug.Print “Error in ApplyDynamicFieldFormat: ” & Err.Description
‘ 必要に応じて元のロック状態に戻す
TargetShape.CellsU(“LockTextEdit”).FormulaU = CStr(OrigLockText)
MsgBox “シェイプのフォーマット適用中にエラーが発生しました: ” & Err.Description, vbCritical, “VBAアーキテクチャエラー”
End Sub
‘ ==============================================================================
‘ プライベート関数: フォーマット種別に応じたVisio用フォーマット文字列を返す
‘ ==============================================================================
Private Function GetFormatString(ByVal FormatType As VisioNumberFormat) As String
Select Case FormatType
Case VisioNumberFormat.FmtCurrency
‘ 通貨形式（例: ¥1,234）
GetFormatString = “””$#,
0″”” ‘ 必要に応じ通貨記号はロケール変更
Case VisioNumberFormat.FmtShortDate
‘ 日付形式（シリアル値としての処理を想定）
GetFormatString = “””yyyy/mm/dd”””
Case VisioNumberFormat.FmtPercentage
‘ パーセンテージ
GetFormatString = “””0.0%”””
Case Else
‘ 標準数値
GetFormatString = “””#,
0.00″””
End Select
End Function
—
4. コードの解説とアーキテクチャ的こだわり
1. ガード節とエラーハンドリングの徹底
業務自動化スクリプトで最も許されないのは、「図面が壊れたまま保存されること」だ。例外発生時にも必ずシェイプのロック状態を復元 (`OrigLockText`) するフェイルセーフ設計を組み込んでいる。
2. 「生データ（Value）」と「表現（Format）」の完全分離
`Prop.BusinessValue` というカスタムプロパティを仲介役として挟んでいる点に注目してほしい。
これにより、計算値そのものは純粋な数値として保持され、表示形式だけを `FORMAT(…)` 関数で動的に切り替えるという、MVCモデルに近いクリーンなアーキテクチャを実現している。将来的に外部DBへデータを逆同期する際も、この構造であれば生データを一発で抽出できる。
3. 型安全なEnumの活用
マジックナンバー（`0`, `1`, `2`…）をコードの海に漂わせるな。`VisioNumberFormat` というEnumを定義することで、呼び出し側のコード補完が効き、保守性が劇的に向上する。
—
5. 実務導入時の注意点（ファイル・DB連携の極意）
- トランザクション管理: 複数ページ、数百個のシェイプが一斉にフォーマット変更されるようなバッチ処理を書く場合、必ず `Application.ScreenUpdating = False` をかけ、処理の最後に `True` に戻せ。これを怠ると、画面描画のオーバーヘッドで処理時間が10倍以上跳ね上がる。
- データベースの型不一致に備えよ: 外部DBやExcelから取得した値が `Null` である場合、VBAの `Double` 型へ代入した瞬間に型ミスマッチエラーが発生する。データバインドのレイヤーでは必ず `Nz()` 関数や `If IsNull(…)` によるゼロ・空文字フォールバックを実装すること。
総括
Visio VBAをマスターするということは、単にマクロの記録を貼り付けることではない。Visioの持つ強力なShapeSheetの演算エンジンと、VBAの制御力を結合し、「メンテナンスフリーな自律型図面」をコードで組み上げることだ。
今回解説した `FormatForArgs` およびフィールド連動のテクニックは、その氷山の一角に過ぎない。しかし、この設計思想を身につければ、どんなに複雑なプラント図やシステム構成図であっても、背後のデータと美しく同期するプロフェッショナルなソリューションを構築できるはずだ。現場のエンジニアよ、今すぐそのスパゲッティコードを捨て、構造化された美しい自動化基盤へ移行せよ。
