描画の「規律」をコードで刻む：Visio VBAで全ページのグリッド設定を強制統一する技術
こんにちは。Visioによる業務自動化の世界へようこそ。
「マクロの記録」ボタンを押し、記録されたコードを眺めて「ふむふむ、こうやって動くのか」と理解する。それは素晴らしい第一歩です。しかし、もしあなたが「もっと大規模な、プロフェッショナルな図面管理を自動化したい」と考えているなら、次に目指すべきは「オブジェクトの構造を捉え、環境そのものを制御する」という視点です。
今日は、多くの設計者が陥る「ページごとにグリッド（目盛り）がバラバラで、図面が美しく整わない」という問題を、VBAを使って一撃で解決する方法を伝授します。
これは単なる設定変更のスクリプトではありません。「作図ルールを強制する環境を構築する」という、エンジニアリングの本質に触れる作業です。
1. なぜ「グリッドの統一」が重要なのか？
大規模なシステム構成図やネットワーク図を作成している場面を想像してください。
Aさんは「5mm間隔」のグリッドで書き、Bさんは「0.1インチ間隔」のグリッドで書いたとします。これらが混在したドキュメントを統合すると、オブジェクトの配置が微妙にズレ、見た目の美しさが損なわれるだけでなく、図面としての信頼性（整合性）が失われます。
プロの現場では、「ツールを使う人が、ルールを守らざるを得ない環境」を作ることが、自動化エンジニアの重要な任務なのです。
2. 核心へのアプローチ：PageSheetという「脳」を理解する
Visio VBAを掌握するための最大の鍵は、「PageSheet（ページシート）」という概念を理解することにあります。
通常、私たちは「ページ」というキャンバスを見ているだけですが、VBAの視点では、各ページは「PageSheet」という、そのページのあらゆる性質（サイズ、グリッド、ガイド、背景設定など）を管理する「脳」を持っています。
グリッドの設定を変更したいなら、ページそのものをいじるのではなく、そのページが持つPageSheet内の特定のセル（Cell）に値を書き込む必要があるのです。
3. 実践：全ページ一括設定スクリプト
それでは、ドキュメント内のすべてのページを巡回し、グリッドの間隔を統一するコードを見ていきましょう。
Option Explicit
''' <summary>
''' ドキュメント内の全ページのグリッド設定を強制的に統一するプロシージャ
''' </summary>
Sub StandardizeAllPagesGrid()
Dim doc As Visio.Document
Dim pg As Visio.Page
Dim targetSpacing As String
' --- 設定エリア ---
' ここで統一したいグリッド間隔を指定します。
' Visioの内部単位はインチですが、"mm" や "cm" も使用可能です。
targetSpacing = "5 mm"
' ------------------
Set doc = ActiveDocument
' 画面更新を止めるような最適化（VisioにはExcelのScreenUpdatingに相当する
' 直接的な命令はありませんが、処理の高速化のためにオブジェクトへのアクセスを最小限にします）
On Error GoTo ErrorHandler
' 1. Document.Pages コレクションをループで回す
' これが「全ページを対象にする」ための標準的なパターンです。
For Each pg In doc.Pages
' 2. ページシート（PageSheet）にアクセス
' pg.PageSheet は、そのページの属性を司るオブジェクトです。
With pg.PageSheet
' 3. セルへの書き込み
' CellsU を使うのがプロの鉄則です。"U" は Universal (Unicode/Unformatted) を意味し、
' 言語設定に依存しない、より堅牢な指定方法です。
' グリッドの表示をONにする
.CellsU("Grid.Visible").FormulaU = "the" ' "the" は True を意味する内部定数
' グリッドの間隔を設定する
.CellsU("Grid.Spacing").FormulaU = targetSpacing
' ガイド（補助線）の表示設定などもここで一括制御可能です
' .CellsU("Guide.Visible").FormulaU = "the"
End With
' デバッグ用：現在どのページを処理しているかイミディエイトウィンドウに表示
Debug.Print "Processed Page: " & pg.Name
Next pg
MsgBox "すべてのページのグリッド設定を " & targetSpacing & " に統一しました。", vbInformation, "完了"
Exit Sub
ErrorHandler:
MsgBox "エラーが発生しました。" & vbCrLf & _
"エラー番号: " & Err.Number & vbCrLf & _
"内容: " & Err.Description, vbCritical, "エラー"
End Sub4. 伝説のアーキテクトが教える「ハマりポイント」
このコードを動かす際に、初心者が陥りやすい、あるいは中級者が注意すべきポイントが3つあります。
① `Cells` ではなく `CellsU` を使え
VBAには `Cells` と `CellsU` という似たメソッドがあります。
`Cells` は、Visioの表示言語（日本語なら日本語のプロパティ名）に依存することがあります。もし、あなたが書いたコードを英語環境のユーザーが実行したら……？ そこでエラーが起きて止まってしまいます。
`CellsU`（Universal）を使うことで、言語の壁を超えた堅牢なコードになります。 これが「現場で使えるコード」の境界線です。
② 単位の指定は文字列で
`.FormulaU = “5 mm”` のように、数値だけでなく単位を含めた文字列として渡すのが最も安全です。Visioは非常に賢いので、`”5 mm”` と書けば、内部的な計算（インチへの変換など）をすべて自動でやってくれます。
③ ページの種類（Background Page）への配慮
大規模な図面では、「背景ページ（Background Page）」を使って共通の枠線を描いていることがあります。
もし背景ページの設定も変えたいのか、それとも通常の作図ページ（Foreground Page）だけを変えたいのか。
`If pg.Background = False Then` という条件分岐を加えるだけで、あなたのコードは「意図しない破壊」を防ぐ、よりインテリジェントなものへと進化します。
5. 次のステップへ
今回のスクリプトで、あなたは「全ページをループして、特定のプロパティを強制する」という、自動化の黄金パターンを習得しました。
次は、グリッドだけでなく、「ページのサイズを全てA3に統一する」、あるいは「特定のレイヤーを全てのページで非表示にする」といった操作に挑戦してみてください。
一つひとつのオブジェクトのライフサイクルと、その背後にあるプロパティ（PageSheet）の関係が見えてくれば、Visio VBAはもはや単なるツールではなく、あなたの思考を具現化する強力な武器になります。
ここをクリアすれば、Visio VBAの基本はバッチリですよ。自信を持って、次の自動化へと進んでください。応援しています！
