Visio VBAを掌握する極限の知見：Applicationオブジェクトの神髄と安全なインスタンス把捉
すべてのVBA開発において、起点となるオブジェクトの挙動を完全に支配すること。それがプロとアマを分ける境界線である。特にMicrosoft Visioのオブジェクトモデルにおいて、`Application`オブジェクトの性質を誤解しているようでは、大規模な自動化アーキテクチャを構築することなど到底できない。
今回は、Visio VBA開発のすべての土台である `Application` オブジェクトの構造を解剖し、単なるマクロの域を超えた、外部連携・マルチセッション環境における「安全かつ確実なインスタンス把捉」の極限の知見を授ける。
—
1. Visio Applicationオブジェクトの構造と「見えないコスト」
Visioのオブジェクトモデル階層の頂点に君臨するのが `Application` オブジェクトである。すべての `Document`、`Page`、`Shape` は、この `Application` の傘下にぶら下がっている。
多くの開発者は、Activeなセッションに依存したコードを書く。
‘ 悪夢の始まり：暗黙のActiveオブジェクト依存
Dim shp As Visio.Shape
Set shp = ActivePage.DrawRectangle(0, 0, 1, 1)
このコードは、シングルセッションのVisio上で手動操作している際には動く。しかし、複数インスタンスが立ち並ぶエンタープライズ環境や、外字・アドインが干渉するカオスな現場では、`ActivePage` や `ActiveDocument` は容易にコンテキストロストを起こし、エラー 91（オブジェクト変数が設定されていません） または エラー 429（コンポーネントはオブジェクトを作成できません） を引き起こす。
プロフェッショナルは、常に明示的な `Application` 参照から階層を降下させる。
—
2. 外部プロセスからの安全なインスタンス把捉（GetObject vs CreateObject）
社内システムやExcel VBA、あるいはVB.NETなどの外部ホストからVisioを操る場合、最も重要なのは「既存インスタンスの再利用」か「新規インスタンスの生成」かの制御である。
ここで、安易な `CreateObject(“Visio.Application”)` はメモリリークやゾンビプロセスの温床となる。以下のコードは、WindowsのCOMコンテキストを安全に安全にハンドリングする、現場で磨き上げられた実戦的アプローチだ。
堅牢なインスタンス取得パターン（VBA / 外部起動用）
Option Explicit
Public Sub ExecuteEnterpriseVisioAutomation()
Dim vsoApp As Visio.Application
Dim isNewInstance As Boolean
On Error Resume Next
‘ 1. 稼働中のVisioインスタンスの把捉を試みる (ROT: Running Object Tableへのアクセス)
Set vsoApp = GetObject(, “Visio.Application”)
If vsoApp Is Nothing Then
‘ 2. 存在しない場合は新規起動
Set vsoApp = CreateObject(“Visio.Application”)
isNewInstance = True
End If
On Error GoTo 0
If vsoApp Is Nothing Then
MsgBox “Visioのインスタンスを生成できませんでした。”, vbCritical
Exit Sub
End If
‘ 厳格なエラーハンドリングを伴うメイン処理の呼び出し
Call ProcessVisioDocuments(vsoApp)
‘ 3. 自身で起動したインスタンスであれば、後始末を検討する
‘ ※実運用ではユーザー操作を考慮して強制終了させない設計が求められる
If isNewInstance Then
‘ vsoApp.Quit などの処理をここに挟む場合あり
End If
‘ 4. 参照の完全解放（メモリ最適化）
Set vsoApp = Nothing
End Sub
Private Sub ProcessVisioDocuments(ByVal app As Visio.Application)
‘ Applicationオブジェクトを起点とした安全な操作
Dim doc As Visio.Document
Set doc = app.Documents.Add(“”) ‘ メトリックテンプレート等で初期化
‘ 業務ロジックの展開…
‘ オブジェクトの明示的解放
Set doc = Nothing
End Sub
—
3. マルチセッション環境とウィンドウ・ドキュメントの分離
VisioはMDI（マルチドキュメントインターフェイス）からSDI（シングルドキュメントインターフェイス）への移行の歴史があり、バージョンによってウィンドウの振る舞いが異なる。特に、複数のVisioプロセスがバックグラウンドで動いている環境では、`Application.Documents` コレクションがどのプロセスに属しているかを意識しなければならない。
隠しウィンドウ（InvisibleInstance）の活用
完全なバックグラウンド処理（UIを描画せず、高速に図形生成やPDF変換を行うようなシステム）を構築する場合、通常の `Application` ではなく、`InvisibleInstance` を生成するべきである。
‘ UIを持たない高速処理用インスタンスの生成
Dim vsoInvisApp As Visio.InvisibleInstance
Set vsoInvisApp = New Visio.InvisibleInstance
これにより、不要な画面描画（ScreenUpdatingのコスト）が完全に排除され、パフォーマンスは最大化する。ただし、エラー発生時にプロセスがメモリ上に残存しやすいため、後述の厳格なクリーンアップが必須となる。
—
4. メモリ最適化とCOMオブジェクトの「完全解放」の鉄則
VBAランタイムはガベージコレクタを持たない。COMオブジェクト（Visioの各オブジェクト）は、参照カウント方式で管理されている。変数を `Nothing` にし忘れる、あるいは循環参照を残すことで、Visioのプロセス（`VISIO.EXE`）がタスクマネージャーに幽霊のように残り続け、メモリリークを引き起こす。
チーフアーキテクトとしての鉄則をここに明記する：
1. ドット繋ぎ（メソッドチェーン）の禁止
‘ 悪夢のコード：これでは中間オブジェクトの参照が解放できずリークする
Visio.Application.ActiveDocument.Pages(1).Shapes(1).Text = “Test”
正しくは、すべての階層を変数に受け、個別に `Set … = Nothing` を行う。
2. 逆順解放の原則
生成した順序の逆、すなわち `Shape` -> `Page` -> `Document` -> `Application` の順で確実に `Set obj = Nothing` を実行する。
Public Sub SafeObjectLifecycleDemo()
Dim vsoApp As Visio.Application
Dim vsoDoc As Visio.Document
Dim vsoPage As Visio.Page
Dim vsoShape As Visio.Shape
Set vsoApp = New Visio.Application
Set vsoDoc = vsoApp.Documents.Add(“”)
Set vsoPage = vsoDoc.Pages(1)
Set vsoShape = vsoPage.DrawRectangle(0, 0, 5, 5)
‘ — 業務処理 —
vsoShape.Text = “Architect-Level Code”
‘ — 逆順での厳格な解放 —
Set vsoShape = Nothing
Set vsoPage = Nothing
Set vsoDoc = Nothing
Set vsoApp = Nothing
‘ ガベージコレクションの強制喚起（必要に応じて）
DoEvents
End Sub
—
総括
Visio VBAにおける `Application` オブジェクトの把捉は、単なるコードの書き出しではない。それはオペレーティングシステムのCOM層と対話するための、極めてロジカルでエグゼクティブな制御行為である。
「動けばいい」という妥協を捨て、インスタンスの生成からライフサイクルの終焉までを完全にコードで統御すること。それこそが、何年経過しても破綻しない、真のエンタープライズ・Visioアーキテクチャの姿である。
