Visio VBAを掌握する極限の知見：Application.Settingsによる作図環境の完全同期と強制統御
Visioを用いた大規模な自動レイアウトや、多端末間での図面生成パイプラインを構築する際、もっともエンジニアを絶望させる要因の1つが「ユーザーのローカル環境依存による作図精度の崩壊」である。
デフォルトのVisioインスタンスは、ユーザーが直近で操作したスナップ設定やグリッド間隔、あるいはドキュメントの初期テンプレートに依存して動作する。この揺らぎを放置したまま`Shape.LocPinX`や`CellsU`を駆使して精密な座標計算を行っても、実行環境のグリッドスナップやグルー設定が有効であれば、図形の配置座標は無慈悲に丸められ、幾何学的な整合性は音を立てて崩れ去る。
本稿では、`Application.Settings`オブジェクトを極限までハックし、マクロ実行時に作図補助設定を開発者の意図するミリ単位・インチ単位の精度へアトミックに強制統一し、処理終了後に元の環境を完璧に復元する堅牢なアーキテクチャを解説する。
—
1. Visioオブジェクトモデルにおける「設定（Settings）」の罠
多くのVBAプログラマは、図面の設定を変更する際、`ActiveDocument.DocumentSheet`のシェイプシートや、アクティブウィンドウのプロパティを直接いじろうとする。これは悪手である。
Visioのアーキテクチャにおいて、アプリケーションレベルの設定と、ドキュメントレベルの設定は階層が異なる。
- `Application.Settings`: アプリケーション全体の振る舞い（スナップの有効/無効、グリッドの挙動など）を司る。
- `Page.PageSheet` / `Document.DocumentSheet`: 個別の図面固有のマスターデータ。
自動化スクリプトにおいて担保すべきは、「どのPCで実行されようとも、どの既存図面が開かれていようとも、プログラムが要求する空間精度（Snap/Grid）が物理的に強制されていること」である。これを担うのが `Application.Settings` の真価だ。
—
2. 実装コード：環境の完全統御と例外安全な復元パターン
以下に提示するコードは、単に設定を書き換えるだけの玩具ではない。
「もしマクロ途中でエラーが発生しても、ユーザーの元のスナップ設定を確実に復元する（Exception Safety）」という、シニアエンジニアリングの基本原則を完全に満たしたプロダクション品質のモジュールである。
Option Explicit
‘ ==============================================================================
‘ モジュール名: MdlEnvironmentController
‘ 概要: Visioの作図補助設定（スナップ・グリッド）を強制統御するクラス的モジュール
‘ ==============================================================================
‘ 状態退避用のプライベート変数
Private m_OldSnapEnabled As Boolean
Private m_OldGlueEnabled As Boolean
Private m_OldGridSpacing As Double
Private m_IsInitialized As Boolean
Public Sub InitializeHighPrecisionEnvironment()
Dim vsoSettings As Visio.Settings
Set vsoSettings = Application.Settings
On Error GoTo ErrorHandler
‘ 1. 現在の環境を退避（ユーザーの作業環境を破壊しないための必須処理）
m_OldSnapEnabled = vsoSettings.SnapEnabled
m_OldGlueEnabled = vsoSettings.GlueEnabled
‘ グリッド間隔の退避（Visioの内部単位はインチ。必要に応じてDblToIU等で変換）
‘ ここではアプリケーション全体のデフォルトグリッド主目盛りを取得
m_OldGridSpacing = vsoSettings.GridSpacing
‘ 2. 開発者が意図する高精度環境へ強制書き換え
‘ スナップ・グルーを完全無効化し、ミリ単位の演算誤差を排除する
vsoSettings.SnapEnabled = False
vsoSettings.GlueEnabled = False
‘ 例として、グリッド間隔を厳密に「1mm (1 / 25.4 インチ)」に設定
‘ Visioのネイティブ単位系はインチであるため、ミリ換算係数を適用する
vsoSettings.GridSpacing = 1# / 25.4
‘ 描画のブラックアウトを防ぎつつ、即時反映
Application.ScreenUpdating = False
m_IsInitialized = True
Exit Sub
ErrorHandler:
‘ 異常系：退避処理中の障害時は即座に安全側に倒す
Call RestoreEnvironment
Err.Raise Err.Number, “InitializeHighPrecisionEnvironment”, “作図環境の初期化に失敗しました: ” & Err.Description
End Sub
Public Sub RestoreEnvironment()
If Not m_IsInitialized Then Exit Sub
Dim vsoSettings As Visio.Settings
Set vsoSettings = Application.Settings
On Error Resume Next
‘ 退避していた元の設定を復元
vsoSettings.SnapEnabled = m_OldSnapEnabled
vsoSettings.GlueEnabled = m_OldGlueEnabled
vsoSettings.GridSpacing = m_OldGridSpacing
Application.ScreenUpdating = True
m_IsInitialized = False
On Error GoTo 0
End Sub
—
3. 実践：メインルーチンでのライフサイクル管理
上記のモジュールを実際の業務自動化フローに組み込む際の作法を示す。
`Try-Finally` 構文を持たないVBAにおいて、エラーハンドリングブロック（`On Error GoTo`）を用いたスコープ管理は生命線となる。
Sub ExecutePreciseDrawingPipeline()
Dim envController As MdlEnvironmentController
Set envController = New MdlEnvironmentController
On Error GoTo SafeExit
‘ — 【ライフサイクル開始】環境のロックと高精度化 —
envController.InitializeHighPrecisionEnvironment
‘ 画面描画停止によるパフォーマンス爆発的向上
Application.ScreenUpdating = False
‘ — メイン処理（例：高精度なシェイプ群の生成） —
Dim vsoPage As Visio.Page
Set vsoPage = ActivePage
Dim shp As Visio.Shape
‘ スナップに干渉されないため、ミリ単位の計算値がそのまま精密に配置される
Set shp = vsoPage.DrawRectangle(0, 0, 50 / 25.4, 30 / 25.4) ‘ 50mm x 30mm の矩形
‘ 正常終了
GoTo SafeExit
SafeExit:
Dim errNum As Long, errDesc As String
If Err.Number <> 0 Then
errNum = Err.Number
errDesc = Err.Description
End If
‘ — 【ライフサイクル終了】環境の確実に復元 —
envController.RestoreEnvironment
Application.ScreenUpdating = True
‘ 異常伝播
If errNum <> 0 Then
MsgBox “自動化処理中にエラーが発生しました: ” & errDesc, vbCritical, “致命的エラー”
End If
End Sub
—
4. チーフアーキテクトが警鐘を鳴らす「見落とされがちな罠」
① 単位系（Units）の罠
VisioのAPI内部は、どれだけUI側で「ミリメートル」や「センチメートル」を選択していようとも、基本的には「内部単位（インチ）」でデータを取り扱う。
`Application.Settings.GridSpacing` に数値を代入する場合、`1` を指定すると「1インチ（25.4mm）」になる。ミリ単位で精密に制御したい場合は、必ず `25.4` で除算した値を渡さなければならない。この変換を怠ると、図面全体のスケールが数倍に拡大・縮小し、図形がキャンバスからはみ出す惨劇を引き起こす。
② Undo（アンドゥ）スタックの肥大化
`Application.Settings` を含むプロパティ変更は、VisioのUndoスタックに積まれる場合がある。マクロ内で数千回の図形生成と同時に設定変更を行ったりすると、メモリが圧迫され、最悪の場合 Visio がクラッシュする。
そのため、本稿のコードにある通り、マクロの実行前に一度だけ設定を変更し、終了時に一括復元するアトミックな設計が不可欠なのだ。
③ 複数ドキュメント（MDI）環境下での副作用
Visioはマルチドキュメントインターフェース（MDI）であり、複数の図面が同時に開かれることがある。`Application.Settings` はアプリケーションスコープであるため、背景で開いている別のユーザーの図面にも影響を与えるリスクがある。
厳密なシステム間連携やサーバーサイドでのヘッドレス実行（Visioのバックグラウンドインスタンス化）においては、他のプロセスと競合しないよう、排他制御や専用インスタンスの生成（`New Visio.Application`）を組み合わせるのが、真のプロフェッショナルエンジニアリングである。
