【Visio VBA極限解説】コードがコードを書く領域へ：`Document.VBProject` によるメタプログラミングの要諦
こんにちは。開発プロジェクトの現場を率いるチーフアーキテクトの私だ。
これまで数々の巨大なVisio自動化ソリューションを手がけてきたが、その中でも最も強力かつ、取り扱いを誤ればプロジェクトを崩壊させる「禁断の果実」について話そう。
それが、`Document.VBProject` を用いたメタプログラミングだ。
「VBAからVBAコードを動的に生成し、埋め込み、書き換える」
この技術をマスターすれば、配布用インストーラーの自動生成、ユーザーの操作に応じて最適化されたイベントハンドラの動的注入、さらには「自己拡張型」の巨大な業務自動化プラットフォームが構築可能になる。
しかし、甘い蜜には毒がある。セキュリティ設定の壁、参照設定の迷宮、そしてオブジェクトのライフサイクルを無視したクラッシュの嵐。
今回は、現場で即座に使える堅牢なプロダクションコードと共に、この領域を安全に掌握するための極限の知見を伝授する。
—
1. なぜ「普通のVBA」では不十分なのか？
通常のVisio開発では、あらかじめVBAエディタ（VBE）を開いてモジュールを記述し、ステンシルや図面テンプレート（`.vstm`）として配布するのが定石だ。
だが、以下のような要件に直面したことはないか？
- ユーザーが入力したパラメータに基づいて、完全にカスタム化されたイベントコードを持つ図面ファイルをその場で生成し、別部門にメール送信したい。
- テンプレート側に全機能を載せるとファイルが肥大化するため、必要な時だけ外部からロジックを流し込みたい。
- 配布後に発覚したバグを、マスター図面から一斉にリモート書き換えしたい。
これらを解決するのがメタプログラミングだ。Visioのドキュメント自体が持つVBAプロジェクト（`VBProject`）へ直接アクセスし、コードモジュールの挿入やテキスト操作を行う。
—
2. 開発の前に：絶対に超えなければならない「2つの壁」
実務のコードを書く前に、VisioおよびOfficeのセキュリティアーキテクチャにおける「絶対的な前提条件」をクリアしておかなければならない。これを怠ると、コードは一瞬で実行時エラー（あるいは沈黙）に終わる。
壁①：VBEプロジェクトへのプログラムからのアクセスを許可
ExcelやWordと同様に、Visioでもデフォルトでは外部プログラムからのVBAプロジェクトへのアクセスがセキュリティ上、遮断されている。
- 設定方法: Visioの [ファイル] ＞ [オプション] ＞ [トラスト センター] ＞ [トラスト センターの設定] ＞ [マクロの設定] における、「Visual Basic プロジェクトへのアクセスを信頼する」にチェックを入れる必要がある。
- 実務での対策: 配布先PCでこの手動設定を強いるのは困難なため、グループポリシー（GPO）での一括適用や、インストーラー側でのレジストリ書き換えをスキップ条件に組み込む設計が不可欠となる。
壁②：セーブ時・実行時の信頼性（Trust the access to the VBA project object model）
コード自体が動的に書き換わるファイルは、当然ながらマクロ有効図面（`.vsdm`）である必要がある。バイナリ形式（`.vsd`）ではVBProject操作は失敗する。
—
3. 【プロダクションコード】安全にモジュールを生成・書き換える実用実装
ここからは、実際にVisioのVBAから自身の（あるいは別ドキュメントの）`VBProject`を操作し、標準モジュールの追加、コードの注入、そしてプロシージャの動的書き換えを行う堅牢なコードを公開する。
エラーハンドリングを徹底し、メモリリークやVBEの参照ロスを防ぐプロ仕様の設計だ。
Option Explicit
‘ =========================================================================
‘ 模範的メタプログラミング：Visioドキュメントへの動的コードインジェクション
‘ =========================================================================
Public Sub InjectDynamicCodeToActiveDocument()
Dim targetDoc As Visio.Document
Dim vbProj As Object ‘ VBIDE.VBProject
Dim vbComp As Object ‘ VBIDE.VBComponent
Dim codeModule As Object ‘ VBIDE.CodeModule
‘ 1. 対象ドキュメントの特定（ここではアクティブドキュメント）
Set targetDoc = Visio.ActiveDocument
‘ セキュリティチェック：マクロ有効形式 (.vsdm) であることを保証
If Not IsVsdmFormat(targetDoc) Then
MsgBox “エラー: アクティブな図面はマクロ有効形式 (.vsdm)ではありません。”, vbCritical, “メタプログラミング制御”
Exit Sub
End If
On Error GoTo ErrorHandler
‘ 2. VBProjectの取得（Microsoft Visual Basic for Applications Extensibility 5.3 が前提）
‘ ※レジストリ依存を避けるため、遅延バインディング（CreateObject等）またはObject型で受ける
Set vbProj = targetDoc.VBProject
‘ 3. 既存の動用モジュールがあれば一度削除してクリーンな状態にする（重複防衛）
Call RemoveComponentIfExists(vbProj, “modGeneratedLogic”)
‘ 4. 新規標準モジュール（vbext_ct_StdModule = 1）の追加
Set vbComp = vbProj.VBComponents.Add(1)
vbComp.Name = “modGeneratedLogic”
‘ 5. コードモジュールの取得とコードの書き込み
Set codeModule = vbComp.CodeModule
Dim codeLines As String
codeLines = BuildDynamicCodeString()
‘ モジュールへコードを流し込む
codeModule.AddFromString codeLines
MsgBox “コードの動的生成とインジェクションに成功しました！”, vbInformation, “チーフアーキテクトからの通知”
Exit Sub
ErrorHandler:
MsgBox “致命的なエラーが発生しました: ” & Err.Description & ” (Line: ” & Err.Number & “)”, vbCritical
‘ 必要に応じたログ出力やロールバック処理をここに記述
End Sub
‘ =========================================================================
‘ 補助関数群：堅牢性を担保するプライベートメソッド
‘ =========================================================================
Private Function IsVsdmFormat(doc As Visio.Document) As Boolean
‘ 簡易的な拡張子チェック（実務ではPathプロパティやSaveAs等も考慮）
If doc.Path = “” Then
IsVsdmFormat = False ‘ 未保存の場合は判定不能またはFalse扱い
Exit Function
End If
Dim ext As String
ext = LCase(Mid(doc.Path, InStrRev(doc.Path, “.”)))
IsVsdmFormat = (ext = “.vsdm” Or ext = “.vstm”)
End Function
Private Sub RemoveComponentIfExists(vbProj As Object, componentName As String)
Dim comp As Object
On Error Resume Next
Set comp = vbProj.VBComponents(componentName)
If Not comp Is Nothing Then
vbProj.VBComponents.Remove comp
End If
On Error GoTo 0
End Sub
Private Function BuildDynamicCodeString() As String
Dim sb As String
‘ 改行コードを用いてVBAコードの文字列を構築
sb = “‘ ————————————————–” & vbCrLf
sb = sb & “‘ 自動生成されたモジュール：modGeneratedLogic” & vbCrLf
sb = sb & “‘ 生成日時: ” & Now & vbCrLf
sb = sb & “‘ ————————————————–” & vbCrLf
sb = sb & “Option Explicit” & vbCrLf & vbCrLf
sb = sb & “Public Sub DynamicExecutedProcedure()” & vbCrLf
sb = sb & ” MsgBox “”こんにちは！このメッセージは動的に注入されたコードから出力されています。””, vbInformation, “”動的実行””” & vbCrLf
sb = sb & “End Sub” & vbCrLf
BuildDynamicCodeString = sb
End Function
—
4. チーフアーキテクトが教える、現場で絶対にハマる「3つの罠」
このコードをそのまま実務に投入する際、プロのエンジニアなら知っておくべき「現場の知見」を共有しよう。
① 参照設定の地獄を回避せよ (`Object` 型の徹底活用)
`VBIDE.VBProject` や `VBIDE.VBComponent` を扱う際、アーリーバインディング（`Microsoft Visual Basic for Applications Extensibility 5.3` の参照設定）を行いたくなる。
しかし、絶対にやるな。
異なるOfficeのバージョンや環境間において、このGUID参照はしばしば破損し、「Compile Error: Can’t find project or library」という悪名高いエラーを引き起こす。コード内では常に `Object` 型による遅延バインディングを貫くこと。これがマルチ環境で生き残る唯一の道だ。
② セキュリティソフトとアンチウイルスによる「偽陽性」
動的にコードを生成し、VBAプロジェクトを書き換えるという振る舞いは、マクロウイルス（マルウェア）のそれと完全に一致する。
そのため、企業内の厳格なEDR（Endpoint Detection and Response）やウイルス対策ソフトが、このVBA実行時にプロセスを強制終了させたり、ファイルを隔離したりすることがある。
インストーラーや自動生成ツールを設計する際は、「なぜこの挙動が必要なのか」をインフラ部門に事前に説明し、ハッシュ値の除外申請を行うなどの政治的・運用的な対策もエンジニアの仕事の内だと心得よ。
③ アンドゥ（Undo）スタックとの決別
VBProjectを操作するコードは、Visioの「アンドゥ（元に戻す）スタック」には一切記録されない。モジュールの追加や削除、コードの書き換えは一瞬で行われ、かつ不可逆である。
必ず操作対象のドキュメントのバックアップ（スナップショット）を事前にプログラム側で別名保存してから、メタプログラミングを実行する設計にしなければならない。
—
5. おわりに：メタプログラミングの向こう側へ
`Document.VBProject` を操る技術は、単なる小手先のテクニックではない。それは、Visioという静的な図面描画ソフトを、「自らを変異させ、環境に適応する動的なアプリケーションプラットフォーム」へと昇華させるための鍵だ。
ただし、力には常に責任が伴う。保守性、セキュリティ、エラーハンドリングの三位一体を絶対に崩すな。
君たちの開発する自動化ソリューションが、この知見によって極限まで洗練されたものになることを期待している。
