Visioを「生きたシステム」に変える：ApplicationEventを用いた次世代自動監視アーキテクチャ
Visioを単なる作図ツールとして使うのは、フェラーリを近所のコンビニの買い物に使うようなものだ。
君たちが目指すべきは、Visioを「業務プロセスのフロントエンド」へと昇華させることだ。ユーザーが図形を置いた瞬間、あるいはドキュメントを保存した瞬間に、裏側でデータベースを更新し、整合性を担保する。これこそが、我々エンジニアが提供すべき「自動化」の正体である。
本稿では、Visio VBAにおいて最も強力でありながら、最も実装難易度が高い「ApplicationEvent」を用いた常駐型監視システムの設計思想を伝授する。
—
1. なぜ「標準モジュール」だけでは限界なのか
多くの初学者は、標準モジュールに処理を書き、ボタンを押して実行する。だが、これでは「ユーザーがボタンを押す」というトリガーが必要だ。
プロフェッショナルは「イベントドリブン（イベント駆動）」で考える。
Visioのオブジェクトモデルには`Application`オブジェクトが存在し、このインスタンスが発するイベントをクラスモジュールで「沈黙のうちに監視（フック）」する。これが、真の自動化ツールへの第一歩だ。
2. 堅牢な設計：クラスモジュールの役割
Visioでイベントを捉えるためには、`WithEvents`キーワードを冠したクラスモジュールが必須となる。ここで重要なのは、「監視対象をグローバル変数で保持し、メモリリークを防ぐ」ことだ。
実装：イベントハンドラーの構築
まずは、イベントを管理するクラスモジュール（名前：`EventMonitor`）を作成する。
‘ クラスモジュール: EventMonitor
Option Explicit
‘ WithEventsキーワードでVisioのApplicationイベントを監視対象にする
Public WithEvents App As Visio.Application
‘ 図形がドキュメントに追加された瞬間に発火するイベント
Private Sub App_ShapeAdded(ByVal Shape As IVisio.Shape)
‘ エラーハンドリングは必須。ここで落ちるとVisio全体が巻き込まれる
On Error GoTo ErrorHandler
Debug.Print “図形が追加されました: ” & Shape.Name
‘ ここにDB連携やログ出力などの業務ロジックを記述する
Exit Sub
ErrorHandler:
MsgBox “イベント処理中にエラーが発生しました: ” & Err.Description
End Sub
‘ ドキュメント保存時のフック
Private Sub App_DocumentSaved(ByVal Doc As IVDocument)
Debug.Print “ドキュメントが保存されました: ” & Doc.Name
End Sub
3. 常駐プロセスを起動する：シングルトンパターンの適用
クラスを作っただけでは何も起きない。このクラスをインスタンス化し、Visioのライフサイクルに紐付ける必要がある。標準モジュールで、この「監視人」を立ち上げる。
‘ 標準モジュール: Module_Init
Option Explicit
‘ 監視用クラスのインスタンスを保持する変数
‘ 終了時に解放されないよう、モジュールレベルで宣言する
Public Monitor As EventMonitor
Public Sub StartMonitoring()
‘ 既に監視中なら二重起動を防ぐ
If Monitor Is Nothing Then
Set Monitor = New EventMonitor
Set Monitor.App = Application
MsgBox “監視エンジンを起動しました。”
End If
End Sub
4. 現場で生き残るための「鉄則」
このアーキテクチャを導入する際、以下の3点を必ず遵守せよ。
1. エラーの封じ込め（Fail-Safe）:
イベントハンドラ内で未処理のエラーが発生すると、Visioのイベントシステムが停止し、最悪の場合Visio本体がクラッシュする。すべてのイベントプロシージャには必ず `On Error GoTo` を入れ、ログを残すこと。
2. 再帰呼び出しの回避:
`ShapeAdded` イベント内で図形を操作すると、それがトリガーとなって再び `ShapeAdded` が呼ばれ、無限ループに陥る可能性がある。処理を行う前に `Application.EnableEvents = False` を一時的に実行するなどの防衛策を講じよ。
3. データベース連携の非同期性:
APIやDBとの通信が重い場合、ユーザーの操作（図形のドラッグ等）が極端に重くなる。重い処理は、別スレッド（または別プロセス）に逃がすか、処理をキューイングする設計が必要だ。
5. 最後に：エンジニアとしての矜持
VBAは古い言語だと言われる。しかし、Visioのオブジェクトモデルを深く理解し、そのイベントの深淵を操ることは、システムアーキテクトとしての純粋な技術力を証明することに他ならない。
君が書くそのコードは、誰かの作業時間を削り、ミスを減らし、業務という名のカオスに秩序をもたらす。
さあ、今すぐこの監視エンジンを実装し、動かない図面を「意思を持つ図面」へと変貌させよ。
質問があればいつでも来い。ただし、ドキュメントの隅々まで読み込んだ上での問いであることを期待する。
