Visio VBAを掌握する極限の知見：`Application.IsInScope`で挑む、ユーザー操作とイベントの完全調和
開発プロジェクトの現場で、Visioの自動化ツールを作り込んだ経験がある者なら、誰もが一度はこの悪夢にうなされたことがあるはずだ。
「ユーザーがステンシルから図形をドロップした瞬間、VBAのイベントハンドラが発火し、非同期の処理と衝突してVisioがフリーズする。あるいは、意図しないループが走って図形が無限複製される」
アマチュアの開発者は、ここでイベントを無効化するだけの場当たり的なコード（`Application.EventsEnabled = False`）を書き、さらに深いデバッグの沼に沈んでいく。しかし、プロのアーキテクトは違う。我々はVisioのライフサイクルそのものを理解し、ユーザーの手動操作（Drag & Drop）とプログラムの自律動作をエレガントに共存させなければならない。
今回は、Visio VBAの隠れた名プロパティ`Application.IsInScope`を駆使し、極限まで堅牢なイベント制御アーキテクチャを構築する極意を伝授する。
—
なぜ「イベントの切り忘れ・競合」は現場のシステムを破壊するのか
Visioのイベントモデルは、強力であると同時に極めてデリケートだ。
例えば、ユーザーがステンシルから新しいシェイプをページ上にドロップしたとする。この時、`DocumentChanged`や`ShapeAdded`といったイベントが飛ぶ。
ここで、VBA側で「シェイプが追加されたら、そのプロパティを自動的に書き換える」という実務的なロジックを組んでいたとしよう。
1. ユーザーが図形をドロップする（Visio内部で `visScopeDrop` スコープが開始）。
2. `ShapeAdded` イベントが発火し、VBAコードが実行される。
3. VBAコード内で図形の `.Text` や `.Cells` を書き換える。
4. その書き換え自体が新たなイベントを引き起こし、イベントハンドラが再突入（Re-entrancy）する。
この「無限ループ」や「操作の競合」を防ぐためだけに、何日ものデバッグ時間を費やすのはエンジニアのリソースの無駄遣いだ。ここで求められるのは、「今、Visioのエンジンは何をしている最中なのか」を正確にリアルタイムで検知し、処理を分岐させる能力である。
—
救世主：`Application.IsInScope` プロパティとは何か
`Application.IsInScope` は、Visioの実行コンテキスト（スコープ）を指定して、現在の処理がそのスコープ内で行われているかどうかを真偽値（Boolean）で返すメソッドだ。
If Application.IsInScope(visScopeDrop) Then
‘ 現在、ユーザーがドラッグ＆ドロップ操作を行っている最中である
End If
このプロパティの真価は、「ユーザーのGUI操作（手動）」と「VBAコードによるプログラム操作（自動）」を完全に識別できる点にある。
例えば、VBAから `Page.Drop` メソッドを実行して図形を配置した場合と、ユーザーがマウスでドラッグ＆ドロップした場合では、Visio内部のスコープスタックの状態が異なる。これを利用することで、「ユーザーの手動ドロップの時だけ、特定のバリデーションや初期化を走らせ、プログラムからの自動生成時は無視する」といった高度な制御が可能になる。
—
プロダクションコード：堅牢なイベントハンドラの設計
それでは、実際の業務アプリケーションでそのまま使えるプロダクションコードを提示しよう。
このコードでは、`VisEventProc` を用いた高度なアドオン/クラスモジュール構造を想定し、ユーザーのドロップ操作とデータベース連携の競合を防ぐ設計を取り入れている。
クラスモジュール: `CEventSink.cls`
Option Explicit
‘ —————————————————————–
‘ ビスioイベントシンククラス
‘ ユーザーのドロップ操作とVBAイベントの干渉をIsInScopeで制御する
‘ —————————————————————–
Public WithEvents vsoApp As Visio.Application
Private Sub vsoApp_ShapeAdded(ByVal Sheet As Visio.IVShape)
On Error GoTo ErrorHandler
‘ 1. 現在のスコープが「ユーザーによるドロップ操作」であるか判定
If vsoApp.IsInScope(visScopeDrop) Then
‘ ————————————————————-
‘ [User Action Context] ユーザーが手動で図形を配置した場合
‘ ————————————————————-
Debug.Print “ユーザーによるドラッグ＆ドロップを検知: ” & Sheet.NameID
‘ 外部データベースやマスタとの突き合わせ処理（非同期を考慮した安全な処理）
Call HandleUserDroppedShape(Sheet)
Else
‘ ————————————————————-
‘ [Programmatic Context] VBAコード等からプログラムで生成された場合
‘ ————————————————————-
Debug.Print “プログラムによる図形生成を検知（イベント処理をスキップ）”
End If
Exit Sub
ErrorHandler:
MsgBox “ShapeAdded イベント処理中にエラーが発生しました: ” & Err.Description, vbCritical
End Sub
Private Sub HandleUserDroppedShape(ByRef shp As Visio.IVShape)
‘ 業務ロジックの例：ドロップされた図形に一意のID（UUID等）を自動付与する
Dim targetCell As Visio.Cell
‘ イベントの連鎖を防ぐために一時的にイベントを抑制するのではなく、
‘ IsinScopeで入り口を制御しているため、この中の操作は安全に行える
If Not shp.CellExistsU(“Prop.SystemID”, False) Then
shp.AddNamedRow visSectionProp, “SystemID”, visTagDefault
Set targetCell = shp.CellsU(“Prop.SystemID.Value”)
targetCell.FormulaU = “””” & CreateGUID() & “”””
End If
‘ 外部DBへの即時ログ書き込み（ファイルI/OやDB接続の注意点）
‘ ※重い処理はDoEventsを挟むか、非同期キューイングを検討すること
End Sub
Private Function CreateGUID() As String
‘ 簡易的なGUID生成ロジック（実務ではAPI等に置き換え）
CreateGUID = “VISIO-” & Format(Now, “yyyymmdd-hhnnss”)
End Function
—
ファイル・データベース連携におけるアーキテクチャの注意点
上記のようなコードを現場に導入する際、シニアエンジニアとして知っておくべき「インフラ的制約」がある。
1. データベース接続の持ち方に注意せよ
Visioのイベントハンドラ内で重いSQL ServerやSQLiteへの書き込みを同期処理で行うと、ユーザーのドロップ操作そのものがカクつく（UIスレッドのブロック）。`IsInScope(visScopeDrop)` でユーザー操作をフックした後は、データをローカルのコレクションにバッファリングし、タイマーイベントやバックグラウンド処理で一括同期（Batch Insert）するアーキテクチャが望ましい。
2. 「スコープの取りこぼし」に備えたディフェンシブ・プログラミング
Visioのバージョンやアドオンの競合環境によっては、予期せぬスコープIDが返される場合がある。そのため、`IsInScope` による判定だけでなく、フラグ変数（例: `g_IsProcessing`）による二重ガードを組み合わせるのが、ミッションクリティカルな環境における定石である。
—
まとめ：チーフアーキテクトからの提言
Visio VBAにおける開発の成否は、「Visioというブラックボックスのライフサイクルをどこまで手中に収めているか」で決まる。
ネット上の散逸したサンプルコードをコピペして「動いたからよし」とする時代は終わった。業務効率化ツールの信頼性を担保するためには、今回解説した `Application.IsInScope` のような高度なプロパティを使いこなし、「ユーザーが何をしようとしているのか（意図）」と「プログラムが何をすべきか（自動化）」の境界線を明確に引き直さなければならない。
あなたの書くコードが、現場のストレスを消し去り、真の業務自動化をもたらすことを期待している。
