Visio VBAを掌握する極限の知見：非表示ステンシルの安全な動的生成とメモリ管理
Visio VBAによる大規模な図面自動生成ツールの開発において、多くのエンジニアが直面する見落としがちな壁がある。それが「ステンシル（.vssx）のライフサイクル管理」だ。
開発時に手動でドキュメントステンシルへマスターシェイプを登録し、それをコードから呼び出すアプローチは、小規模なスクリプトであれば機能する。しかし、数百・数千の図面をバッチ処理する企業内システムや、配布型のスタンドアロンツールにおいて、この手法は「破綻へのカウントダウン」に等しい。
今回は、ツール実行時のみバックグラウンドでステンシルを非表示オープンし、必要なマスターを取得した後に、メモリリークの残響すら残さず確実に破棄・クローズする「非表示ステンシルの動的生成と安全なリソース管理パターン」の極限の知見を公開する。
—
1. なぜ「開きっぱなしのステンシル」は悪なのか？
Visioのオブジェクトモデルにおいて、ステンシル（`Document` オブジェクト）はメモリ上で意外なほど重い負荷を持つ。
- グローバル名前空間の汚染: ステンシルを開くたびに、Visioのドキュメントコレクションにドキュメントが追加される。これを適切にクローズしないと、意図しないマスター名の衝突や、不要なドキュメントイベントのトリガーを引き起こす。
- Visio特有のCOM参照カウンタの闇: VBAのガベージコレクションやCOMの参照管理は、VBA処理系が終了するまでメモリ上にオブジェクトを保持し続ける傾向がある。特に `Documents.OpenEx` や `Document.OpenStencil` を無造作に呼ぶと、Visioのプロセス（`VISIO.EXE`）が終了してもタスクマネージャー上にゾンビプロセスとして残り続ける原因になる。
プロフェッショナルなツール開発において、「リソースは必要なときに最小限のスコープで取得し、用が済み次第、物理的・論理的に完全消去する」ことは鉄則である。
—
2. アーキテクチャ設計：非表示ステンシルパターンの全貌
今回紹介するパターンは、以下の3つのステップで構成される。
1. 非表示モードでのオープン: `Documents.OpenEx` を用い、UIを描画させずにバックグラウンドでステンシルをロードする。
2. マスターシェイプの安全なドロップ/コピー: ターゲットページへ直接マスターをインスタンス化、あるいはアクティブドキュメントへマスターを複製する。
3. 完全なクローズと参照の粉砕: 開いたステンシルドキュメントを明示的に閉じ、VBAの変数に `Nothing` を代入してCOM参照を即時解放する。
—
3. 実装コード：堅牢なリソース管理プロシージャ
以下に、現場のプロダクション環境にそのまま投入できる実用コードを示す。エラーハンドリング（`On Error Goto`）を徹底し、万が一の異常終了時にもメモリリークが起きない構造にしている。
Option Explicit
‘ ==============================================================================
‘ 概要: 指定した外部ステンシルからマスターを一時的に取得し、図面に配置した後に
‘ ステンシルを完全にメモリから解放する堅牢なプロシージャ
‘ ==============================================================================
Public Sub DeployShapeFromHiddenStencil(ByVal stencilPath As String, ByVal masterName As String, ByVal targetX As Double, ByVal targetY As Double)
Dim targetDoc As Visio.Document
Dim targetPage As Visio.Page
Dim stencilDoc As Visio.Document
Dim targetMaster As Visio.Master
Dim droppedShape As Visio.Shape
‘ エラーハンドリングのラベル設定
On Error GoTo ErrorHandler
‘ 1. アクティブなドキュメントとページの特定
Set targetDoc = Visio.ActiveDocument
Set targetPage = Visio.ActivePage
If targetDoc Is Nothing Or targetPage Is Nothing Then
MsgBox “有効なVisioドキュメントおよびページが開かれていません。”, vbCritical, “致命的エラー”
Exit Sub
End If
‘ 2. ステンシルを非表示（Background / ReadOnly）でオープン
‘ VISIOのConstants: visOpenHidden = 64, visOpenRO = 4
Const visOpenHidden As Long = 64
Const visOpenRO As Long = 4
‘ ファイルの存在確認（最低限の防御的実装）
If Dir(stencilPath) = “” Then
Err.Raise vbObjectError + 1000, “DeployShapeFromHiddenStencil”, “指定されたステンシルが見つかりません: ” & stencilPath
End If
‘ バックグラウンドロード実行
Set stencilDoc = Visio.Documents.OpenEx(stencilPath, visOpenHidden + visOpenRO)
‘ 3. ステンシル内から目的のマスターシェイプを取得
On Error Resume Next
Set targetMaster = stencilDoc.Masters.ItemU(masterName)
On Error GoTo ErrorHandler
If targetMaster Is Nothing Then
Err.Raise vbObjectError + 1001, “DeployShapeFromHiddenStencil”, “ステンシル内にマスターが見つかりません: ” & masterName
End If
‘ 4. ターゲットページへマスターをドロップ（インスタンス化）
Set droppedShape = targetPage.Drop(targetMaster, targetX, targetY)
‘ 処理成功時のログ出力（必要に応じてDebug.Printや独自ロガーに接続）
Debug.Print “[INFO] 成功: ” & masterName & ” を配置しました。”
CleanUp:
‘ 5. 【極めて重要】ステンシルドキュメントの安全なクローズと解放
‘ 変更を加えている場合は保存せずに閉じる（visSavePromptNo = 2）
If Not stencilDoc Is Nothing Then
On Error Resume Next
stencilDoc.Close
On Error GoTo 0
Set stencilDoc = Nothing ‘ COM参照の即時破棄
End If
‘ その他のオブジェクト参照も念のためクリア
Set targetMaster = Nothing
Set droppedShape = Nothing
Set targetPage = Nothing
Set targetDoc = Nothing
Exit Sub
ErrorHandler:
‘ 異常系ハンドリング
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical, “システムエラー”
Resume CleanUp
End Sub
—
4. チーフアーキテクトが教える「さらなる最適化と罠」
上記のコードは基本形だが、エンタープライズ領域のシステム連携ではさらに踏み込んだ知見が必要になる。
A. ネットワークパス（UNC）におけるレイテンシ対策
`stencilPath` に `\\server\share\stencil.vssx` のようなネットワークパスを指定すると、Visioの内部エンジンがファイルアクセス時にロックやタイムアウトを引き起こすことがある。
極限のパフォーマンスを求める場合は、VBA実行時に一度 `Environ(“TEMP”)` などのローカル一時フォルダへファイルを `FileSystemObject` 等でコピーし、ローカルパスから `OpenEx` を実行するのが鉄則である。
B. COM解放の作法（`Nothing` 代入のタイミング）
VBAではプロシージャの終了時にローカル変数は自動解放されるが、VisioのCOMオブジェクトは参照カウンタが複雑に絡み合うため、意図したタイミングで `Set obj = Nothing` を明示的に呼ぶことがメモリリークを防ぐ唯一の防壁となる。特にループ内で何度もステンシルを開閉するような悪魔的な設計をする場合は、ループの1イテレーションごとに上記クリーンアップ処理を完結させるべきだ。
C. マスタ名のローカライズ問題
`stencilDoc.Masters.ItemU(masterName)` を使用している点に注目してほしい。
`Item` ではなく `ItemU`（Universal名）を使用することで、日本語版Visio、英語版Visio、あるいはユーザーのOS言語環境に依存せず、不変のマスター名で一意にアクセスできる。グローバル展開されるシステムや、多言語対応が義務付けられたインフラ図面生成ツールでは必須の知見である。
—
総括
VBAはレガシーな言語と揶揄されることがあるが、Visioのオブジェクトモデルを支配する者にとって、それは強力なCAD/図面自動化エンジンを直接叩くための鋭利なメスに他ならない。
今回解説した「非表示ステンシルの動的生成と確実な破棄」のパターンを身につけることで、メモリリークの恐怖から解放され、何千枚もの図面生成をも踏破できる堅牢なツールアーキテクチャが完成する。細部に神は宿る。コードの端々にまでリことわりを持った実装を心がけてほしい。
