Visio VBAの断頭台：無限再帰を封じ、イベント駆動の深淵を制御せよ
VisioのVBA開発において、`ShapeAdded`や`CellChanged`といったイベントをハンドリングするのは、いわば「猛獣を飼い慣らす」行為に等しい。一歩間違えれば、自らが記述したコードが次のイベントを誘発し、スタックオーバーフローという名の奈落へシステムを突き落とす。
本稿では、Visioのイベントモデルを根底から支配するための「`Application.EventsEnabled`」による遮断技術と、その周辺に潜むメモリ管理の極意を伝授する。これは、趣味の自動化ではなく、エンタープライズ環境で生き残るための生存戦略だ。
—
1. 無限再帰のメカニズム：なぜシステムは沈黙するのか
Visioはイベント駆動型アーキテクチャを採用している。`ShapeAdded`イベント内で、さらに図形に対して何らかのプロパティ変更を行ったとしよう。その変更自体が新たなイベントをトリガーし、再びハンドラが呼び出される。このループは、OSがスタック領域を使い果たすまで止まらない。
多くの初学者はここで「フラグ変数（Boolean）」で制御しようとするが、それは片手落ちだ。例外発生時にフラグの戻し忘れが生じ、システムが二度とイベントを受け付けない「デッドロック状態」に陥るリスクを孕んでいるからだ。
2. 究極の防衛策：EventsEnabledの排他制御
Visioのグローバル・スイッチである `Application.EventsEnabled` を操作するのが、我々アーキテクトの定石だ。しかし、単に切り替えるだけではプロではない。「例外処理(Error Handling)」とセットで実装することが、堅牢なシステムを作る唯一の道である。
実装例：安全なイベントハンドリングの雛形
‘ イベントハンドラ内での再帰を防ぐための設計パターン
Private Sub Document_ShapeAdded(ByVal Shape As IVShape)
‘ 状態を保存し、イベントを一時停止する
Dim originalEventsEnabled As Boolean
originalEventsEnabled = Application.EventsEnabled
On Error GoTo Cleanup ‘ 万が一の例外でも再開を保証する
Application.EventsEnabled = False
‘ — ここから本来のビジネスロジック —
‘ 例：図形追加時に自動的に特定のカスタムプロパティを付与する
Shape.Cells(“Prop.Status”).Formula = “””Initialized”””
‘ — ビジネスロジック終了 —
Cleanup:
‘ 処理の成否に関わらず必ずイベントを復元する
Application.EventsEnabled = originalEventsEnabled
If Err.Number <> 0 Then
‘ ここで適切にログを吐き、運用者に通知する
Debug.Print “Error in ShapeAdded: ” & Err.Description
End If
End Sub
3. メモリの最適化とアーキテクトの視点
Visioのオブジェクトモデルは、COM（Component Object Model）の薄いラッパーに過ぎない。特に大規模な図面を扱う際、明示的なオブジェクト解放を怠ることはメモリリークを招き、長時間の稼働でプロセスを肥大化させる。
- オブジェクトの早期解放: 不要になった `Shape` や `Page` オブジェクトは、スコープを抜ける前に `Set obj = Nothing` で確実に参照を断つ。
- イベントの動的登録と解除: `Application.EventList` を用いた高度なイベント監視を行う場合、`Sink` オブジェクトを適切に管理しなければ、Visioを閉じてもプロセスが残存する「ゾンビ化現象」が発生する。
4. 現場の教訓：なぜ「そこ」に書くのか
私が長年、大規模な社内システムを見てきて確信していることがある。それは、「イベントハンドラの中にロジックを詰め込むな」ということだ。
イベントハンドラは、あくまで「トリガーを受け取るだけの窓口」として機能させるべきだ。実際の処理は、標準モジュールのプロシージャに分離し、引数でオブジェクトを渡す設計（Dependency Injectionの簡易版）を徹底せよ。これにより、単体テストが容易になり、保守性の低い「スパゲッティコード」の発生を未然に防ぐことができる。
最後に：エンジニアへの提言
Visio VBAは古い言語だが、その背後にあるCOM技術やイベントモデルは、現代の疎結合なシステム設計にも通じる普遍的な知見に満ちている。
`Application.EventsEnabled` は単なるスイッチではない。それは、あなたがシステムのライフサイクルを掌握していることを示す、技術者としての矜持の証だ。コードを書く際、常に「このコードが例外で止まった時、システムはどうなるのか？」を自問自答し続けよ。
それが、真の業務自動化エンジニアへの唯一の道である。
