Visio VBAの深淵：Event Sinkによるリアルタイム監視とメモリ管理の極意
多くのエンジニアは、Visioを「単なる作図ソフト」と見なす。だが、我々のようなアーキテクトにとって、Visioは「イベント駆動型の空間データベース」に他ならない。
今回は、ApplicationおよびDocumentイベントを掌握し、Visioの挙動を完全に制御下に置くための「Event Sink（イベント・シンク）」アーキテクチャについて語る。これは単なるマクロの記述ではない。Visioという巨大なCOMサーバーのライフサイクルを制御する、高度なエンジニアリングだ。
—
1. なぜ「イベント・シンク」が不可避なのか
Visioで図形の追加や保存を検知しようとしたとき、初心者はタイマーによるポーリングを検討する。しかし、それは愚策だ。CPUサイクルを無駄に消費するだけでなく、マルチスレッドではないVBAの文脈では、UIのフリーズやメモリリークの温床となる。
我々が採用すべきは、Visioが提供する「Eventクラス」によるプッシュ通知型の監視だ。これを実装するには、標準モジュールではなく「クラスモジュール」によるEvent Sinkが必要となる。
—
2. 実装の心臓部：クラスモジュールによるイベントハンドラ
まずは、`clsVisioEvent`というクラスモジュールを作成せよ。ここで重要なのは、`WithEvents`キーワードを使い、VisioのApplication/Documentオブジェクトをスコープに収めることだ。
clsVisioEvent (クラスモジュール)
Option Explicit
‘ WithEventsを使い、Visioのイベントをフックする
Public WithEvents vsoApp As Visio.Application
Public WithEvents vsoDoc As Visio.Document
‘ 図形追加イベントのフック例
Private Sub vsoApp_ShapeAdded(ByVal Shape As IVShape)
‘ 処理のオーバーヘッドを避けるため、必要な検証のみを行う
If Shape.Type = visTypeShape Then
Debug.Print “Shape Added: ” & Shape.Name
‘ ここでメタデータの自動付与やバリデーションを実行する
End If
End Sub
‘ ドキュメント保存時のフック例
Private Sub vsoDoc_BeforeDocumentSave(ByVal Doc As IVDocument)
‘ 保存前にシステム連携用のチェックサムを埋め込むなどの処理が可能
Debug.Print “Saving: ” & Doc.Name
End Sub
—
3. ライフサイクル管理の極限：メモリ解放の作法
VBAにおけるメモリリークの最大の要因は、オブジェクト参照の循環と、プロセスの非明示的な保持にある。特にイベント監視を有効にしたままドキュメントを閉じると、Visioは「ゾンビ化したイベントハンドラ」をメモリ上に放置する。
これを防ぐのが、「明示的Nullify（無効化）」だ。
監視の開始と終了を司る標準モジュール
Option Explicit
‘ 監視用インスタンスをグローバルスコープで保持
Private m_EventSink As clsVisioEvent
Public Sub StartMonitoring()
If m_EventSink Is Nothing Then
Set m_EventSink = New clsVisioEvent
Set m_EventSink.vsoApp = Application
Set m_EventSink.vsoDoc = ActiveDocument
End If
End Sub
Public Sub StopMonitoring()
‘ 監視を停止し、COM参照を確実に破棄する
If Not m_EventSink Is Nothing Then
Set m_EventSink.vsoApp = Nothing
Set m_EventSink.vsoDoc = Nothing
Set m_EventSink = Nothing
End If
End Sub
—
4. シニアエンジニアのための極限の知見
Windows APIとの連携：非同期処理の壁
Visio VBAはシングルスレッドだ。もし監視処理の中で重いAPI呼び出し（例えば外部DBへの接続や巨大なXML解析）を行うと、Visio本体のUIスレッドがロックされる。
この場合、`DoEvents`を安易にループに入れるのではなく、Windows APIの`PostMessage`を利用して、処理を「メインスレッドの隙間」にディスパッチする設計が必要だ。
レガシー環境の保守：バージョン間互換性
Visio 2010から最新のMicrosoft 365版まで、オブジェクトモデルの根幹は変わっていない。しかし、`visTypeShape`のような列挙型は、古いバイナリファイル形式（.vsd）と新しい形式（.vsdx）でハンドリングの挙動が微妙に異なる。
「可能な限り早期バインディング（参照設定）を避け、後期バインディングでインターフェースを抽象化する」ことが、組織内でのバージョン混在環境を生き残るための生存戦略だ。
—
結論：Visioを「システムの一部」へ昇華させる
イベント監視の実装は、単なる機能追加ではない。それはVisioというツールに「自律性」を与える行為である。ユーザーが図形を置いた瞬間にバリデーションが走り、保存する瞬間に外部APIへログが飛ぶ。
この「見えないインフラ」を構築できるのは、オブジェクトのライフサイクルを理解し、メモリの管理に責任を持てるエンジニアだけだ。
コードは書けるようになるな。コードが何をしているのかを支配せよ。
健闘を祈る。
