【テクニカル・上級編】ExcelやWordへの埋め込みVisioに対応：Application.InPlace判定による埋め込みオブジェクト制御とVBAエラー回避 – Visio VBA解析バイブル

Visio VBAを掌握する極限の知見：Application.InPlace判定による埋め込みオブジェクト制御とエラー回避

Visio VBAの開発において、多くのエンジニアが一度は踏み抜く地雷原がある。
それが「ExcelやWordなどの他Officeアプリケーション内に埋め込まれた状態（InPlace活性化状態）」における動作差異だ。

単体起動（Standalone）を前提に書かれたマクロを、ドキュメントのインプレース編集時に実行した瞬間、理由不明の実行時エラー、あるいは最悪の場合、ホストアプリケーションごとのクラッシュを引き起こす。この現象の本質は、Visioのオブジェクトモデルが持つ「文脈（Context）」の二面性を理解していないことにある。

今回は、シニアエンジニアや大規模な社内システムを保守するアーキテクトに向けて、`Application.InPlace` を軸とした環境判定の極限と、メモリ管理を含めた堅牢なエラー回避の全貌を解説する。

—

1. Visio単体起動と「埋め込み（InPlace）」の根本的な違い

VisioのAPIを操作する際、私たちは無意識に `Application` オブジェクトを起点とする。しかし、Excelのシート上に配置されたVisioオブジェクトをダブルクリックし、Excelのウィンドウ枠内にVisioのメニューやツールバーが統合された状態（InPlace活性化状態）のとき、その世界観は一変する。

ライフサイクルとオブジェクトモデルの乖離

• 単体起動 (Standalone): Visioは独立したプロセスとして存在し、`Documents` コレクションやUIの制御権を完全に掌握している。
• インプレース (InPlace): Visioはホスト（ExcelやWord）のコンテナ内でインプロセスサーバーとして動作する。この状態では、Visioのウィンドウハンドル（HWND）やリボンUI、モーダルダイアログの挙動が制限される。

特に、単体起動時を前提とした `Visio.Application.ActiveWindow` の取得や、UIを強制操作するコードは、InPlace環境下では致命的なエラー（「このメソッドまたはプロパティは、インプレース編集時には使用できません」等）を吐き出す。

—

2. Application.InPlaceプロパティによる厳密な環境判定

この挙動の差異を吸収するためには、Visioが現在どのようなコンテキストで動いているかをコードの冒頭で正確に検知しなければならない。ここで強力な武器となるのが `Application.InPlace` プロパティである。

しかし、単にこのプロパティを見るだけでは不十分だ。レガシー環境やOfficeのバージョン差異、さらにはアドインからの呼び出しなど、多角的な要因を考慮した「安全な判定ロジック」を構築する必要がある。

以下に、実務でそのまま使える堅牢な判定・制御モジュールのテンプレートを示す。

Option Explicit

‘ Windows API: 現在のプロセスが埋め込み（OLEコンテナ内）かどうかをより深く検証する場合に備える宣言
‘ ※基本はVisioオブジェクトモデルで完結させますが、極限環境ではAPI併用も視野に入れます。

Public Sub ExecuteSafeVisioProcess()
Dim vsoApp As Visio.Application
Set vsoApp = Visio.Application

‘ 1. InPlace 状態の判定
If IsVisioInPlace(vsoApp) Then
‘ — 埋め込み（InPlace）時の処理 —
‘ UI操作を伴う処理は一切行わず、データモデル（ShapeやProp）の操作のみに限定する
Call ProcessInPlaceMode(vsoApp)
Else
‘ — 単体起動（Standalone）時の処理 —
‘ 通常通りUIやウィンドウ、ファイル保存等を伴うフル機能を実行
Call ProcessStandaloneMode(vsoApp)
End If

‘ 2. 徹底的なオブジェクト解放（メモリリーク防止）
Set vsoApp = Nothing
End Sub

Private Function IsVisioInPlace(ByVal app As Visio.Application) As Boolean
On Error GoTo ErrorHandler

‘ Application.InPlace は Boolean を返す
‘ ※ホストの仕様やバージョンによってはプロパティ自体が存在しない、
‘ またはトラップ不能なエラーを返す特殊なビルドも存在するため、On Errorを必ず伴わせる。
If app.InPlace Then
IsVisioInPlace = True
Else
IsVisioInPlace = False
End If
Exit Function

ErrorHandler:
‘ エラーが発生した場合（古いバージョンや特殊なコンテナ等）、安全側に倒してTrue（埋め込み扱い）と判定する
IsVisioInPlace = True
End Function

