Visio VBAを掌握する極限の知見：Document.Modeによるステンシル誤破壊を防ぐ自動ガードの構築
VisioのVBA開発において、最も恐ろしいヒューマンエラーは何か。
それは、開発者がマクロのテスト対象を誤り、マスターステンシル（.vssx）そのものを直接書き換え、既存の全図面への影響を爆発させてしまう事故だ。
マスターステンシルは図面の「親」である。これを汚染することは、全社標準シェイプの崩壊を意味する。しかし、VisioのUI上では、図面とステンシルがシームレスに開かれるため、作業者は今どちらを触っているのかを見失いがちになる。
今回は、Visioのオブジェクトモデルの深部を突く `Document.Mode` を用い、マクロの暴走をコンパイルレベル・実行開始時に完璧に封じる「自動ガードシステム」の実装方法を解説する。
—
1. Visioオブジェクトモデルの隠された罠と `Document.Mode`
多くのVBAプログラマは、`ActiveDocument` という曖昧なグローバル参照に頼りきっている。しかし、シニアエンジニアであれば、Visioのドキュメントには明確な「ライフサイクルと役割のモード」が存在することを知っているはずだ。
`Document` オブジェクトの `Mode` プロパティは、そのドキュメントが通常の描画キャンバスなのか、それとも再利用可能なステンシルなのかを決定づけるフラグを内包している。
Visioドキュメントのモード種別
- VisModeDrawing (.visModeDrawing): 通常の図面ファイル（.vsd, .vsdmなど）。シェイプの配置、接続、ページ追加が自由に行われる領域。
- VisModeStencil (.visModeStencil): ステンシルファイル（.vss, .vssxなど）。マスターシェイプのコンテナであり、ここにあるシェイプの改変は全図面に波及する。
この `Mode` を無視して一括処理や自動レイアウトスクリプトを走らせると、ステンシルのマスターシェイプ構造が破壊され、取り返しのつかない事態に陥る。
—
2. 【実装】誤書き換えを完全阻止するガードルーチン
以下のコードは、マクロの冒頭（EntryPoint）に配置し、対象ドキュメントが「描画図面」であることを厳格に検証するセキュリティ・ガードである。
さらに、メモリリークを防ぐための厳格なオブジェクト解放、およびレガシー環境（Visio 2013〜2021/Microsoft 365）の差異を吸収する堅牢な設計にしている。
Option Explicit
‘ ==============================================================================
‘ 致命的なステンシル書き換えを防ぐためのエントリーポイント・ガード
‘ Architecture Note:
‘ すべてのバッチ処理、自動レイアウト、データ連携マクロの最上流にこれを配置する。
‘ ==============================================================================
Public Sub ExecuteProtectedOperation()
Dim targetDoc As Visio.Document
‘ オブジェクトの安全な取得（ActiveDocumentの直叩きは例外リスクがあるため変数に格納）
On Error GoTo ErrorHandler
Set targetDoc = Visio.ActiveDocument
‘ 1. ドキュメントが存在するかチェック（Visio未起動・図面未オープン対策）
If targetDoc Is Nothing Then
MsgBox “処理対象となるアクティブなドキュメントが存在しません。”, vbCritical, “System Guard: 致命的エラー”
Exit Sub
End If
‘ 2. 【核心】Document.Modeによるステンシル判定
If IsStencilDocument(targetDoc) Then
‘ 警告ログの出力（将来的な監査証跡としても有用）
Debug.Print “【Guard発動】ステンシル(.vssx)への不正なマクロ実行を阻止しました: ” & targetDoc.FullName
MsgBox “【操作は拒否されました】” & vbCrLf & vbCrLf & _
“選択中のドキュメントは「ステンシルファイル」です。” & vbCrLf & _
“マスターシェイプの直接改変を防ぐため、このマクロの実行はキャンセルされました。” & vbCrLf & vbCrLf & _
“対象ファイル: ” & targetDoc.Name, _
vbCritical, “Visio Architect Guard – 誤操作防止システム”
GoTo Cleanup
End If
‘ ————————————————————————–
‘ 以下、安全が証明された描画図面（.vsdm）に対するコアロジックを記述
‘ ————————————————————————–
Call RunMainBusinessLogic(targetDoc)
Cleanup:
‘ 3. メモリ最適化：COMオブジェクトの明示的解放
‘ VBAのガベージコレクタを過信せず、スコープ外に出す前に参照を切断する。
Set targetDoc = Nothing
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “Critical Error”
Resume Cleanup
End Sub
‘ ==============================================================================
‘ Document.Modeを評価するカプセル化関数
‘ ==============================================================================
Private Function IsStencilDocument(ByVal doc As Visio.Document) As Boolean
Dim isStencil As Boolean
isStencil = False
On Error GoTo SafeCheck
‘ Document.Mode プロパティの評価
‘ Visioモデリングにおいて、Modeが visModeStencil であるかを判定
If doc.Mode = VisDocumentModes.visModeStencil Then
isStencil = True
End If
‘ 拡張子による二重チェック（万全を期すための防御的プログラミング）
Dim ext As String
ext = LCase(Mid(doc.Name, InstrRev(doc.Name, “.”) + 1))
If ext = “vss” Or ext = “vssx” Or ext = “vstm” Then
isStencil = True
End If
SafeCheck:
IsStencilDocument = isStencil
End Function
‘ ==============================================================================
‘ 実際の業務ロジック（ガード通過後にのみ呼び出される）
‘ ==============================================================================
Private Sub RunMainBusinessLogic(ByVal doc As Visio.Document)
‘ ここに本来のシェイプ操作やデータ連携処理を記述する
MsgBox “ガードチェックをクリアしました。” & vbCrLf & _
“安全な図面ドキュメント [” & doc.Name & “] に対する処理を実行します。”, _
vbInformation, “Execution Success”
‘ 例：ページ数の取得とログ出力
Debug.Print “処理対象ページ数: ” & doc.Pages.Count
End Sub
—
3. チーフアーキテクトが解説する実装の急所
A. なぜ `ActiveDocument` を直接使うべきではないのか
VBAコード内で `ActiveDocument.Pages…` と直接記述する悪習は、フォーカスが意図せぬウィンドウ（別の開いているステンシルなど）に移動した瞬間、バグやデータ破損を引き起こす。
一度 `targetDoc` という強参照に代入し、その瞬間のドキュメントステータス（Mode）をスナップショットとして固定化するのがプロフェッショナルの作法である。
B. 二重防御（Defense in Depth）の思想
`doc.Mode = visModeStencil` による判定だけでも十分に強力だが、Visioのアドインや外部ツール連携においては、ファイル拡張子（`.vssx`, `.vstm`）の文字列検証を組み合わせる「二重防御」を推奨する。
API仕様の変更や、特殊なテンプレート状態にあるドキュメントの誤認を防ぐため、多層的なフィルターを通すことがシステム安定稼働の絶対条件となる。
C. COMオブジェクトのライフサイクル管理
VBAと言えども、背後で動いているのは重厚長大なVisioのCOMコンポーネントである。
処理の終わりに `Set targetDoc = Nothing` を明示的に実行し、参照カウントをデクリメントさせることで、メモリリークやVisioプロセスのゾンビ化（バックグラウンドにプロセスが残り続ける現象）を根絶する。
—
総括
開発環境や自動化スクリプトにおいて、「失敗しないこと」よりも価値があるのは「致命的な失敗が物理的に起きない構造を作ること」だ。
今回紹介した `Document.Mode` によるガード機構をテンプレートの標準モジュールに組み込むだけで、マスターステンシルの誤破壊という、現場を絶望させるインシデントを100%未然に防ぐことができる。
技術とは、ヒューマンエラーをカバーするためにこそ使われるべきである。ぜひ、あなたのソリューションにもこの「鉄壁のガード」を導入してほしい。
