Visio VBAを掌握する極限の知見：Application.Addonsコレクションによる標準アドオンの遠隔操作
Visioのオートメーションにおいて、多くの開発者は `Shape` や `Page` オブジェクトの操作に終始する。しかし、アーキテクチャの深淵を覗くとき、真に強力なシステム拡張は「Visioが標準で内包するブラックボックス（アドオン）」をいかに手足のように動かすかにかかっている。
今回は、`Application.Addons` コレクションを活用し、Visio標準アドオン（「レイアウトの再構成」や「組織図ウィザード」など）をVBAコードからプログラムmaticallyに制御・遠隔操作する手法を解説する。レガシー環境の保守、巨大な図面のパフォーマンス最適化、そしてシステム間連携の極限を追求するシニアエンジニアへ向けた知見を共有する。
—
1. `Application.Addons` とは何か：オブジェクトモデルの深層
Visioのアーキテクチャにおいて、`Addons` コレクションは、COMコンポーネントや内部実行バイナリ（`.ppa`, `.exe`, 内部ルーチン）へのブリッジである。
UI経由で実行する重厚な処理をVBAから非同期、あるいは同期的におよび出すことで、自前で数千行の複雑な幾何学計算アルゴリズムを実装する労力を劇的に削減できる。
ライフサイクルとパフォーマンスの罠
`Addons.Item(“アドオン名”)` を呼び出す際、最も警戒すべきは文字列キーによるルックアップのコストと実行コンテキストの競合である。
Visioの標準アドオンはグローバルな空間に存在するため、不適切なタイミングでの呼び出しは、COMの例外（Error 91: オブジェクト変数または With ブロック変数が設定されていません）や、最悪の場合のVisioプロセスのクラッシュを誘発する。
—
2. 実装パターン：`Addons.Item().Run` の極意
標準アドオンを操作する基本構文は `Run` メソッドだが、単に文字列を渡すだけではプロフェッショナルなコードとは言えない。引数（Arguments）の渡し方、そして実行後のエラーハンドリングが成否を分ける。
以下のコードは、巨大な図面に対して「レイアウトの再構成（Layout Routing）」アドオンをVBAから安全に遠隔操作し、メモリリークを防ぐための鉄則を盛り込んだ実装例である。
Option Explicit
Public Sub ExecuteLayoutAddonSafely()
‘ ————————————————————————-
‘ 厳格なオブジェクト宣言（遅延バインディングを排除し、COMレイヤーの安定性を確保）
‘ ————————————————————————-
Dim vsoApp As Visio.Application
Dim vsoAddon As Visio.Addon
Dim targetPage As Visio.Page
‘ エラーハンドリングの初期化
On Error GoTo ErrorHandler
Set vsoApp = Application
Set targetPage = vsoApp.ActivePage
‘ 画面描画とイベントの凍結（パフォーマンス最大化の定石）
vsoApp.ScreenUpdating = False
vsoApp.EventsEnabled = False
‘ Addonsコレクションから目的の標準アドオンを取得
‘ ※注意: Visioの言語設定（日本語/英語）によりアドオン名が異なるため、
‘ ローカライズ環境を考慮したフォールバックが必要な場合がある。
On Error Resume Next
Set vsoAddon = vsoApp.Addons(“レイアウトの再構成”)
If vsoAddon Is Nothing Then
‘ 英語環境へのフォールバック
Set vsoAddon = vsoApp.Addons(“Layout”)
End If
On Error GoTo ErrorHandler
If vsoAddon Is Nothing Then
Err.Raise 513, “ExecuteLayoutAddonSafely”, “指定された標準アドオンが見つかりません。”
End If
‘ アドオンへの引数指定（必要な場合）
‘ 例: コマンドライン引数と同様の文字列を渡すことで、内部挙動を制御可能
Dim strArgs As String
strArgs = “” ‘ デフォルト設定を使用する場合は空文字列
‘ 【核心】Runメソッドによるアドオンの実行
‘ 同期実行され、処理が完了するまで次のコードには進まない
vsoAddon.Run strArgs
Debug.Print “標準アドオンの実行が正常に完了しました。”
CleanUp:
‘ ————————————————————————-
‘ 厳格なメモリ解放（COM RCWの参照カウンタを確実にデクリメント）
‘ ————————————————————————-
If Not vsoAddon Is Nothing Then Set vsoAddon = Nothing
If Not targetPage Is Nothing Then Set targetPage = Nothing
If Not vsoApp Is Nothing Then
vsoApp.ScreenUpdating = True
vsoApp.EventsEnabled = True
Set vsoApp = Nothing
End If
Exit Sub
ErrorHandler:
MsgBox “致命的なエラーが発生しました: ” & Err.Description, vbCritical, “Visio Automation Error”
Resume CleanUp
End Sub
—
3. レガシー環境とマルチリンガル対応の壁
シニアエンジニアが直面する最大の壁は、クライアントのOSおよびOfficeの言語依存性である。
日本語版Visioの `Addons(“レイアウトの再構成”)` は、英語版Visioでは `Addons(“Layout”)` または内部COMコマンドIDに変化する。
この差異を吸収するため、アドオン名に依存せず、コマンド番号（Command IDs）やVisio内部の `QueueMarker` 機構を併用するアプローチが、エンタープライズ領域では必須となる。
‘ コマンド番号を用いた堅牢な実行アプローチの概念
Public Sub ExecuteViaCommandID()
Dim vsoApp As Visio.Application
Set vsoApp = Application
‘ Visioの標準メニューコマンドIDを直接たたくことで言語依存性を排除する
‘ 例: 組み込みコマンド番号 1132 (レイアウトの再構成に対応するUIコマンド等)
‘ ※バージョンごとのID差異に注意が必要だが、文字列名よりは堅牢な場合がある
vsoApp.DoCmd 1121 ‘ レイアウト関連の内部コマンド実行例
Set vsoApp = Nothing
End Sub
—
4. システム間連携への昇華：外部DBからの自動レイアウトパイプライン
単なるVBAのマクロ実行に留まらず、外部システム（C#.NETやPython等）からCOMインターフェース経由でVisioを起動し、この `Addons` コレクションを叩くことで、完全無人の「自動図面生成パイプライン」が構築できる。
1. 外部DBから構造データを取得。
2. VBA/VB.NETで図形（Shape）をプログラムmaticallyに生成（この時点では配置は適当でよい）。
3. `vsoApp.Addons(“レイアウトの再構成”).Run` を呼び出し、Visioの高度な自動ルーティングエンジンに配置・結線を一任する。
4. PDF/SVGとしてサイレントエクスポートし、プロセスを破棄。
このワークフローにより、数万図形を扱うプラント図やネットワーク図の生成であっても、人間の手作業を完全に排除した超高速バッチ処理が可能となる。
—
チーフアーキテクトからの提言
`Application.Addons` は、VBAの表現力を何倍にも跳ね上げる諸刃の剣である。
ブラックボックス化されたアドオンに処理を委譲することは効率的であるが、その内部で何が行われているか（特にメモリの動的確保と解放）を意識しなければ、メモリリークや予期せぬサイレントクラッシュの温床となる。
オブジェクトの明示的な破棄（`Set obj = Nothing`）、`ScreenUpdating` による描画ロック、そして言語差異を見据えた例外処理。これらを網羅したコードベースこそが、現場の信頼に足る唯一のアーキテクチャである。
妥協なきコードで、Visioの限界を突破せよ。
