Visio VBAを掌握する極限の知見：`Application.IsInScope`で暴発するイベントを完全統御せよ
レガシーシステムの最前線でVisio VBAによる自動化設計に挑むエンジニア諸君、日々の開発ご苦労様である。
Visioのオブジェクトモデルは、CADや一般的なOfficeアプリケーションとは一線を画す独自の複雑性を持っている。特に、ユーザーがGUI上で行う「図形のドラッグ＆ドロップ（D&D）」や「ステンシルからのマスタ配置」といった手動操作と、VBA側で実装したイベントハンドラ（`Document_ShapeAdded`など）が競合した際、システムは容易に迷走する。
「ユーザーがドロップした瞬間にVBAが介入し、図形座標を再計算して書き換えた結果、無限ループに陥る」「あるいは、トランザクションの競合によりVisio自体が沈黙する」。こうした現場の悲劇を根絶するため、本稿では`Application.IsInScope`プロパティを用いた実行スコープの厳密な判定と、イベント干渉を防ぐためのプロフェッショナルな制御手法を解説する。
—
1. Visioイベントの闇：なぜ「D&D」とVBAは干渉するのか
Visioで最も頻繁に使用されるイベントの一つに `Document_ShapeAdded`（または `Page_ShapeAdded`）がある。これは図形がページに追加された瞬間に発火する極めて便利なイベントだが、「何によって追加されたか」を初期状態のままでは区別できない。
- ユーザーがステンシルからマウスで図形をドラッグ＆ドロップしたとき
- VBAコード内で `Pages.Item(1).Drop` メソッドを実行したとき
- コピペ（Paste）やグループ化の解除（Ungroup）が行われたとき
これらはすべて同一のイベントを叩き起こす。もし、あなたが「図形が追加されたら自動的に特定のカスタムプロパティ（Prop）を付与し、形状を整形する」というVBAコードを書いていた場合、ユーザーのD&D操作とVBAの自動整形処理がタイミング悪く重なると、Visioの内部トランザクションが衝突し、エラー落ち、あるいは予期せぬ位置への図形ワープを引き起こす。
ここで、アマチュアの開発者は `Application.EnableEvents = False` をやみくもに連呼して逃げようとする。しかし、それは愚策だ。イベントを完全に遮断すると、ユーザーの操作に追従すべき他の監視機構まで麻痺してしまう。
我々が求めるべきは、遮断ではなく「現在Visioのエンジンが何を行っているのか（スコープ）の正確な把握」である。
—
2. 救世主 `Application.IsInScope` とは何か
`Application.IsInScope` プロパティは、Visioの実行エンジンが現在どのようなコンテキスト（スコープ）で処理を実行しているかを判定するための、上級者向けAPIである。
‘ 構文
bInScope = Application.IsInScope(nScope)
引数 `nScope` には、Visioの型ライブラリで定義された定数（`VisMergedScopeIndices` や `VisScopeIDs`）を指定する。例えば、ユーザーがステンシルから図形をドロップしている最中のスコープは `visScopeDrop`（または関連するスコープID）として検出できる。
このプロパティをイベントハンドラのエントリポイントで評価することにより、「これはユーザーの手動D&Dによるものか、それともプログラムからの自動処理か」を完璧に識別し、処理の分岐が可能となる。
—
3. 【実践】`IsInScope` を駆使したイベント干渉防止アーキテクチャ
以下のコードは、`ThisDocument` モジュールに実装すべき、プロダクション品質のイベントハンドラの実装例である。
メモリ効率とパフォーマンスを極限まで高めるため、変数の明示的な解放と、エラーハンドリングの定石を組み込んでいる。
Option Explicit
‘ クラスモジュールやThisDocumentでのイベント監視用変数
Private m_IsProcessing As Boolean
Private Sub Document_ShapeAdded(ByVal Shape As IVShape)
‘ —————————————————————–
‘ 匠の知見：多重実行ガードとスコープ判定によるイベント制御
‘ —————————————————————–
‘ 1. 多重イベント発火（カスケード）の物理的防止
If m_IsProcessing Then Exit Sub
On Error GoTo ErrorHandler
m_IsProcessing = True
‘ 2. Visioの現在の実行スコープを判定
‘ ユーザーによるドラッグ＆ドロップ操作のスコープ内かチェック
If Application.IsInScope(visScopeDrop) Then
‘ 【ケースA】ユーザーが手動でドロップした場合の処理
‘ 例：ドロップされた瞬間のバリデーションや初期位置の補正
Call HandleUserDropAction(Shape)
ElseIf Application.IsInScope(visScopePaste) Then
‘ 【ケースB】コピー＆ペーストによる追加の場合
Call HandlePasteAction(Shape)
Else
‘ 【ケースC】VBAコード内からのプログラム的追加、またはその他
‘ ここでは何もしない、あるいはログ出力のみ
End If
CleanUp:
m_IsProcessing = False
Exit Sub
ErrorHandler:
‘ ログ出力機構（必要に応じてWindowsイベントログやファイル出力へ接続）
Debug.Print “Error in Document_ShapeAdded: ” & Err.Description & ” (0x” & Hex(Err.Number) & “)”
Resume CleanUp
End Sub
Private Sub HandleUserDropAction(ByVal shp As IVShape)
‘ オブジェクトのライフサイクルを意識した安全な操作
Dim vsoCell As IVCell
‘ 例：カスタムプロパティの安全な書き込み
If shp.CellExistsU(“Prop.SystemID”, visExistsLocally) = False Then
shp.AddNamedRow visSectionProp, “SystemID”, visTagDefault
Set vsoCell = shp.CellsU(“Prop.SystemID.Value”)
vsoCell.ResultStrU = “AUTO_GEN_” & Format(Now, “yyyymmddhhnnss”)
End If
‘ COMオブジェクトの参照解放（メモリリーク防止の鉄則）
Set vsoCell = Nothing
End Sub
Private Sub HandlePasteAction(ByVal shp As IVShape)
‘ ペースト時の固有処理をここに記述
Debug.Print “Shape pasted: ” & shp.NameID
End Sub
—
4. チーフアーキテクトが教える：実運用における3つの極限の注意点
このアーキテクチャを現場の巨大な図面管理システムに導入する際、以下の「罠」に直面することがある。私自身の血と汗の結晶である知見を共有しよう。
① スコープ定数のバージョン互換性
Visioのバージョン（Visio 2013, 2016, 2019, 365など）や、32bit/64bitのアーキテクチャ差異によって、一部の `VisScopeIDs` の値や挙動が微妙に異なるケースがある。
もしコンパイルエラーが発生する場合は、マジックナンバーを使用せず、必ず `Object Browser`（F2キー）で該当する環境の列挙体値を確認し、必要であれば定数として明示的に再定義（`Const visScopeDrop As Long = …`）せよ。
② Undo（元に戻す）スタックの汚染防止
`IsInScope` で判定したイベント内で図形プロパティを大量に書き換えると、ユーザーが「Ctrl + Z（元に戻す）」を押したときに、意図しない微細な変更履歴が何層にもスタックされる原因となる。
これを防ぐため、一連の自動修復処理を行う前後は、アプリケーションのトランザクション（`Application.BeginUndoScope` / `EndUndoScope`）でラップし、ユーザーの「1回の操作」としてカプセル化するのがプロの作法である。
③ COMオブジェクトの参照解放（メモリ最適化）
VBAのガベージコレクションは頼りにならない。特にイベントハンドラ内で取得した `Shape`、`Page`、`Cell` などのオブジェクト変数は、プロシージャを抜ける際に確実に `Set obj = Nothing` を明示し、Visioの背後にあるCOMコンポーネントの参照カウントをゼロに落とせ。これを怠ると、長時間稼働するCAD/Visioプロセスでメモリリークが蓄積し、システム全体のパフォーマンスが崩壊する。
—
総括
Visio VBAにおけるイベント制御は、単なる「コードの記述」ではない。それはVisioのC++ベースの内部エンジンと、VBAのランタイム環境の「対話」を調律する高度なアーキテクチャ設計である。
`Application.IsInScope` を使いこなし、ユーザーの「手動操作」とシステムの「自動化」の境界線を明確に引くこと。それこそが、現場のユーザーから「落ちない、早い、意図通りに動く」と絶賛される、真に堅牢なエンタープライズ・Visioソリューションを構築唯一の道である。
