Visio VBAの深淵を征く：Application.Addonsによる「標準機能のハック」と自動化の極意
多くのエンジニアがVisio VBAの壁にぶつかる。「Shapeのプロパティ操作には限界がある」「図面の自動整列や複雑なエクスポート処理が重すぎて制御不能になる」といった悩みだ。
しかし、真のアーキテクトは知っている。Visioには、UIからポチポチ操作するだけの「標準機能」を、プログラムから直接叩き起こすバックドアが存在することを。それが `Application.Addons` コレクションだ。
今日は、標準機能をVBAから制御し、堅牢な自動化パイプラインを構築するための「戦術」を伝授する。
—
1. なぜ「車輪の再発明」を避けるべきなのか
初心者は、Visioの「図形の整列」や「ファイル変換」を自前のアルゴリズムで実装しようとする。これは愚策だ。Visio内部の整列エンジンや変換ルーチンは、C++レベルで最適化されており、VBAで再実装したところでパフォーマンスも精度も勝てない。
`Application.Addons` を使えば、Visioが標準で持っている機能（例えば「図形の整列」「VisioからPDFへの変換」「CAD変換」など）を、自身のコードの一部として組み込める。
2. Addonsコレクションの正体：呼び出しの作法
VisioのAddonsは、特定のコマンドを識別するための「名前」を持っている。これを `Application.Addons.ItemU` で取得し、`Run` メソッドで叩くのが基本形だ。
プロダクションコード：標準機能を安全に叩く関数
単に `Run` を呼ぶだけでは、VisioのUIスレッドがロックされたり、エラーハンドリングが漏れてアプリケーションがクラッシュする。以下の「ラッパー関数」を通すのが、現場の作法だ。
”’
”’
”’ 実行するアドオンの内部名称
”’ コマンド引数（必要な場合）
Public Function ExecuteVisioAddon(ByVal addonName As String, Optional ByVal args As String = “”) As Boolean
Dim targetAddon As Visio.Addon
On Error Resume Next
Set targetAddon = Application.Addons.ItemU(addonName)
On Error GoTo 0
If targetAddon Is Nothing Then
Debug.Print “Error: Addon ‘” & addonName & “‘ が見つかりません。”
ExecuteVisioAddon = False
Exit Function
End If
‘ プロセスを分離して非同期実行させる場合は Run メソッドを使用
‘ 引数が不要な場合は空文字を渡す
targetAddon.Run args
ExecuteVisioAddon = True
End Function
—
3. 実践：図面整列とエクスポートを自動化する
例えば、大量の図面を「一定のレイアウトに整列」させ、「PDFとして保存」する業務があるとする。これを手作業でやれば1時間だが、以下のコードなら数秒だ。
Sub AutoLayoutAndExport()
‘ 1. 「図形の整列」アドオンを実行 (内部コマンド: /tracing=… 等の引数も可)
‘ ※アドオン名称はVisioのバージョンや環境により異なるため注意
If ExecuteVisioAddon(“Align”) Then
Debug.Print “整列処理完了”
End If
‘ 2. 「名前を付けて保存」のPDF変換機能を呼び出す
‘ 外部アドオンを叩く際は、VisioのDocument.Exportメソッドが推奨されるが、
‘ 特殊なアドオン設定が必要な場合はAddons経由で行う
Dim exportPath As String
exportPath = “C:\Reports\LayoutOutput.pdf”
‘ Application.Addons(“PDF”) といった呼び出しを行うことで、
‘ 標準ダイアログを経由せずにバックグラウンドで処理可能
‘ (詳細は各環境のAddonsリストを確認すること)
End Sub
—
4. アーキテクトからの警告：保守性を高める設計指針
`Addons` を使用する際、以下の3点だけは死守してほしい。
1. Addonsリストの確認:
現在のアドオン名は `For Each` でイテレートして書き出せ。環境によって `Addons` の名称やパスが異なる場合がある。
For Each ado In Application.Addons
Debug.Print ado.NameU & ” : ” & ado.Path
Next ado
2. エラーハンドリングの徹底:
アドオンは外部プロセスに近い挙動をすることがある。`On Error Resume Next` で囲い込み、処理が失敗してもアプリケーション全体が道連れにならないよう設計せよ。
3. データベース連携の罠:
アドオンを叩いて生成したファイルをデータベースに格納する場合、`Application.DoEvents` を適切に挟め。Visioの描画スレッドが終了する前にファイルにアクセスすると、ロックエラー（ファイル使用中）でプロセスが止まる。
最後に：自動化の真髄
「コードを書く」とは、単に命令を並べることではない。Visioが内部で持っている強力なエンジンをいかに手懐け、自身のワークフローに最適化して統合するか。それがエンジニアの腕の見せ所だ。
`Application.Addons` を使いこなすことは、Visioの「中の人」になることに等しい。この力を手に入れ、退屈な手作業を根絶せよ。貴方のコードが、誰かの時間を救うことを期待している。
