Visio VBAを掌握する極限の知見：`Document.VBProject` による自己拡張型ツールの設計論
Visio VBAの領域において、多くの開発者は `Application`、`Document`、`Page`、`Shape` といった表層的なオブジェクト操作にとどまる。しかし、真のアーキテクトが直面するのは、「いかにしてコード自身がコードを生み出し、配布可能な単一のバイナリ（`.vsdm`）を動的に構築するか」というメタプログラミングの壁である。
本稿では、Visioドキュメントの内部VBE（Visual Basic for Applications）環境にプログラムからアクセスし、標準モジュールやクラスモジュールを動的にインポート・生成する「自己拡張型ツール（Self-Extending Tool）」の設計パターンを解説する。
—
1. 開発現場のパラダイムシフト：なぜ「コードの動的生成」が必要なのか
大規模な社内フロー図自動生成システムや、外部DBと連動する図面管理基盤を構築する際、次のようなジレンマに陥ったことはないだろうか。
- 配布の複雑性: ユーザーに「テンプレートを開き、マクロを有効にし、別のアドインを組み込んで…」と手順を強いると、運用フェーズで必ず破綻する。
- バージョン管理のコスト: 図面ファイル (.vsdx) とマクロファイル (.vstm / .vsdm) が分離していると、改修時の同期ミスが頻発する。
解決策:
「空のVisioドキュメントをプログラムから新規生成し、必要なビジネスロジック（VBAコード）をその場でコンポーネントとして埋め込み、完全な自己完結型マクロ有効ドキュメントとして出力する」――このアーキテクチャを実現するのが `Document.VBProject` である。
—
2. アーキテクチャの前提条件とセキュリティの罠
`Document.VBProject` を操作するには、ExcelやWordと同様に、Officeのセキュリティ設定の壁を突破しなければならない。ここを理解していないと、コードは容赦なく実行時エラーを吐く。
必須の事前設定
1. 「VBA プロジェクトへのアクセスを信頼する」の有効化
Excel等の「ファイル」>「オプション」>「トラストセンター」>「トラストセンターの設定」>「マクロの設定」にある 「VBA プロジェクト オブジェクト モデルへのアクセスを信頼する」 にチェックが入っている必要がある。これをレジストリ経由、あるいはグループポリシーで強制展開するのがエンタープライズ環境における前提条件となる。
2. ファイル形式の制約
マクロを格納するため、出力先のドキュメント形式は必ずマクロ有効図面（.vsdm）である必要がある。通常の `.vsdx` にコードを書き込もうとすると、VBAプロジェクト自体が存在しないためエラーとなる。
—
3. 実装コード：VBAモジュール動的インポートエンジン
以下のコードは、既存のマスターテンプレートまたは外部テキストファイルからVBAソースコードを読み込み、ターゲットとなるVisioドキュメントの `VBProject` へ動的に挿入、最終的に `.vsdm` として保存するプロフェッショナルグレードの実装である。
Option Explicit
‘ ==============================================================================
‘ 処理名: ターゲットVisioドキュメントへのVBAモジュール動的インポート
‘ 概要: 指定された空のドキュメントに標準モジュールとクラスモジュールを
‘ プログラムから動的に追加し、マクロ有効図面として保存する。
‘ ==============================================================================
Sub GenerateSelfExtendingVisioDocument()
Dim targetDoc As Visio.Document
Dim targetVbp As Object ‘ VBIDE.VBProject
Dim vbComp As Object ‘ VBIDE.VBComponent
‘ 出力パスの設定
Dim outputPath As String
outputPath = “C:\Automation\GeneratedTool_” & Format(Now, “yyyymmdd_HHMMSS”) & “.vsdm”
‘ 1. 新規ドキュメントの作成（ステンシルなしの空白ドキュメント）
Set targetDoc = Documents.Add(“”)
On Error GoTo ErrorHandler
‘ 2. VBProjectオブジェクトの取得
‘ ※「VBA プロジェクトへのアクセスを信頼する」が有効であることが前提
Set targetVbp = targetDoc.VBProject
‘ 3. 標準モジュールの動的追加とコード注入
Set vbComp = targetVbp.VBComponents.Add(1) ‘ 1 = vbext_ct_StdModule
vbComp.Name = “modAutoGeneratedLogic”
Dim standardCode As String
standardCode = “Option Explicit” & vbCrLf & _
“Sub HelloFromDynamicWorld()” & vbCrLf & _
” MsgBox “”このコードは動的に生成され、実行されています。””, vbInformation, “”System Info””” & vbCrLf & _
“End Sub”
vbComp.CodeModule.AddFromString standardCode
‘ 4. クラスモジュールの動的追加（イベント処理やデータ保持用）
Set vbComp = targetVbp.VBComponents.Add(2) ‘ 2 = vbext_ct_ClassModule
vbComp.Name = “clsEventProcessor”
Dim classCode As String
classCode = “Option Explicit” & vbCrLf & _
“Private Sub Class_Initialize()” & vbCrLf & _
” ‘ クラス初期化時の処理” & vbCrLf & _
“End Sub”
vbComp.CodeModule.AddFromString classCode
‘ 5. マクロ有効形式 (.vsdm) として保存
targetDoc.SaveAsEx outputPath, visSaveAsMacroEnabled
MsgBox “自己拡張型Visioツールの生成に成功しました。” & vbCrLf & “出力先: ” & outputPath, vbInformation, “完了”
CleanUp:
‘ オブジェクトの明示的解放（メモリリーク防止）
Set vbComp = Nothing
Set targetVbp = Nothing
Set targetDoc = Nothing
Exit Sub
ErrorHandler:
MsgBox “致命的なエラーが発生しました: ” & Err.Description, vbCritical, “エラー”
Resume CleanUp
End Sub
—
4. チーフアーキテクトが解説する：メモリ最適化とVBEの闇
上記のコードを単なる「動くサンプル」で終わらせず、極限の安定性を求めるシステムに組み込むための知見を共有する。
オブジェクトの明示的解放とCOMの参照カウンタ
VBAから `VBIDE`（Microsoft Visual Basic for Applications Extensibility 5.3）のコンポーネントを操作する場合、背後でCOMオブジェクトの参照カウンタが複雑に変動する。
特に `targetDoc.VBProject` や `VBComponents` を連続して取得・操作する際、ローカル変数の解放を怠ると、VBEのセッションがメモリ上に残存し、Visioプロセスそのものが終了できなくなる「ゾンビプロセス問題」を引き起こす。
必ず上記コードの `CleanUp` ラベルのように、関連するオブジェクト変数を `Set ◯◯ = Nothing` で明示的に解放し、COMインターフェースの解放を強制すること。
外部ファイルからのコードインポート（実運用パターン）
上記サンプルでは `AddFromString` を用いてコードを文字列として直書きしているが、大規模なアプリケーションを構築する場合、この手法は保守性が最悪になる。
実運用では、バージョン管理された外部の `.bas` や `.cls` ファイルをあらかじめ用意し、以下のメソッドでインポートするのが定石である。
‘ 外部ファイルからのモジュールインポート実例
targetVbp.VBComponents.Import “C:\SourceRepo\VisioModules\modCoreLogic.bas”
このアプローチにより、Git等でVBAコードの差分管理を行いながら、デプロイ時に最新のコードをVisioドキュメントへ流し込むCI/CDパイプライン的な自動化が可能となる。
—
5. まとめ
`Document.VBProject` を操る技術は、単なる「VBAの自動化」の枠を超え、「ソフトウェアがソフトウェアをビルドする」というメタプログラミングの領域に踏み込むものである。
社内ニッチな要件や、ユーザーのリテラシーに依存しない完全自動化されたツールチェーンを構築したいシニアエンジニアにとって、この手法は強力な武器となる。セキュリティポリシーの壁さえクリアできれば、Visioは単なるお絵描きツールから、高度な業務ロジックを内包した「自律型ドキュメント生成エンジン」へと変貌を遂げるのだ。
