Visio VBAを極める開発者諸君。
描画の自動化において、シェイプの座標計算やセルの数式（Cell.Formula）をこねくり回すのは、もはや基礎の基礎だ。
実務の現場で「お前、これどうやって自動化するんだ？」と問われる難所の一つが、Visioに標準搭載されている強力なアドオン（レイアウトエンジンや組織図ウィザードなど）を、いかにVBAから手なずけるかというテーマだ。
今回は、`Application.Addons`コレクションを完全掌握し、Visioのブラックボックス化された機能をVBAから自在に遠隔操作するための「極限の知見」を授けよう。
—
なぜ `Application.Addons` なのか？
愚かな開発者は、Visioの標準機能である「図面の自動レイアウト」や「接続の再ルーティング」を自前で実装しようとして爆死する。数千のシェイプを持つ図面でそれをやれば、O(N^2)の計算量に溺れ、VBAはフリーズし、ユーザーは絶望する。
Visioには、Microsoftが何十年もかけて最適化したC++ベースの強力なアドオンが標準で組み込まれている。
これらをVBAから呼び出さない手はない。
`Application.Addons` コレクションを経由することで、GUIのマウス操作をコードに置き換え、バックグラウンドで高速に重処理を実行させることが可能になる。
—
Addons.Item(“”).Run メソッドの暗黒面と作法
しかし、この `Addons` コレクション、扱いを誤ると容赦なくバグる。
最大の問題は、「アドオンの内部名称がバージョンによって揺らぐ」「実行コンテキスト（アクティブなウィンドウや選択状態）に依存するものが存在する」という点だ。
1. アドオン名の罠
Visioの標準アドオンは、UI上の表示名（日本語版なら「レイアウトの再構成」など）ではなく、内部的なコマンド名やファイル名（例: `Layout` や `UIVISIO.DLL` のようなコンポーネント）で指定する必要があるケースが多い。
これを誤ると、容赦なく `Run-time error ‘9’: インデックスが有効範囲にありません` が発生する。
2. 実行の構文
基本形は以下の通りだ。
Visio.Application.Addons.Item(“アドオン名”).Run “渡す引数(Args)”
だが、実務でこれをそのまま書くのはアマチュアのすることだ。
プロダクションコードでは、「アドオンが存在するか」「実行可能状態か」を担保する防御的設計が絶対条件となる。
—
【実務コード】レイアウト再構成アドオンを安全に爆速で呼び出す
以下のコードは、単にアドオンを叩くだけではなく、エラーハンドリング、描画の抑止（ScreenUpdating）、そして処理の成否を担保する、現場でそのまま使えるプロダクションコードだ。
Option Explicit
Public Sub ExecuteLayoutAddonSafely()
‘ =========================================================================
‘ 処理名: Visio標準レイアウトアドオンの安全な遠隔呼び出し
‘ 備考: 描画更新を停止し、パフォーマンスと安定性を極限まで高めた設計
‘ =================5========================================================
Dim targetAddon As Visio.Addon
Dim addonName As String
Dim startTime As Double
startTime = Timer
‘ 組織や環境（言語設定）によってアドオン名が異なるため定数化
‘ ※日本語版Visioの「レイアウトの再構成」に相当する内部コマンド
addonName = “Layout”
‘ 1. 描画・イベントの完全停止（パフォーマンス最適化の鉄則）
With Visio.Application
.ScreenUpdating = False
.EventsEnabled = False
.UndoEnabled = False ‘ 大規模処理時はアンドゥスタックも切る
End With
On Error GoTo ErrorHandler
‘ 2. アドオンの存在確認と取得
‘ On Errorを一時的に無効化してAddonsコレクションの探索エラーをトラップ
On Error Resume Next
Set targetAddon = Visio.Application.Addons.Item(addonName)
On Error GoTo ErrorHandler
If targetAddon Is Nothing Then
Err.Raise vbObjectError + 1000, “ExecuteLayoutAddonSafely”, _
“指定された標準アドオンが見つかりません: ” & addonName
End If
‘ 3. ターゲットページが編集可能かチェック
If Visio.ActivePage.Shapes.Count = 0 Then
MsgBox “処理対象のシェイプが存在しません。”, vbExclamation, “中断”
GoTo Finally
End If
‘ 4. アドオンの実行
‘ 引数なし、または必要なパラメータを渡す（””空文字の場合はそのまま実行）
Debug.Print “アドオン実行開始: ” & addonName
targetAddon.Run “”
‘ 成功ログ
Debug.Print “アドオン実行完了. 処理時間: ” & Format(Timer – startTime, “0.00秒”)
Finally:
‘ 5. 環境の確実な復元（例外時も必ず実行する）
With Visio.Application
.ScreenUpdating = True
.EventsEnabled = True
.UndoEnabled = True
End With
Exit Sub
ErrorHandler:
‘ 致命的エラーハンドリング
MsgBox “予期せぬエラーが発生しました。” & vbCrLf & _
“Error: ” & Err.Description, vbCritical, “致命的エラー”
Resume Finally
End Sub
—
プロダクション開発における3つの鉄則
このコードと設計アプローチから、君たちが持ち帰るべき「極限の知見」は以下の3点だ。
① 描画のブラックアウト（ScreenUpdating = False）を忘れるな
アドオンが内部でGUIの再描画を伴う処理を行う場合、VBA側で `ScreenUpdating = False` にしていないと、画面がチラつき、処理速度が通常の10分の1以下に低下する。OSへの負荷も計り知れない。
② Undoスタックの管理
大規模な自動レイアウトやデータ連携による一括生成・修復を行う際、VisioのUndo（元に戻す）機能が有効になっていると、メモリを異常消費し、最悪の場合クラッシュする。
`UndoEnabled = False` を挟むのは、プロのエンジニアにとって常識である。ただし、処理の途中でエラー落ちした際にUndoが無効なまま残らないよう、必ず `Finally` ブロックで復元させろ。
③ 外部ファイル・データベース連携時の注意
この `Addons.Run` を、外部DB（SQL Serverなど）からのデータインポートや、Excel連携のパイプラインの一部として組み込む場合、「データの書き込み」→「アドオンによるレイアウト整列」→「保存」 の順序を厳守しろ。
特に非同期処理や外部プロセスからのCOM操作を行う場合、Visioがビジー状態（`Application.IsBusy`）の時に `Addons.Item().Run` を叩くと容赦なく弾かれる。
`DoEvents` を適切に挟むか、ビジー状態のポーリングを入れて堅牢性を担保しろ。
—
総括
`Application.Addons` は、Visio VBAのポテンシャルを何倍にも引き上げる「諸刃の剣」だ。
仕様のブラックボックス性に怯えるな。適切なエラーハンドリングと環境制御（スコープ管理）を行えば、君の作る自動化ツールは、現場のエンジニアたちを唸らせる「神速のシステム」へと進化する。
次の現場でも、泥臭いコードではなく、洗練されたアーキテクチャで周囲を圧倒してくれ。健闘を祈る。