—

3. インプレース環境におけるVBAの制約と回避設計

InPlace環境下では、以下の操作が「御法度」となる。これらをコード内で実行してはならない。

1. モーダルフォームの表示 (`UserForm.Show`)

• ホストアプリ（Excel等）のメッセージループと競合し、デッドロックやハングアップを引き起こす。
• 対策: 埋め込み時はUIを表示せず、サイレント処理（ログ出力や即時プロパティ書き換え）に切り替える。

2. ドキュメントの新規作成・別名保存 (`Documents.Add`, `Document.SaveAs`)

• 埋め込みオブジェクトのストレージ構造を破壊する恐れがある。
• 対策: 保存はホストアプリ側（Excel）の保存に委ね、Visio側での明示的なファイル保存コードはバイパスする。

3. ActiveWindowに依存した操作

• インプレース時は `ActiveWindow` が想定外のオブジェクトを指している場合や、Nothingを返す場合がある。

安全なシェイプ走査の実装例

以下のコードは、InPlaceとStandaloneの双方で安全に動作し、かつメモリ最適化を極限まで高めたシェイプ走査のサンプルである。

Private Sub ProcessInPlaceMode(ByVal app As Visio.Application)
Dim vsoDoc As Visio.Document
Dim vsoPage As Visio.Page
Dim vsoShape As Visio.Shape
Dim i As Long

On Error GoTo CleanUp

‘ ActiveDocumentの取得（InPlace時は現在編集中のドキュメントを指す）
Set vsoDoc = app.ActiveDocument
If vsoDoc Is Nothing Then Exit Sub

Set vsoPage = vsoDoc.Pages(1)

‘ パフォーマンス向上のため画面描画を停止
app.ScreenUpdating = False
app.UndoEnabled = False

‘ シェイプの安全な列挙とプロパティ操作
For i = vsoPage.Shapes.Count To 1 Step -1
Set vsoShape = vsoPage.Shapes(i)

‘ 例: 特定のシェイプデータ（Custom Property）を安全に更新
If vsoShape.CellExists(“Prop.Status”, VisExistsFlags.visExistsAnywhere) Then
vsoShape.Cells(“Prop.Status”).FormulaU = “””Processed_InPlace”””
End If

‘ ループ内でのオブジェクト変数の確実な解放
Set vsoShape = Nothing
Next i

CleanUp:
‘ 状態の復元
app.UndoEnabled = True
app.ScreenUpdating = True

‘ オブジェクトの明示的解放（逆順）
Set vsoPage = Nothing
Set vsoDoc = Nothing

If Err.Number <> 0 Then
‘ ログ記録等（MessageBoxはインプレース時には極力避ける）
Debug.Print “InPlace Error: ” & Err.Description
End If
End Sub

—

4. チーフアーキテクトが推奨するメモリ最適化と例外安全

Visio VBAにおける最大の悪習は、`Set obj = Nothing` を怠ることによるCOMオブジェクトの参照カウントのリークである。特にExcelのコンテナ内に埋め込まれたVisioの場合、マクロ終了後もプロセスが背後でメモリに残り続け（ゾンビプロセス化）、最終的にExcelごとフリーズする原因になる。

例外安全（Exception Safety）の鉄則

1. 変数のスコープを最小限にし、必ず逆順で解放する

• `Application` -> `Document` -> `Page` -> `Shape` の順で取得したなら、解放は `Shape` -> `Page` -> `Document` -> `Application` の順で行う。

2. `On Error GoTo` を用いた確実なクリーンアップパスの確保

• 途中でエラーが発生しても、必ず画面描画の復元とオブジェクトの解放処理（CleanUpブロック）を通る構造を強制する。

3. `ScreenUpdating` と `UndoEnabled` の管理

• 埋め込みオブジェクトの処理はリソースが限られているため、無駄なイベント発火やアンドゥバッファの蓄積を遮断することで、実行速度を何倍にも跳ね上げることができる。

—

総括

Visioのインプレース制御は、一見するとマニアックな領域に見えるかもしれない。しかし、ExcelやWordと連携する本格的なエンタープライズ向けの図面管理・自動生成システムを構築する現場においては、避けて通れない極めて重要なアーキテクチャの一部である。

`Application.InPlace` による厳密なコンテキスト判定と、妥協のないリソース管理。この2つを実装に組み込むことで、あなたの書くVisio VBAは、どのような環境下でも絶対に破綻しない「鉄壁の自動化エンジン」へと昇華する。