【Visio VBA入門】印刷の「端っこ切れ」を撲滅する！全ページ余白の一括制御術
こんにちは。Visioの自動化の世界へようこそ。
「マクロの記録」を使って、なんとか自動化の第一歩を踏み出したあなた。素晴らしい勇気です。しかし、記録されたコードを眺めて、「なんだか動きが重いし、何をやっているのかさっぱり分からない……」と立ち止まってしまったことはありませんか？
実は、プログラミングの世界には「記録されたコード（レコーディング）」と「設計されたコード（アーキテクチャ）」の間に、深い川が流れているのです。
今日、あなたが学ぶのは、単なるボタン操作の自動化ではありません。Visioという巨大なオブジェクトの構造を理解し、「全ページの余白を、一瞬で、かつ正確に制御する」という、エンジニアとしての本質的なスキルです。
印刷時に図面の端が切れてしまい、クライアントから修正依頼が来る……そんな悲劇を二度と繰り返さないための、極限の知見を伝授しましょう。
1. なぜ「余白」の制御が必要なのか？
Visioで図面を作成していると、画面上では完璧に見えるレイアウトが、いざ印刷（またはPDF出力）をすると、端の方が数ミリ欠けてしまうことがあります。
これは、プリンタが物理的に「印刷できない領域（非印刷領域）」を持っているために起こる現象です。
手作業で1ページずつ余白を広げていくのは、時間の無駄です。それどころか、ページ数が増えれば増えるほど、ヒューマンエラー（設定ミス）の確率は跳ね上がります。
これを解決するには、「Document（文書）に含まれるすべてのPage（ページ）のPageSetup（ページ設定）を、プログラムで一括操作する」というアプローチが正解です。
2. Visio VBAの「階層構造」を理解する
コードを書く前に、Visioがどのようにデータを管理しているか、その「家系図」を脳内に描いてください。ここを理解していないと、コードはただの呪文になってしまいます。
graph TD
A[Application: Visio本体] --> B[Document: 開いているファイル]
B --> C[Pages: ページの集合体]
C --> D[Page: 個別のページ]
D --> E[PageSetup: そのページのレイアウト規則]
E --> F[PrintMargins: 余白設定]私たちが操作したいのは、一番下の `PrintMargins`（余白） です。
しかし、そこに辿り着くためには、「Document → Pages → Page → PageSetup」 という階段を一段ずつ登っていく必要があるのです。
3. 実践：全ページの余白を一括調整するスクリプト
それでは、実際に動くコードを見てみましょう。
以下のコードは、ドキュメント内のすべてのページを巡回し、上下左右の余白を指定した値に書き換えるものです。
「マクロの記録」では決して書けない、洗練されたロジックを組み込んでいます。
Option Explicit
''' <summary>
''' 全ページの印刷余白を一括で設定するプロシージャ
''' </summary>
Sub SetAllPagesMargins()
Dim doc As Visio.Document
Dim pg As Visio.Page
Dim marginValue As Double
' --- 設定エリア ---
' 余白の値を設定します。Visioの内部単位は「ポイント」ですが、
' ここでは扱いやすいように「センチメートル」から変換する設計にします。
' 1 cm = 約28.35 points
marginValue = 1.5 * 28.35 ' 例：上下左右すべて 1.5cm に設定
' ------------------
' 現在アクティブなドキュメントを取得
Set doc = ActiveDocument
' 処理の高速化と画面のちらつき防止（大規模な図面の場合に有効）
Application.ScreenUpdating = False
On Error GoTo ErrorHandler
' 1. ドキュメント内のすべてのページをループで巡回
For Each pg In doc.Pages
' 【重要】背景ページ（Background Page）を操作するかどうかの判断
' 背景ページをいじるとテンプレート自体が壊れる可能性があるため、
' 通常の図面ページのみを対象とするのが安全な設計です。
If Not pg.Background Then
' 2. 各ページの PageSetup オブジェクトにアクセス
With pg.PageSetup
' 3. 余白プロパティを一括書き換え
.PrintMarginsTop = marginValue
.PrintMarginsBottom = marginValue
.PrintMarginsLeft = marginValue
.PrintMarginsRight = marginValue
End With
End If
Next pg
' 画面更新を再開
Application.ScreenUpdating = True
MsgBox "すべてのページの余白設定が完了しました！", vbInformation, "完了"
Exit Sub
ErrorHandler:
Application.ScreenUpdating = True
MsgBox "エラーが発生しました: " & Err.Description, vbCritical, "エラー"
End Subコードの解説：ここが「プロ」の視点です
1. `For Each pg In doc.Pages`:
「1ページ目、2ページ目……」と番号で指定するのではなく、「Pages（集合体）の中にある各ページ（pg）に対して」という書き方をします。これにより、ページ数が1枚でも100枚でも、コードを書き換える必要がなくなります。
2. `If Not pg.Background Then`:
ここが最も重要な「防御的プログラミング」です。Visioには図面の背景を管理する特殊なページがありますが、これを誤って操作するとレイアウトが崩壊します。「対象外のオブジェクトを避ける」のは、熟練エンジニアの鉄則です。
3. `With pg.PageSetup … End With`:
同じオブジェクトに対して複数の命令を出すときは、`With` を使います。これにより、コードが読みやすくなるだけでなく、プログラムの実行速度（パフォーマンス）も向上します。
4. 初心者が陥りやすい「3つの罠」
このスクリプトを動かす際に、注意すべきポイントが3つあります。
① 単位の罠（Points vs Centimeters）
VisioのVBA内部では、長さの単位として 「ポイント (Points)」 が標準的に使われます。
「10」と入力したつもりが、10cmではなく「10ポイント（約3.5mm）」という極小の余白になってしまうことがよくあります。必ず `28.35` を掛けて、センチメートルから変換する癖をつけましょう。
② プリンタドライバの罠
コードで完璧に余白を設定しても、使用しているプリンタの仕様で「これ以上内側には印刷できない」という物理的な限界があります。
「プログラムで設定した値」と「プリンタの物理限界」の大きい方の値が、実質的な余白になります。 常に少し余裕を持った値を設定するのがプロの知恵です。
③ 実行前のバックアップ
自動化スクリプトは、一瞬で数百ページを書き換えます。もし設定を間違えたら、すべてをやり直すのは困難です。
「マクロを実行する前には必ずファイルを保存（バックアップ）する」。これは、どんなに高度なエンジニアでも守っている絶対的なルールです。
最後に：ここをクリアすれば、Visio VBAの基本はバッチリですよ
いかがでしたか？
「マクロの記録」は便利な道具ですが、それだけでは「命令をコピーしているだけ」の状態です。今回のように、「オブジェクトの階層構造を理解し、条件分岐（If）を使い、エラーを想定した設計をする」ことができれば、あなたはもう「ツールを使う人」ではなく、「システムを作る人」の仲間入りです。
一歩ずつ、確実に。
次は、ページの色を一括で変えたり、図形を自動配置したりすることに挑戦してみましょう。
あなたのエンジニアとしての旅を、心から応援しています！
