Visio VBAの深淵：Addonsコレクションを支配し、標準機能を「ハック」する
Visioの自動化を語る際、多くのエンジニアは`Shape`オブジェクトのプロパティや`Cell`の操作に終始する。だが、真のアーキテクトは、Visioが内包する「隠されたエンジン」である`Addons`コレクションを呼び出し、標準機能の裏口からプロセスを制御する。
今日は、GUI操作に頼ることなく、VBAからVisioの内部コマンドを直接叩き、自動化の精度を極限まで引き上げる手法を伝授する。
—
1. なぜ「Addonsコレクション」なのか
Visioには、UIからは見えない強力なコマンド群が`Addons`コレクションとして隠れている。これらは歴史的にVBA以前の古いAPI名残であったり、内部の複雑な処理（例：複雑な図形の整列、CADデータの変換、特定のプラグイン）をカプセル化したものである。
`Application.Addons`を掌握することは、再発明を避け、Visioのネイティブな挙動を最大限に活用することを意味する。
Addonsの基本構造
‘ アドオンの一覧を取得し、イミディエイトウィンドウに出力する
Sub ListAvailableAddons()
Dim add As Visio.Addon
For Each add In Application.Addons
‘ Nameプロパティだけでなく、プログラムIDやパスを監視する
Debug.Print “Name: ” & add.Name & ” | ID: ” & add.ProgramID
Next add
End Sub
—
2. アドオン呼び出しの極意：`Run`メソッドの真実
`Addon.Run`メソッドは、単純な実行のように見えて、実は引数の渡し方にメモリ管理の作法が問われる。特に、文字列引数でコマンドラインオプションを渡す際、Visioの内部プロセスがどうメモリを確保し、解放しているかを意識しなければならない。
実践：図面整列機能をプログラムから強制実行する
GUIメニューから操作を記録するのではなく、直接アドオンを呼び出すことで、処理速度と堅牢性を劇的に向上させる。
Sub ExecuteLayoutAddon()
‘ “Layout” アドオンを呼び出し、特定の引数を渡す
‘ この手法はGUIのイベントフックをバイパスするため非常に高速である
Dim layoutAddon As Visio.Addon
On Error Resume Next
Set layoutAddon = Application.Addons(“Layout”)
If Not layoutAddon Is Nothing Then
‘ 引数に設定文字列を渡す（書式は各アドオンの仕様に依存）
‘ /L=1 はレイアウト調整のフラグ等の意
layoutAddon.Run “/L=1”
Else
MsgBox “対象のアドオンが存在しません。環境を確認してください。”
End If
‘ オブジェクトの明示的解放（VBAでは必須の作法）
Set layoutAddon = Nothing
End Sub
—
3. シニアエンジニアのための最適化戦略
オブジェクトのライフサイクルとメモリ管理
Visioのオブジェクトモデルは、参照カウントが複雑だ。`Application`から派生するコレクションを操作する場合、必ず`Nothing`を代入し、メモリを強制解放する癖をつけよ。特にループ内で`Addon`を取得する場合、メモリリークはアプリケーションのクラッシュ（ハングアップ）を招く。
Windows APIとの連携：処理の完全同期
標準アドオンが非同期で実行される場合、VBA側で処理の完了を待機する必要がある。`Sleep`関数や`DoEvents`を駆使し、図面処理の完了を「監視」する設計が不可欠だ。
‘ APIによる待機処理
Private Declare PtrSafe Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)
Sub RunAddonWithWait()
Dim addon As Visio.Addon
Set addon = Application.Addons(“SomeHeavyTask”)
‘ 非同期タスクの開始
addon.Run “”
‘ Visioがビジー状態の間、ループで待機する（IsRunModeやプロセスの監視）
Do While Application.IsRunMode
Sleep 100 ‘ 100ms待機
DoEvents
Loop
Set addon = Nothing
End Sub
—
4. レガシー環境への敬意と未来への布石
Visioの自動化における最大の敵は、「環境の差異」だ。特定のバージョンのVisioでしか動かないアドオンや、COM参照が欠損している環境に対しても、`Late Binding（遅延バインディング）`を検討せよ。
`CreateObject`や`GetObject`を使用し、実行時に動的にライブラリをロードすることで、システム保守性は格段に向上する。
最後に：アーキテクトとしての助言
Visio VBAを単なる「マクロ」と見なすな。それは、複雑な図形データという「資産」を操作するための、極めて強力なインターフェースだ。`Addons`コレクションの裏側を覗き、標準機能の挙動をハックせよ。
システムが巨大化すればするほど、GUI操作という「脆弱な層」を廃し、プログラマブルな「Core層」へ処理を移行させる必要がある。それが、枯れた技術を使いこなし、次世代の自動化基盤を築く唯一の道である。
—
「コードは書くものではない。設計図を具現化する儀式だ。」
諸君、健闘を祈る。
