Visio VBAの闇を制す：オブジェクトライフサイクル管理とメモリ解放の深淵
VisioのVBA開発において、「なんとなく動くコード」と「数万図形の大量処理に耐えうる堅牢なコード」の間には、埋めがたい深淵が存在する。
多くのエンジニアが陥る罠は、Visioのオブジェクトモデルを単なる階層構造としてしか捉えていないことだ。`Application`、`Document`、`Page`、`Shape`――これらは単なる変数ではない。COM（Component Object Model）の参照カウンターによって管理される、メモリ上の実体である。
本稿では、レガシーシステムを延命させ、かつ大規模図形処理を安定して完遂させるための「メモリ管理の極意」を伝授する。
—
1. なぜ「Nothing」を代入するのか？――COM参照カウントの真実
VBAにおけるオブジェクト変数は、実際にはメモリ上の「ポインタ」を保持しているに過ぎない。`Set shp = ActivePage.Shapes(1)` と記述した瞬間、そのShapeオブジェクトの参照カウントはインクリメントされる。
もしプロシージャ内でこれを解放せず放置すれば、VBAのガベージコレクション（GC）はスコープ終了まで待機するが、複雑なループや再帰処理の中でこれを繰り返せば、メモリ断片化や「予期せぬリソース不足」という名の地獄が待っている。
実践的ベストプラクティス：明示的解放のイディオム
以下のコードは、単なる作法ではない。大規模なVisio自動化プロジェクトにおける「生存戦略」である。
Public Sub ProcessLargeDiagram()
Dim appVisio As Visio.Application
Dim doc As Visio.Document
Dim pg As Visio.Page
Dim shp As Visio.Shape
‘ オブジェクトの取得
Set appVisio = Application
Set doc = appVisio.ActiveDocument
Set pg = doc.Pages(1)
‘ 処理ループ：ここで参照を適切に扱う
For Each shp In pg.Shapes
‘ ここで重い処理を行う
Call OptimizeShape(shp)
Next shp
‘ — 逆順での明示的解放 —
‘ 参照したオブジェクトは逆順で解放するのがセオリー
Set shp = Nothing
Set pg = Nothing
Set doc = Nothing
Set appVisio = Nothing
End Sub
—
2. ループ内での「変数使い回し」の危険性
よく見かけるアンチパターンとして、`For Each` ループ内でオブジェクト変数を再代入し続ける設計がある。これはメモリリークの温床だ。
特に、`Shapes`コレクションを反復処理する際、暗黙的に作成されるCOMラッパーがメモリを食いつぶす。これを回避するには、「変数のスコープを極限まで絞る」こと。これがアーキテクトの視点だ。
改善案：内部スコープの分離
‘ メイン処理から分離し、Shape処理を独立したプロシージャにする
Private Sub OptimizeShape(ByRef shp As Visio.Shape)
‘ 内部スコープで完結させることで、終了時に参照カウントが自動的に下がる
‘ 大規模処理時は、ここで DoEvents を差し込みOSのイベント処理を許可するのも手だ
If shp.Type = visTypeShape Then
‘ 処理内容
End If
‘ 明示的解放はここでは不要（スコープ終了と共に参照が切れるため）
End Sub
—
3. レガシー環境におけるWindows APIとの連携
Visio VBAが不安定になる原因の多くは、Visio内部のキャッシュ制御にある。時には、Windows APIを叩いてメモリを強制的に整理させる必要がある。
`Set obj = Nothing` だけではOSレベルのメモリが即座に解放されるとは限らない。`CoFreeUnusedLibraries` 等のAPIを駆使し、COMのライブラリを解放するアプローチは、10年以上稼働するシステムを支えるエンジニアの常套手段だ。
‘ 宣言
Private Declare PtrSafe Sub CoFreeUnusedLibraries Lib “ole32.dll” ()
Public Sub ForceMemoryCleanup()
‘ 強力なメモリ解放の儀式
‘ 大規模な図形生成が完了した直後に呼び出す
CoFreeUnusedLibraries
End Sub
—
4. 伝説のエンジニアが残す「鉄則」
最後に、Visio自動化を極めるための3つの哲学を贈る。
1. Collectionを信じるな: `Shapes(i)` をループで叩き続けると、インデックスの再計算が走りパフォーマンスが極端に落ちる。一度変数に格納し、その変数に対して操作せよ。
2. Application.ScreenUpdatingを制御せよ: `Application.ScreenUpdating = False` は必須。これだけで処理速度は5倍以上変わる。だが、エラー発生時にTrueに戻すエラーハンドリングを忘れると、ユーザーを絶望させることになる。
3. Nothingを怠る者は死を待つのみ: 「マクロを連続実行すると徐々に重くなる」という現象は、100%メモリリークだ。記述するすべてのオブジェクト変数に、責任を持って `Nothing` を与えよ。
Visioという巨大なCOMサーバーを操ることは、OSのリソースとの静かな戦いである。細部への執着こそが、システムの寿命を決定する。君たちのコードが、10年後のメンテナンス担当者に感謝されることを願う。
