Visio VBAを掌握する極限の知見：なぜあなたのツールは「ゾンビ化」するのか
Visio VBAで自動化ツールを組んでいると、必ず一度は直面する怪奇現象がある。
「マクロを終了しても、Visioのプロセスがタスクマネージャーから消えない」
あるいは、「2回目にマクロを実行すると、不可解なエラーで落ちる」。
これらは単なるバグではない。あなたがVisioのオブジェクトモデルの「生命維持装置」を正しく扱えていない証拠だ。今回は、Visio VBAにおいて最も軽視され、かつ最も重要な「Nothingによるメモリ解放」の真実を語る。
—
1. Visioのオブジェクトモデルが抱える「参照カウント」の罠
Visioのオブジェクト（`Application`, `Document`, `Page`, `Shape`など）は、VBA変数を介してメモリ上に確保される。VBAはガベージコレクションを搭載しているが、VisioのようなCOMサーバーは、「誰かがまだ私を使っているかもしれない」と判断すると、意図的にプロセスを終了させないという性質がある。
あなたが変数を宣言し、`Set`でインスタンスを代入した瞬間、そのオブジェクトの参照カウントは増える。マクロの終了時にこのカウントがゼロにならない限り、Visioはメモリ上に残り続ける。これが、貴方のPCを重くし、二重起動による競合や、ファイルロックの引き金となる「ゾンビプロセス」の正体だ。
—
2. 実践：堅牢なコードの「作法」
初心者が見落としがちなのは、変数のスコープ内での後始末だ。プロの現場では、「生成した順番の逆順で破棄する」のが鉄則である。
以下のコードは、単なるコピペ用ではない。実務で大規模な図面処理を行う際に、メモリリークを確実に防ぐための「標準テンプレート」だ。
Public Sub ProcessVisioShapes()
‘ オブジェクト変数を宣言（必ず初期化状態を明示する）
Dim appVisio As Visio.Application
Dim doc As Visio.Document
Dim pg As Visio.Page
Dim shp As Visio.Shape
On Error GoTo ErrorHandler
‘ 実行中のVisioインスタンスを取得
Set appVisio = Application
Set doc = appVisio.ActiveDocument
Set pg = doc.Pages(1)
‘ — ここにメインの処理を記述 —
For Each shp In pg.Shapes
Debug.Print “Processing: ” & shp.Name
Next shp
CleanExit:
‘ 【重要】生成した逆順で解放する
‘ これを怠るとメモリリークが発生し、プロセスの残存を招く
Set shp = Nothing
Set pg = Nothing
Set doc = Nothing
Set appVisio = Nothing
Exit Sub
ErrorHandler:
MsgBox “エラー発生: ” & Err.Description, vbCritical
Resume CleanExit
End Sub
なぜ `Nothing` を代入するのか？
`Set obj = Nothing` は、単なるおまじないではない。これはVBAに対して「この変数とオブジェクトの接続を強制的に断て」と命令する行為だ。特にループ処理の中でShapeを次々と操作する場合、参照を明示的に切らないと、膨大なメモリを消費し、Visioの描画パフォーマンスは劇的に低下する。
—
3. 現場で生き残るための「3つの鉄則」
① `On Error GoTo` は必須
エラーが発生した際、`CleanExit`（後始末セクション）を通らずにプログラムが終了すると、メモリ解放コードが実行されない。常にエラーハンドラを書き、どんな状況でも必ず `Nothing` を通る動線を作れ。
② グローバル変数の使用を避ける
もし `Public` や `Global` でオブジェクト変数を定義しているなら、それは直ちに設計を見直すべきだ。グローバルな参照はライフサイクルが長くなりすぎて、どこで解放すべきかの管理が不可能になる。「必要な時に生成し、用が済んだら捨てる」。これがメモリ管理の王道だ。
③ データベース・ファイル連携時の注意
外部のExcelやAccess、あるいはXMLファイルと連携する場合、`Set` を使う対象が二重に増える。
- `Set xlApp = CreateObject(“Excel.Application”)`
- `Set xlBook = xlApp.Workbooks.Open(…)`
これらを一つでも解放し忘れると、バックグラウンドで隠れたExcelプロセスがVisioの足を引っ張ることになる。外部連携時こそ、徹底した `Nothing` の代入が不可欠だ。
—
結びに代えて
自動化エンジニアにとって、コードが「動く」ことは最低条件に過ぎない。真のエンジニアは、「コードが終了した後、PCの状態がどうなっているか」までを設計図に含める。
`Nothing` を書くことは、Visioに対する礼儀であると同時に、貴方のプログラムを「プロの品質」に押し上げる最後のピースだ。次にエディタを開くときは、ぜひこの作法を忘れないでほしい。
あなたのコードが、今日も安定して走り続けることを期待している。
