【実務直結】ページ設定の「グリッドとガイド」を全ページで統一し、作図ルールを強制する環境構築
こんにちは。現場の自動化を支えるアーキテクトとして、日々コードの海を泳いでいるエンジニアです。
「チームで図面を共有しているのに、なぜか人によって図のズレが生じる……」
「新しくページを追加するたびに、グリッドの設定を手動で直すのが苦痛だ……」
もしあなたが、そんな小さな、でも確実に業務の質を下げている「ノイズ」に直面しているなら、今日この瞬間から、あなたは「単なるユーザー」を卒業し、「システムを設計するエンジニア」への一歩を踏み出すことになります。
今回は、Visio VBAを使って、ドキュメント内の全ページの「グリッド」と「ガイド」を強制的に統一し、誰が作業しても同じ作図ルールが適用される環境を構築する方法を伝授します。
「マクロの記録」ボタンを押すだけでは辿り着けない、オブジェクトの構造に基づいた「本質的な自動化」の世界へ、一緒に行きましょう。
1. なぜ「手動設定」ではいけないのか？
プログラミングの世界には「環境の不一致（Environment Drift）」という言葉があります。
Visioにおいて、グリッド（方眼）やガイド（基準線）の設定は、ページごとに保持されます。個人の好みに合わせて設定を変えてしまうと、いざチームで図面を統合したときに、図形が微妙に重なっていなかったり、配置がバラバラだったりという問題が発生します。
これを防ぐ唯一の方法は、「図面を開いた時、あるいはページを作った時に、プログラムが強制的にルールを上書きする」ことです。
これを実現するために、私たちはVisioの「オブジェクトモデル」という階層構造を理解する必要があります。
2. 攻略の鍵：Visioの階層構造（オブジェクトモデル）
コードを書く前に、Visioがどのような「親子関係」で成り立っているかを頭に叩き込みましょう。ここを理解していないと、コードはただの暗号になってしまいます。
1. Application（Visioソフトそのもの）
2. Document（開いているファイル全体）
3. Page（個別のページ） $\leftarrow$ ここが今回のターゲット！
私たちがやりたいことは、「Documentの中にあるすべてのPageに対して、設定を流し込む」という作業です。
3. 実践：全ページ一括設定マクロ
では、魂を込めたコードを公開します。このコードは、単に値を書き換えるだけでなく、「単位（Units）」の扱いという、初心者が最も躓きやすいポイントをクリアした設計になっています。
Option Explicit
''' <summary>
''' ドキュメント内の全ページに対して、グリッドとガイドの標準設定を適用する
''' </summary>
Sub StandardizeAllPages()
Dim doc As Visio.Document
Dim pg As Visio.Page
Dim targetGridSpacing As Double
Dim guidePosition As Double
' --- 設定エリア：ここを変更するだけでルールを即座に変更可能 ---
' グリッドの間隔を 0.25 インチに設定
targetGridSpacing = 0.25
' ガイドを配置する位置（例：ページの左端から 2 インチの位置）
guidePosition = 2.0
' ----------------------------------------------------------
' 現在アクティブなドキュメントを取得
Set doc = ActiveDocument
' 画面更新を停止して処理速度を向上させる（大量のページがある場合）
' ※VisioにはExcelのような厳密なScreenUpdatingはないが、
' 描画負荷を下げるために意識することが重要。
On Error GoTo ErrorHandler
' 全ページをループ処理
For Each pg In doc.Pages
' 1. グリッド（方眼）の設定
' GridSpacingプロパティに値を代入。
' Visioの内部単位はインチ、またはポイント。
' ここでは、設定エリアで指定した数値をそのまま適用。
pg.Grid.Enabled = True
pg.Grid.Spacing = targetGridSpacing
' 2. ガイド（基準線）の強制設定
' 既存のガイドを一度クリアしてから再配置すると、より「強制力」が高まります。
' ※既存のガイドを消したくない場合は、この行をコメントアウトしてください。
pg.DeleteAllGuides
' 水平ガイドの追加 (位置を指定)
' AddGuide メソッドを使用。
pg.AddGuide visGuideH, guidePosition
' 垂直ガイドの追加 (位置を指定)
pg.AddGuide visGuideV, guidePosition
Debug.Print "ページ名: " & pg.Name & " の設定を完了しました。"
Next pg
MsgBox "全ページの標準化が完了しました！" & vbCrLf & _
"グリッド間隔: " & targetGridSpacing & " インチ", vbInformation, "完了"
Exit Sub
ErrorHandler:
MsgBox "エラーが発生しました。ページがロックされていないか確認してください。" & vbCrLf & _
"Error No: " & Err.Number & " - " & Err.Description, vbCritical, "実行エラー"
End Sub4. ここが「プロ」の視点：初心者が陥る3つの罠
このコードを動かしたとき、もしあなたが「あれ？」と思ったら、それは以下のいずれかの理由です。ここを理解すれば、あなたはもう初級者ではありません。
① 単位の罠（Units Trap）
Visio VBAの最大の難所は「単位」です。
コード内で `0.25` と書いたとき、それが「インチ」なのか「ミリメートル」なのか「ポイント」なのか。Visioは内部的にこれらを厳密に管理しています。
もしミリメートルで指定したい場合は、以下のように `Application.ConvertFromUnits` を使うか、事前に単位を意識して記述する必要があります。
- アドバイス: 実務では、`targetGridSpacing = Application.ConvertFromUnits(10, visUnitMillimeters)` のように、明示的に変換関数を使うのが「壊れにくいコード」を書くコツです。
② 「マクロの記録」では書けないロジック
マクロの記録機能は、「マウスでクリックした操作」を逐一記録します。しかし、「全てのページに対して行う」というループ処理（For Each）は、記録機能では決して作れません。
「記録」はあくまで辞書（単語帳）であり、「プログラミング」は文章（論理）です。単語を組み合わせて文章を作る力を養いましょう。
③ ページロックの壁
図面が保護されている（Protectionがかかっている）場合、VBAからプロパティを変更しようとするとエラーになります。
上記のコードでは、`On Error GoTo ErrorHandler` を使って、エラーが起きてもプログラムがクラッシュせずに、ユーザーに優しく理由を伝える「堅牢性（Robustness）」を持たせています。
5. まとめ：環境を支配する者が、作業を支配する
「グリッドの間隔を揃える」という作業は、一見すると些細なことに思えるかもしれません。
しかし、こうした「環境の標準化」を自動化できるかどうかが、作業の精度とスピードに決定的な差を生みます。
1. オブジェクトの階層（Document $\rightarrow$ Page）を意識する
2. ループ処理（For Each）で全要素を制御する
3. 単位（Units）とエラーハンドリングに細心の注意を払う
この3点をマスターすれば、あなたのVisio VBAスキルは飛躍的に向上します。
ここをクリアすれば、Visio VBAの基本はバッチリですよ。
次は、もっと複雑な「図形の自動配置」や「データリンクの自動化」に挑戦してみましょう。君ならできるはずです。
応援していますよ！
