混沌とした図面を秩序へ：Visio VBAによる「グリッド・ルーラー設定」の完全統一戦略
プロジェクトが大規模化し、複数の設計者が一つのVisioファイルに触れるようになったとき、現場には必ずと言っていいほど「静かなる崩壊」が始まる。
あるページはグリッドが5mm間隔、別のページは10mm間隔。スナップ設定はバラバラ。これらは一見、単なる「見た目の問題」に見えるだろう。しかし、アーキテクトの視点から言わせれば、これは「設計品質の不一致」という致命的なテクニカルデット（技術的負債）だ。
図面の整合性が保たれていない状態での作図は、後続の工程における寸法の誤認や、レイアウトの崩れを誘発する。本稿では、初心者レベルの「とりあえず動くスクリプト」を脱却し、実務で通用する「堅牢で保守性の高い自動化ツール」を設計するための極意を伝授する。
1. なぜ「単純なループ処理」では不十分なのか
初心者が最初に書くコードは、おそらくこのようなものだ。
' 【非推奨】プロフェッショナルとは言えないコードの例
Sub BadExample()
Dim pg As Visio.Page
For Each pg In ActiveDocument.Pages
pg.GridSpacing = 0.5 ' 単位は不明確
' ...他の設定...
Next pg
End Subこのコードには、プロダクション環境（実務現場）で運用するには致命的な欠陥が3つある。
1. 副作用の無視: ページには「背景ページ（Background Page）」が存在する。これらを不用意に書き換えると、図面全体のテンプレート構造を破壊する恐れがある。
2. パフォーマンスの欠如: ページごとに画面更新が発生し、ページ数が多い場合にVisioがフリーズしたような挙動を見せる。
3. マジックナンバーの乱用: `0.5` という数値が何を意味するのか（mmなのか、inchなのか、あるいはVisio内部単位なのか）が不明瞭で、仕様変更に極めて弱い。
我々が目指すべきは、「設定（Data）」と「ロジック（Logic）」を分離した設計である。
2. アーキテクチャ設計：堅牢な自動化の3原則
プロフェッショナルなツールを構築する際は、以下の3つの原則をコードに組み込む。
① 構成の分離 (Separation of Concerns)
グリッドの間隔やスナップの有無といった「ルール」は、コードのロジック内に直接書き込むのではなく、定数または外部設定として定義する。これにより、将来「やっぱり間隔を7mmにしたい」と言われた際、修正箇所を最小限に抑えられる。
② エラーハンドリングと状態管理
実行中に予期せぬエラーが発生しても、Visioのアプリケーション状態（画面更新の停止など）を元に戻し、ユーザーに適切なメッセージを伝える必要がある。
③ ページ・フィルタリング
すべてのページを対象にするのではなく、ユーザーが意図した「作図用ページ」のみを対象とするロジックが必要だ。
3. 実装：プロダクション・グレードの自動化スクリプト
それでは、これらを踏まえた「全ページ・グリッド設定統一スクリプト」を提示する。このコードは、そのまま実務のツールキットとして組み込めるレベルを目指している。
Option Explicit
' ==============================================================================
' 設定セクション (Configuration)
' 本来は外部ファイルやデータベースから読み込むのが理想だが、
' 単一ツールとしては定数として定義することで保守性を高める。
' ==============================================================================
Private Const GRID_SPACING_MM As Double = 5# ' グリッド間隔 (mm)
Private Const SHOW_RULERS As Boolean = True ' ルーラーを表示するか
Private Const SHOW_GRID As Boolean = True ' グリッドを表示するか
Private Const SNAP_TO_GRID As Boolean = True ' グリッドへのスナップを有効にするか
' ==============================================================================
' メインルーチン: 全ページのページ設定を一括適用する
' ==============================================================================
Public Sub ApplyUnifiedPageSettings()
Dim doc As Visio.Document
Dim pg As Visio.Page
Dim successCount As Integer
Dim errorCount As Integer
Set doc = ActiveDocument
' 1. 状態の保存と最適化
' 画面更新を停止することで、処理速度を劇的に向上させ、画面のチラつきを防ぐ
Application.ScreenUpdating = False
On Error GoTo ErrorHandler
successCount = 0
errorCount = 0
Debug.Print "--- 設定更新プロセス開始 ---"
' 2. ページ・ループ処理
For Each pg In doc.Pages
' 背景ページ（Background Page）は除外するロジック
' これにより、テンプレートの構造を壊すリスクを回避する
If pg.Background = False Then
' 個別のページ設定適用（カプセル化）
If SetPageGridProperties(pg) Then
successCount = successCount + 1
Else
errorCount = errorCount + 1
End If
End If
Next pg
' 3. 終了処理
Application.ScreenUpdating = True
MsgBox "設定の適用が完了しました。" & vbCrLf & _
"成功: " & successCount & " ページ" & vbCrLf & _
"失敗: " & errorCount & " ページ", vbInformation, "完了報告"
Exit Sub
ErrorHandler:
' エラー発生時でも必ず画面更新を再開させる
Application.ScreenUpdating = True
MsgBox "致命的なエラーが発生しました: " & Err.Description, vbCritical, "システムエラー"
End Sub
' ==============================================================================
' サブルーチン: 単一ページのプロパティを制御する（カプセル化）
' ==============================================================================
Private Function SetPageGridProperties(ByRef targetPage As Visio.Page) As Boolean
On Error GoTo SubError
' Visioの内部単位はインチであるため、mmからの変換が必要。
' ここで計算ロジックを隠蔽することで、メインルーチンをクリーンに保つ。
Dim spacingInInches As Double
spacingInInches = GRID_SPACING_MM / 25.4
' ページ設定の適用
' ※注意: Visioのバージョンやページ設定によっては、
' 直接プロパティを叩くよりも、PageSetupオブジェクトを経由すべき場合がある。
With targetPage
.GridSpacing = spacingInInches
.ShowRulers = SHOW_RULERS
.ShowGrid = SHOW_GRID
' スナップ設定の制御
' スナップはPageオブジェクトのプロパティとして管理される
.SnapToGrid = SNAP_TO_GRID
End With
SetPageGridProperties = True
Exit Function
SubError:
Debug.Print "Error on Page '" & targetPage.Name & "': " & Err.Description
SetPageGridProperties = False
End Function4. チーフアーキテクトによるコード解説
このコードがなぜ「強い」のか、その設計意図を解剖する。
画面更新の制御 (`Application.ScreenUpdating`)
これはパフォーマンスチューニングの基本中の基本だ。Visioはプロパティが変更されるたびに画面を再描画しようとする。数百ページある図面でこれを繰り返すと、CPUリソースを無駄に消費し、ユーザーに「フリーズした」という誤解を与える。これを `False` にすることで、処理時間を数分の一に短縮できる。
カプセル化 (`SetPageGridProperties`)
メインの `ApplyUnifiedPageSettings` は「何をするか（全ページを回る）」に集中し、`SetPageGridProperties` は「どう設定するか（具体的なプロパティ操作）」に集中している。
もし将来、グリッドだけでなく「ページサイズ」や「向き」も統一したくなった場合、変更すべきは `SetPageGridProperties` だけだ。メインのループ処理を触る必要はない。これが変更に強い設計だ。
単位系の管理
Visio VBAの最大の罠は、内部的にインチ（Inches）を使用している点だ。
`GRID_SPACING_MM / 25.4` という変換を関数内に閉じ込めることで、利用者は「ミリメートル」という直感的な数値で設定を行える。マジックナンバーを排除し、ドメイン（業務知識）に基づいた数値管理を行っている。
5. さらなる高みへ：実務での展開
もし君が、このツールを単なる「スクリプト」ではなく「製品」へと昇華させたいなら、以下のステップを検討せよ。
1. 外部設定ファイル (JSON/XML/INI) との連携:
設定値をコード内に持たず、外部ファイルから読み込むように改造する。これにより、プログラムを再コンパイルすることなく、設定変更が可能になる。
2. ログ出力の高度化:
`Debug.Print` ではなく、実行結果をテキストファイルやデータベースに書き出す。これにより、大規模プロジェクトにおける「誰が、いつ、どの図面を、どのルールに更新したか」という監査証跡（Audit Trail）が得られる。
3. UIの提供:
アドインとして実装し、リボンメニューからワンクリックで実行できるようにする。エンドユーザー（設計者）にVBAエディタを見せてはいけない。
結論
自動化の本質は、単に作業を楽にすることではない。「ルールを強制し、品質のバラツキを排除すること」にある。
今回紹介した設計思想を、他の自動化タスクにも適用してほしい。優れたエンジニアは、コードの行数ではなく、そのコードがもたらす「秩序」で評価されるのだ。
