Visio VBAを掌握する極限の知見：ステンシル破壊を防ぐ `Document.Mode` 徹底ガード設計
開発プロジェクトの現場において、VBAマクロの誤作動によるファイル破損ほど不毛なトラブルはありません。特にMicrosoft Visioの自動化において、最も恐ろしい事故の一つが「ステンシルファイル（.vssx）の直接上書き破壊」です。
マスターシェイプを管理するためのステンシルを、通常の図面（.vsdm）と同じ感覚でマクロの処理対象にしてしまい、意図しないプロパティの書き込みや保存を行ってマスター群を全壊させた――。あなたも、あるいはあなたのチームメンバーも、こうした冷汗をかくような経験はないでしょうか。
今回は、Visio VBAのオブジェクトモデルの深層を知り尽くしたアーキテクトの視点から、`Document.Mode` を用いたドキュメントタイプの自動判定と、誤書き換えを完封する堅牢なガードロジックの実装手法をシャープに解説します。
—
1. なぜ「ファイル拡張子」での判定では不十分なのか？
アマチュアプログラマーが最初に書くコードは、決まって次のようなものです。
‘ 【アンチパターン】拡張子だけで判定する脆弱なコード
Dim targetDoc As Visio.Document
Set targetDoc = ActiveDocument
If LCase(Right(targetDoc.Name, 5)) = “.vssx” Then
MsgBox “ステンシルです。処理を中断します。”, vbCritical
Exit Sub
End If
このアプローチは実務の現場では使い物になりません。理由は明確です。
1. ユーザーがファイル名をリネームしている可能性がある。
2. 開発中の無題のステンシルや、アドオンから動的に生成されたドキュメントでは拡張子が一致しない。
3. 何より、Visioのオブジェクトモデルには、そのドキュメントが「今、どのようなモードで開かれているか」を正確に表すネイティブなプロパティが存在するにもかかわらず、それを無視するのはエンジニアの怠慢だからです。
Visio VBAを掌握する者であれば、ファイル名などの表層的な情報ではなく、Visioエンジン自身が保持するメタデータ（モード）を直接叩くべきです。
—
2. `Document.Mode` が持つ真のポテンシャル
Visioの `Document` オブジェクトには、そのドキュメントの性質や開き方を規定する `Mode` プロパティが備わっています。
このプロパティを理解することで、マクロを実行しているドキュメントが「通常の図面」なのか、「ステンシル」なのか、あるいは「テンプレート」なのかを100%の確実性で判別できます。
Visioにおける主要なドキュメントモード
- 通常の図面ドキュメント (.vsd / .vsdm 等)
- ステンシル (.vss / .vssx 等)：マスターシェイプのコンテナであり、ここに直接図形の配置やマクロによる一括書き換えを行うと、大元のマスターが破損します。
- テンプレート (.vst / .vstm 等)
プロパティの値を監視し、処理対象外のドキュメントがフックされた瞬間に処理を安全にイグジット（退出）させる。これがプロダクションコードにおける必須の作法です。
—
3. 【プロダクションコード】誤動作を完封するガードモジュール
実務の現場でそのまま組み込める、堅牢性と保守性を極限まで高めた標準モジュールを提供します。
このコードは、マクロの実行開始時に必ず呼び出される「ガードゲート」として機能します。
Option Explicit
‘ ==============================================================================
‘ モジュール名: modDocumentGuard
‘ 概要: ドキュメントのモードを判定し、ステンシルへの誤操作を完全防御する
‘ ==============================================================================
‘ Visioのドキュメントモードを表す列挙体（Visio 2013以降完全対応）
Private Enum VisDocumentTypes
visDocTypeDrawing = 0 ‘ 通常の図面
visDocTypeStencil = 1 ‘ ステンシル
visDocTypeTemplate = 2 ‘ テンプレート
End Enum
Public Sub ExecuteBusinessLogicSafely()
On Error GoTo ErrorHandler
‘ 1. アクティブドキュメントの存在チェック
If ActiveDocument Is Nothing Then
MsgBox “処理対象となるドキュメントが開かれていません。”, vbExclamation, “ガードシステム”
Exit Sub
End If
‘ 2. 【核心】Document.Mode によるドキュメントタイプ判定
If Not ValidateDocumentMode(ActiveDocument) Then
Exit Sub ‘ ガード発動により安全に終了
End If
‘ ==========================================================================
‘ ここから下に、本来実行したいコアの業務ロジックを記述する
‘ ==========================================================================
Call RunCoreProcess(ActiveDocument)
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “致命的エラー”
End Sub
‘ ——————————————————————————
‘ 関数名: ValidateDocumentMode
‘ 戻り値: Boolean (True: 処理続行可能 / False: 処理拒否)
‘ ——————————————————————————
Private Function ValidateDocumentMode(ByVal targetDoc As Visio.Document) As Boolean
Dim isAllowed As Boolean
isAllowed = True
‘ Document.Mode を評価
Select Case targetDoc.Mode
Case VisDocumentTypes.visDocTypeStencil
MsgBox “【操作ガード発動】” & vbCrLf & _
“対象ファイルは「ステンシル（.vssx）」です。” & vbCrLf & _
“ステンシル本体の直接編集・一括処理は禁止されています。” & vbCrLf & _
“処理を中断します。”, _
vbCritical, “ドキュメント保護ガード”
isAllowed = False
Case VisDocumentTypes.visDocTypeTemplate
‘ テンプレートの場合の挙動（必要に応じて制御）
Dim res As VbMsgBoxResult
res = MsgBox(“対象ファイルは「テンプレート」です。処理を続行しますか？”, _
vbYesNo + vbQuestion, “確認”)
If res = vbNo Then isAllowed = False
Case VisDocumentTypes.visDocTypeDrawing
‘ 通常図面は処理継続
isAllowed = True
Case Else
‘ 未知のモードに対するフェイルセーフ
MsgBox “未知のドキュメントモードが検知されたため、安全のため処理を中止します。”, _
vbExclamation, “セキュリティガード”
isAllowed = False
End Select
ValidateDocumentMode = isAllowed
End Function
‘ ——————————————————————————
‘ 実際の業務処理（サンプル）
‘ ——————————————————————————
Private Sub RunCoreProcess(ByVal targetDoc As Visio.Document)
‘ ここには図面に対する安全な形状操作コードが入る
MsgBox “ドキュメントの検証に成功しました。” & vbCrLf & _
“ファイル名: ” & targetDoc.Name & vbCrLf & _
“業務処理を実行します。”, vbInformation, “実行完了”
End Sub
—
4. チーフアーキテクトからの実践的アドバイス：設計の要諦
このコードを導入するにあたり、現場のリーダーとして以下のポイントを徹底することを強く推奨します。
1. すべてのパブリックマクロの入口に配置する
ユーザーがリボンやマクロダイアログから実行するすべてのエントリーポイント（Public Sub）の最上部に、この `ValidateDocumentMode` チェックを組み込んでください。例外を作らないことが、ヒューマンエラーを防ぐ唯一の絶対条件です。
2. データベースや外部ファイル連携時の注意点
もしこのマクロが、Excelや外部データベースからデータを読み込んでVisio図面を自動生成するツールである場合、誤って「ステンシルを開いた状態」でバッチ処理を走らせてしまうと、データベース側のIDマッピングやシェイプIDの書き込みで大惨事を引き起こします。DB連携バッチの前段にも、必ずこのモード判定をインプットしてください。
3. 「守り」のコードこそが最高の開発効率を生む
「動くコードを書く」のはプログラマーの仕事ですが、「壊れない仕組みを作る」のはエンジニアの仕事です。防御的設計（Defensive Design）を徹底したコードベースは、運用フェーズにおけるトラブルシューティングの時間をゼロにし、結果として最大の業務効率化をもたらします。
Visioのオブジェクトを掌握し、優美で堅牢な自動化ソリューションをあなたの現場にも実装してください。
