【Visio VBAを掌握する極限の知見】外部依存を根絶せよ：Document.Mastersによる動的ステンシルロードとメモリ要塞化の設計
現場のエンジニアなら誰もが一度は直面する悪夢がある。社内ニッチな自動図面生成ツールを配布したはいいが、「指定されたパスにステンシルファイル（.vssx）が見つかりません」というエラーでヘルプデスクが炎上する事態だ。
パスのハードコーディング、共有ネットワーク切断時のフリーズ、バージョン差異によるシェイプIDの崩壊。これらはすべて、Visioのオブジェクトモデルの本質を見誤った設計が生んだ技術的負債に他ならない。
真にロバストなVisioソリューションにおいて、外部の`.vssx`ファイルに実行時依存してはならない。ステンシルはドキュメントの内部（`Document.Masters`）にカプセル化し、VBAのメモリ管理の鉄則に従って動的にロード・インスタンス化するべきである。
本稿では、レガシーなファイル依存を完全に断ち切り、単一の(`.vsdm`)ファイル内で完結する動的マスターシェイプ生成エンジンを構築する極限の知見を授ける。
—
1. Visioオブジェクトモデルの深層：Mastersコレクションの真実
多くの初学者は、`ActiveDocument.Masters.Add` を使えば簡単にシェイプが追加できると勘違いしている。しかし、Visioの裏側にあるCOMのライフサイクルを理解していなければ、メモリリークの温床となる。
外部ステンシルロードのメカニズム
Visioにおいて、ステンシル（`.vssx` / `.vss`）は独立した`Document`オブジェクトである。これを背後（Invisible）で開き、必要なマスター（`Master`オブジェクト）をターゲットドキュメントの`Masters`コレクションに「コピー（インポート）」することで、初めて図面上にドロップ可能な状態になる。
ここで重要なのは、「元となったステンシル文書のドキュメントハンドルを適切に解放しているか」という点だ。これを怠ると、Visioプロセス内にゴーストドキュメントが残留し、メモリ消費量が肥大化するだけでなく、最悪の場合ファイルロックを引き起こす。
—
2. 実装：外部依存ゼロを実現する動的ロード・エンジン
以下のコードは、指定されたステンシルファイルからマスターシェイプを動的に取得し、現在のページにドロップ、さらに不要になったドキュメントオブジェクトを完全かつ安全にメモリからパージするプロダクション品質のVBAモジュールである。
エラーハンドリング、オブジェクトの明示的解放（`Nothing`代入）、そしてVisio特有のサイレントオープン（`visOpenHidden`）を完璧に網羅している。
Option Explicit
‘ ==============================================================================
‘ 業務自動化アーキテクチャ基盤: 外部依存なし動的シェイプ生成エンジン
‘ ==============================================================================
Public Sub GenerateShapeDynamically()
Dim targetStencilPath As String
Dim masterName As String
Dim targetPage As Visio.Page
‘ ※環境に合わせてパスとマスター名を変更してください
‘ 例: 社内共有サーバーやアドイン内蔵のリソースパスを指定
targetStencilPath = ThisDocument.Path & “Resources\Infrastructure_Icons.vssx”
masterName = “Cloud Server” ‘ ステンシル内のマスター名
Set targetPage = ActivePage
‘ 動的ロードの実行とエラーハンドリング
On Error GoTo ErrorHandler
Dim generatedShape As Visio.Shape
Set generatedShape = LoadMasterAndDrop(targetStencilPath, masterName, targetPage, 3.5, 5.0)
If Not generatedShape Is Nothing Then
MsgBox “シェイプの動的生成に成功しました。ID: ” & generatedShape.ID, vbInformation, “Architecture Engine”
End If
Exit Sub
ErrorHandler:
MsgBox “致命的なエラーが発生しました: ” & Err.Description, vbCritical, “System Error”
End Sub
‘ ==============================================================================
‘ 核心関数: ステンシルからマスターを取得し、ターゲットページにドロップする
‘ ==============================================================================
Private Function LoadMasterAndDrop(ByVal stencilPath As String, _
ByVal masterName As String, _
ByVal targetPage As Visio.Page, _
ByVal posX As Double, _
ByVal posY As Double) As Visio.Shape
Dim srcDocs As Visio.Documents
Dim stencilDoc As Visio.Document
Dim targetMaster As Visio.Master
Dim workingMaster As Visio.Master
Dim droppedShape As Visio.Shape
Set srcDocs = Application.Documents
‘ 1. 存在確認
If Dir(stencilPath) = “” Then
Err.Raise 513, “LoadMasterAndDrop”, “指定されたステンシルファイルが存在しません: ” & stencilPath
End If
‘ 2. ステンシルを非表示（Invisible）でオープン
‘ ※ visOpenHidden を使用することで、ユーザーにUIのちらつきを与えずメモリ効率を最適化
Set stencilDoc = srcDocs.OpenEx(stencilPath, visOpenHidden)
‘ 3. ステンシル内から対象のマスターを検索
On Error Resume Next
Set targetMaster = stencilDoc.Masters(masterName)
On Error GoTo 0
If targetMaster Is Nothing Then
stencilDoc.Close
Set stencilDoc = Nothing
Err.Raise 514, “LoadMasterAndDrop”, “ステンシル内に指定されたマスターが見つかりません: ” & masterName
End If
‘ 4. 現在のドキュメントの Masters コレクションに存在するか確認（二重登録防止）
On Error Resume Next
Set workingMaster = ActiveDocument.Masters(masterName)
On Error GoTo 0
If workingMaster Is Nothing Then
‘ ドキュメントに存在しない場合のみ、マスターをドキュメント側へ取り込む
‘ ※ドキュメント内にマスターが焼き込まれるため、以降はこのステンシルファイルへの依存が消滅する
Set workingMaster = ActiveDocument.Masters.AddCopy(targetMaster)
End If
‘ 5. ページ上にインスタンスをドロップ
Set droppedShape = targetPage.Drop(workingMaster, posX, posY)
‘ 6. ライフサイクル管理：隠しオープンしたステンシルドキュメントの即座クローズ
‘ 既に Masters.AddCopy で必要なバイナリは自ドキュメント内に取り込んでいるため、元ファイルは不要
stencilDoc.Close
‘ 戻り値の設定
Set LoadMasterAndDrop = droppedShape
GoTo CleanUp
CleanUp:
‘ ==========================================================================
‘ メモリ最適化（Object Hygiene）: 参照の完全破棄
‘ COMの参照カウントをデクリメントし、メモリリークを根絶する
‘ ==========================================================================
Set droppedShape = Nothing
Set workingMaster = Nothing
Set targetMaster = Nothing
Set stencilDoc = Nothing
Set srcDocs = Nothing
Exit Function
Resume CleanUp
End Function
—
3. シニアエンジニアが知るべき「メモリ要塞化」とパフォーマンスの極意
上記のコードには、単なる「動くコード」を超えた、エンタープライズ環境に耐えうる設計思想が組み込まれている。
① `visOpenHidden` によるUIスレッドの保護
通常 `Documents.Open` を実行すると、Visioの画面上に余計なステンシルウィンドウが出現し、描画処理の負荷（リフローやイベント発火）が発生する。`OpenEx` メソッドと `visOpenHidden` フラグを組み合わせることで、完全なバックグラウンド処理を実現し、マクロ実行速度を劇的に向上させている。
② ドキュメント内包化（Self-Contained Architecture）
`ActiveDocument.Masters.AddCopy(targetMaster)` を実行した瞬間、マスターシェイプのマスターデータ（ジオメトリ、シェイプシートの数式、カスタムプロパティ）はすべて実行中の `.vsdm` ファイルの内部領域にコピーされる。
これにより、一度コードを実行してシェイプを取り込んでしまえば、元の `.vssx` ファイルを削除・移動しても、図面内のシェイプは何事もなく正常に動作し続ける。まさに「配布可能なツール」の要件を完璧に満たすアプローチである。
③ 徹底的なオブジェクトの解放（Nullification）
VBAのガベージコレクションは参照カウント方式である。プロシージャ内で生成した `Visio.Document` や `Visio.Master` などのCOMオブジェクトは、明示的に `Set xxx = Nothing` を行わないと、VBAのホストプロセスが終了するまでメモリ上に残存し続ける。数千回に及ぶ図面生成バッチ処理において、この解放漏れは確実にOutOfMemoryクラッシュを引き起こす。上記の `CleanUp` ラベルによる確実な参照断ち切りは、大規模システム開発の必須作法である。
—
総括
「ファイルがない」「パスが違う」というインフラ起因のトラブルを、コードの力で完全に過去のものにせよ。
`Document.Masters` をマスターした者だけが、ユーザーの環境に依存しない、真に強靭で自律的なVisio自動化ソリューションを構築できる。レガシーの呪縛を断ち切り、コードの隅々にまでエンジニアリングの美学を宿せ。
