こんにちは！ Visio VBAの世界へようこそ。
マクロの記録ボタンを押して生成されたコードを眺め、「なんだか呪文みたいだな…」と途方に暮れていませんか？
大丈夫、今日そのモヤモヤを綺麗に晴らしましょう。
チーフアーキテクトである私と一緒に、Visio VBAの本質、そしてオブジェクトモデルの核心へと迫ります。ここをクリアすれば、あなたの自動化スキルは間違いなく一段上のステージに到達しますよ。
今回は、Visio VBAの隠し武器とも言える「標準アドオンの遠隔操作（`Application.Addons`コレクション）」に焦点を当てます。手作業でポチポチ押していたあの面倒な機能を、コード一発で自在に操る快感を知ってください。
—
1. Visio VBAの全体像と「オブジェクトの階層構造」
まずは、Visioという巨大な宇宙の歩き方から。
Visio VBAをマスターするための第一歩は、オブジェクトモデル（階層構造）を頭に叩き込むことです。
Visioの世界は、ロシアの民芸品「マトリョーシカ」のように、大きなものの中に小さなものが綺麗に収まっています。
Application (Visioアプリそのもの)
┗ Documents (開いている図面たち)
┗ Document (作業中の個別図面)
┗ Pages (ページたち)
┗ Page (特定のページ)
┗ Shapes (図形たち)
┗ Shape (個別の図形)
「今、どの層のどこを触っているのか？」を意識するだけで、コードのバグは劇的に減ります。マクロの記録が吐き出すコードは、しばしばこの階層を省略して暴走するため、初心者を混乱させるのです。私たちは、常に正しい階層を明示する「知的なエンジニア」になりましょう。
—
2. 本日の主役：`Application.Addons` とは何か？
さて、今回のテーマである `Addons`コレクション についてです。
Visioには、「レイアウトの再構成」や「組織図ウィザード」、「データ連結」など、強力な標準機能（＝アドオン/内部プログラム）が最初から備わっています。これらは通常、リボンのボタンをクリックして手動で実行しますよね。
しかし、「この処理をVBAの自動化フローの中に組み込みたい！」と思ったことはありませんか？
そこで登場するのが `Application.Addons` です。
`Addons`コレクションを使えば、Visioの心臓部にある既存のプログラムを、あなたのVBAコードから「リモート操作（遠隔起動）」できるようになります。
基本的な構文
Application.Addons.Item(“アドオン名”).Run “渡したい引数”
たったこれだけです。非常にシンプルですが、使いこなすとVBAでできることの幅が何倍にも広がります。
—
3. 実践！標準アドオンをVBAから呼び出す
百聞は一見に如かず。実際にコードを書いてみましょう。
今回は、Visioユーザーなら誰もが一度はお世話になる「レイアウトとルーティング（図形の自動整列）」のアドオンをVBAから呼び出してみます。
以下のコードを、VBAエディタ（Alt + F11）の標準モジュールに貼り付けて実行してみてください。
Sub RunLayoutAddonSample()
Dim targetPage As Visio.Page
Set targetPage = ActivePage
On Error GoTo ErrorHandler
‘ “Layout” アドオンを呼び出して、現在のページを綺麗に自動整列する
‘ ※Visioのバージョンや環境によってアドオン名が異なる場合があります
Dim targetAddon As Visio.Addon
Set targetAddon = Application.Addons.Item(“Layout”)
‘ Runメソッドで実行（引数なしの場合は空文字 “” または省略可能）
targetAddon.Run “”
MsgBox “レイアウトの再構成アドオンの実行が完了しました！”, vbInformation, “成功”
Exit Sub
ErrorHandler:
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical, “エラー”
End Sub
コードの解説
1. `Set targetAddon = Application.Addons.Item(“Layout”)`
Visioに組み込まれている数あるアドオンの中から、”Layout”という名前のプログラムをメモリ上にキャプチャ（取得）しています。
2. `targetAddon.Run “”`
キャプチャしたアドオンに対して「今すぐ実行せよ！」と命令を下しています。まるで手動でメニューをクリックしたかのように、一瞬で図形が整然と並び替わります。
—
4. 現場でよくある「罠」と、知っておくべきエラー対策
実務で `Addons` を扱う際、初心者が必ずと言っていいほどハマる「落とし穴」がいくつかあります。プロの知見としてシェアしておきましょう。
罠1：アドオン名が環境によって違う（ローカライズ問題）
Visioの厄介な点として、インストールされている言語（日本語版か英語版か）によって、アドオンの内部名称が異なる場合があります。
「コードを他のPCに持って行ったら動かない！」という現象の多くはこれが原因です。
- 対策: 可能な限り、アドオン名で直接叩くのではなく、Visioの標準オブジェクトモデル（例: `Page.Layout` メソッドなど）が用意されている場合はそちらを優先し、どうしてもアドオンが必要な場合のみ `Addons` コレクションを使うようにしましょう。
罠2：実行コンテキスト（アクティブな状態）の欠如
アドオンは、VisioのUIや特定の選択図形（Selection）を前提として動くものが多くあります。何も選択されていない状態や、想定外のページがアクティブな状態で `Run` を叩くと、アドオンがフリーズしたりエラーを吐いたりします。
- 対策: アドオンを呼び出す直前に、必ず対象のページや図形を `ActiveWindow.Page` や `Select` で明示的にアクティブ化・選択状態に整えておくことが、爆発を防ぐコツです。
—
5. おわりに：マクロの記録の先へ
今回は、Visio VBAの基礎と、`Application.Addons` を使った機能拡張アプローチについて解説しました。
「マクロの記録」は素晴らしい出発点ですが、そこから一歩進んで オブジェクトモデルを理解し、標準アドオンや外部機能を自分のコードからオーケストラのように指揮できるようになる と、業務自動化の世界が一気に面白くなります。
「ここをクリアすれば、Visio VBAの基本はバッチリですよ！」
ぜひ今回のコードをご自身の環境で試し、手元で図形が自動整列する快感を味わってみてください。
あなたの開発ライフが、よりスマートで創造的なものになりますように。チーフアーキテクトとして、また次回の極限知見でお会いしましょう！
