Visio VBAを掌握する極限の知見：Excel/Word埋め込み地獄からの脱出と `InPlace` 判定の全技術
開発現場で最も恐れられている悪夢の一つが、「単体では完璧に動くVisioマクロが、ExcelやWordにオブジェクトとして埋め込まれた途端に沈黙する（あるいは容赦なくクラッシュする）」という現象だ。
プログラマが日常的に頼る `Application.ActiveDocument` や `Application.ActiveWindow`。この甘美なショートカットこそが、埋め込み環境（In-Place Activation）における諸悪の根源である。Visioがホストアプリケーションのコンテナ内でインプレース編集状態にあるとき、ドキュメントのライフサイクル、ウィンドウの存在証明、そしてCOMの参照カウンタの挙動は、単体起動時（Standalone）とは全く異なるルールで支配される。
今回は、ExcelやWordのキャンバス内に潜むVisioインスタンスを安全に手なずけ、環境の差異を完全に抽象化するプロダクションコードの設計思想を伝授する。
—
1. なぜ「埋め込みVisio」のVBAはこれほど脆いのか？
多くのエンジニアは、Visio VBAを書くときに `Visio.Application` が常に独立したトップレベルのウィンドウを持っているという暗黙の前提に囚われている。
しかし、ユーザーがExcel上のVisio図形をダブルクリックし、インプレース編集（In-Place Activation）を開始した瞬間、以下の環境変化が起きる：
1. ActiveWindowの変質：ホスト（Excel）のウィンドウ内にVisioの描画領域が統合されるため、単体起動時の `Visio.Window` オブジェクトとは異なるコンテキストが生じる。
2. DocumentとSourceの乖離：編集中のドキュメントが、一時的なコンテナ上のインスタンスなのか、ファイルとして実体を持つものなのかが曖昧になる。
3. UI操作の制限：リボンの制御やモーダルダイアログの表示など、単体起動では当たり前に動くUI操作が、ホストアプリケーションとの競合によって `Automation Error` を吐く。
この環境差を無視して `ActiveDocument` や `ActiveWindow` を無造作に呼び出すコードは、地雷原を目隠しで歩くようなものだ。
—
2. 堅牢な設計の要：`InPlace` 判定とコンテキストの安全な取得
安全なコードを書くための第一歩は、「今、自分は単体で動いているのか、それとも誰かに寄生（埋め込み）しているのか」をプログラム自身に正確に認識させることだ。
Visioのオブジェクトモデルにおいて、これを判定する決定的なプロパティはないが、「Windowのタイプ」や「Documentの親・状態」を多角的に検証することで、確実に判定できる。
実務で使える、極めて堅牢なインスタンス取得の設計パターンを見ていこう。
プロダクションコード：環境非依存の安全な `Application`・`Document` 取得
以下のコードは、単体起動・埋め込み起動の双方で破綻しない、堅牢な基盤モジュールである。
Option Explicit
‘ =========================================================================
‘ 開発現場の知見：埋め込み/単体両対応のセーフコンテキスト取得モジュール
‘ =========================================================================
Public Sub ExecuteRobustVisioProcess()
Dim vsoApp As Visio.Application
Dim vsoDoc As Visio.Document
Dim isInPlace As Boolean
‘ 1. アプリケーションインスタンスの安全な取得
On Error Resume Next
Set vsoApp = Visio.Application
On Error GoTo 0
If vsoApp Is Nothing Then
MsgBox “Visioアプリケーションコンテキストを取得できません。”, vbCritical, “致命的エラー”
Exit Sub
End If
‘ 2. インプレース（埋め込み）状態の判定
isInPlace = CheckIfInPlace(vsoApp)
If isInPlace Then
Debug.Print “[INFO] 実行モード: Excel/Word等の埋め込み（In-Place）環境”
Else
Debug.Print “[INFO] 実行モード: Visio単体起動（Standalone）環境”
End If
‘ 3. アクティブドキュメントの安全な取得（ActiveDocumentの直叩きは厳禁）
Set vsoDoc = GetActiveDocumentSafe(vsoApp, isInPlace)
If vsoDoc Is Nothing Then
MsgBox “処理対象となる有効なドキュメントが存在しません。”, vbExclamation, “処理中断”
Exit Sub
End If
‘ 4. メイン処理の実行
Call ProcessDocument(vsoDoc, isInPlace)
End Sub
‘ ————————————————————————-
‘ 補助関数: インプレース状態の判定
‘ ————————————————————————-
Private Function CheckIfInPlace(ByVal app As Visio.Application) As Boolean
Dim wnd As Visio.Window
On Error Resume Next
Set wnd = app.ActiveWindow
If Err.Number <> 0 Or wnd Is Nothing Then
CheckIfInPlace = True ‘ ウィンドウコンテキストが取れない場合は埋め込みの可能性が高い
Exit Function
End If
‘ ウィンドウタイプによる判定 (visWindowTypes 参照)
‘ 埋め込みの場合、通常のドキュメントウィンドウとは異なる振る舞いを示す
If wnd.Type = visWPDrawing Then
‘ ドキュメントであっても、親ホストが存在するかをDocumentオブジェクト経由で推測
If app.Parent.Name <> “Visio” Then
CheckIfInPlace = True
Else
CheckIfInPlace = False
End If
Else
CheckIfInPlace = True
End If
On Error GoTo 0
End Function
‘ ————————————————————————-
‘ 補助関数: 事故らないドキュメント取得
‘ ————————————————————————-
Private Function GetActiveDocumentSafe(ByVal app As Visio.Application, ByVal isInPlace As Boolean) As Visio.Document
Dim doc As Visio.Document
On Error Resume Next
If isInPlace Then
‘ 埋め込み時は ActiveWindow 経由ではなく、Documentsコレクションや
‘ アプリケーションから直接参照できるアクティブなドキュメントを安全に引く
Set doc = app.ActiveDocument
If doc Is Nothing And app.Documents.Count > 0 Then
Set doc = app.Documents(1)
End If
Else
Set doc = app.ActiveDocument
End If
On Error GoTo 0
Set GetActiveDocumentSafe = doc
End Function
‘ ————————————————————————-
‘ 実処理ルーチン（環境に応じた分岐をここで吸収）
‘ ————————————————————————-
Private Sub ProcessDocument(ByVal doc As Visio.Document, ByVal isInPlace As Boolean)
Dim shp As Visio.Shape
‘ 例：全シェイプの処理
For Each shp in doc.Pages(1).Shapes
‘ 埋め込み環境ではUI書き換えや重いモーダル処理を避ける
If Not isInPlace Then
‘ 単体起動時のみ許可するリッチな処理（例：ステータスバー更新など）
doc.Application.StatusBar = “Processing shape: ” & shp.Name
End If
‘ 共通のビジネスロジック
shp.Cells(“Prop.Status”).FormulaU = “””Checked”””
Next shp
If Not isInPlace Then
doc.Application.StatusBar = “”
MsgBox “処理が完了しました。”, vbInformation
End If
End Sub
—
3. 開発現場で陥る「3大アンチパターン」
なぜ多くのマクロが現場で破綻するのか。プログラマがやりがちな致命的ミスを挙げておく。
アンチパターン A: `Visio.Application.ActiveWindow` の無条件信仰
単体起動前提のコードでは、必ず `ActiveWindow` を取得してそのプロパティをイジり倒す。しかし埋め込み時にこれをやると、ホストアプリ側のウィンドウフォーカスと競合し、`エラー 91: オブジェクト変数が設定されていません` または不可解な COM 例外を引き起こす。
-> 対策: ウィンドウ操作が必要な処理は、`InPlace = True` の場合はバイパス（スキップ）する設計にする。
アンチパターン B: `ActiveDocument` のストレージ前提処理
「Visioファイルとして保存されている」という前提で `doc.Path` や `doc.FullName` を無造作に参照するコードは、Excelに埋め込まれた無名（あるいはテンポラリ）のVisioオブジェクト上で実行された瞬間、空文字列やエラーを返し、その後のファイル入出力処理を全滅させる。
-> 対策: パスが必要な処理の前に必ず `Len(doc.Path) > 0` を評価し、未保存・埋め込み状態であることをハンドリングする。
アンチパターン C: `MsgBox` やモーダルフォームの乱用
埋め込みVisioのコンテキストでモーダルダイアログを表示すると、ホストアプリケーション（Excel/Word）全体の入力がロックされ、最悪の場合Excelごと強制終了する。
-> 対策: 埋め込み時はユーザーインタラクションを極力排し、エラーや完了通知はステータスバーやログ出力（Debug.Print）に留めるか、ホストの制約を考慮したUI設計にする。
—
4. チーフアーキテクトからの提言
ExcelやWordにVisioを埋め込むというアーキテクチャ自体、ドキュメント管理やバージョン管理の観点からは諸刃の剣である。しかし、業務の現場では「1つのファイルに資料をまとめたい」という強烈な要求が存在し、そのプレッシャーの中で我々はVBAを書かなければならない。
重要なのは、「Visioは単体で動いている」という傲慢な思い込みを捨て去ることだ。
コードを書くときは常に、「このインスタンスは今、Excelの掌の上で息をしているかもしれない」というパラノイア（慎重さ）を持て。今回紹介した `InPlace` 判定と安全なオブジェクト取得のパターンをあなたのテンプレートに組み込むだけで、サポート工数は劇的に削減される。
プロフェッショナルとは、環境の差異に怯える者ではなく、環境の差異をコードで完全にねじ伏せる者のことだ。今日からあなたのコードベースをアップデートし、堅牢な自動化を実現してほしい。
