マクロ記録の壁を越える：Visio VBAで「全ページの作図ルール」を瞬時に統一する極意
「あれ、このページだけグリッドの間隔が違うぞ……？」
「スナップが効かないページがある。設定を直すのが面倒だな……」
複数人で一つのVisioファイルを編集しているとき、あるいは過去に作った大量のページをメンテナンスするとき、こうした「設定のバラつき」に悩まされたことはありませんか？
こんにちは。今日は、Visio VBAの世界へようこそ。
もしあなたが今、「マクロの記録」ボタンをポチポチ押して、記録されたコードを眺めている段階だとしたら、おめでとうございます。あなたはすでに、「自動化の入り口」に立っています。
しかし、プロのエンジニアが書くコードは、少しだけ違います。
今回は、初心者の方が必ずぶつかる「マクロ記録の限界」を突破し、「全ページのルーラーとグリッド設定を一括で統一する」という、実務で即戦力になるスクリプトを題材に、VBAの本質を学んでいきましょう。
1. なぜ「マクロの記録」だけでは足りないのか？
多くの初心者は、まず「マクロの記録」を使います。
「グリッド間隔を5mmにする」という操作を記録すれば、Visioは律儀にコードを生成してくれます。しかし、そのコードには致命的な弱点があります。
それは、「今、画面で見えているページ」に対してしか命令を下せないということです。
マクロの記録は、あくまで「あなたの指の動き（アクション）」を記録しているに過ぎません。
私たちがやりたいのは、「指の動き」ではなく、「ドキュメント全体のルール（状態）の定義」です。
「全てのページを巡回して、設定を書き換える」というロジック（論理）を組み立てること。これこそが、マクロ記録から脱却し、エンジニアへと進化するための第一歩です。
2. 攻略の鍵：オブジェクトモデルを理解する
コードを書く前に、Visioの構造を頭の中に描いてみましょう。エンジニアはこれを「オブジェクトモデル」と呼びます。
1. Application（Visioというソフト全体）
2. Document（開いているファイル）
3. Pages（ファイルに含まれる、全てのページの集合体）
4. Page（個々のページ）
私たちが今回行うミッションは、「Documentの中にあるPagesという集合体を一つずつ取り出し、それぞれのPageに対して設定を書き込む」という作業です。
これをプログラミング用語で「ループ処理（繰り返し）」と呼びます。
3. 実践：全ページ設定統一スクリプト
それでは、実際に動くコードを見てみましょう。
このコードは、単に設定を変えるだけでなく、実務でエラーで止まらないための「守り」も組み込んでいます。
Option Explicit
''' <summary>
''' 全ページのルーラー表示、グリッド間隔、スナップ設定を統一する
''' </summary>
Sub UnifyAllPageSettings()
Dim doc As Visio.Document
Dim pg As Visio.Page
' 1. 対象となるドキュメントを変数に格納
Set doc = ActiveDocument
' 2. エラーハンドリング（予期せぬエラーで止まらないための備え）
On Error GoTo ErrorHandler
' 画面更新を一時停止（パフォーマンス向上と画面のチラつき防止）
' ※大規模な図面ではこれが非常に重要です
Application.ScreenUpdating = False
Debug.Print "--- 設定変更プロセス開始 ---"
' 3. 全てのページを順番に処理する（ループ処理）
' Pagesコレクションの中にある各ページを「pg」として取り出す
For Each pg In doc.Pages
' --- ここから各ページへの設定注入 ---
' ルーラー（定規）を表示する
pg.RulerVisible = msoTrue
' グリッド（網目）を表示する
pg.GridVisible = msoTrue
' グリッドの間隔を設定 (単位はポイント。5mmは約14.17pt)
' ※ここを調整することで、図面の密度をコントロールできます
pg.GridSpacing = 14.17
' スナップ（吸着）設定を有効にする
pg.SnapToGrid = msoTrue
' --- 設定注入ここまで ---
Debug.Print "完了: " & pg.Name
Next pg
' 4. 後処理
Application.ScreenUpdating = True
MsgBox "全てのページのページ設定を統一しました！", vbInformation, "完了"
Exit Sub
ErrorHandler:
' エラーが発生した場合のリカバリ
Application.ScreenUpdating = True
MsgBox "エラーが発生しました。" & vbCrLf & _
"エラー番号: " & Err.Number & vbCrLf & _
"内容: " & Err.Description, vbCritical, "エラー発生"
End Sub4. コードの深掘り解説：ここが「プロ」の視点
このコードには、初心者が次にステップアップするための重要な要素が3つ詰まっています。
① `For Each … In …` による集合の操作
`For Each pg In doc.Pages` という記述。これが今回の主役です。
「ページを全部見ていけ」という命令です。ページが3枚でも100枚でも、この一行があれば、プログラムは自動的に全ページを網羅してくれます。
② `Application.ScreenUpdating` の制御
大規模な図面で、ページを切り替えながら設定を変えると、画面が激しく点滅して動作が重くなります。
`ScreenUpdating = False` とすることで、「裏側で黙々と作業を終わらせてから、最後に結果を見せる」という挙動になります。これはパフォーマンスを最適化するエンジニアの嗜みです。
③ `On Error GoTo ErrorHandler` （エラーハンドリング）
もし、何らかの理由で「保護されていて編集できないページ」があった場合、マクロはそこで突然死してしまいます。
エラーハンドリングを書いておくことで、「どこで、何が原因で失敗したのか」をユーザーに優しく伝え、プログラムを安全に終了させることができます。
5. 陥りやすい罠：単位の落とし穴
ここで一つ、非常に重要なアドバイスがあります。
Visio VBAにおいて、`GridSpacing`（グリッド間隔）などの数値プロパティを指定する際、「ミリメートル（mm）」ではなく「ポイント（pt）」で指定する必要があるケースがほとんどです。
「5mmにしたいのに、なぜかめちゃくちゃ細かいグリッドになった！」
もしこうなったら、あなたは「単位の変換」を忘れています。
- 変換のコツ: `1mm ≒ 2.83465 pt`
- 計算式をコードに組み込むなら： `pg.GridSpacing = 5 * 2.83465`
このように、「物理的な寸法」と「プログラム上の数値」の橋渡しを意識することが、正確な自動化への近道です。
最後に：ここをクリアすれば、Visio VBAの基本はバッチリですよ
今回学んだことは、単なる「設定変更のやり方」ではありません。
1. オブジェクトの階層構造（Document > Pages > Page）を理解すること
2. ループ処理を使って、集合体に対して一括操作を行うこと
3. エラーやパフォーマンスに配慮した「堅牢なコード」を書くこと
これらは、Visioに限らず、Excel VBAでも、Pythonでも、あらゆるプログラミングに通じる「普遍的な知見」です。
まずはこのコードをコピーして、自分のVisioファイルで試してみてください。そして、数値を書き換えたり、別のプロパティ（例えばページの背景色など）を足したりして、自分なりの「最強の環境構築スクリプト」へと育てていってください。
一歩ずつ、着実に。あなたの自動化の旅を応援しています！
