Visio VBAを掌握する極限の知見：Page.PrintPropertiesによる印刷プロパティの一括調停アーキテクチャ
大規模なシステム構成図やネットワーク図をVisioで管理していると、必ず直面するのが「印刷・出力レイアウトの破綻」である。数枚程度なら手動での調整も許容されるが、100ページを超えるドキュメント群において、プリンタドライバの差異や設計変更に伴う用紙サイズ（A4/A3）、向き（縦/横）、そして「1ページに収める（Fit to 1 page）」の設定不整合は、現場のエンジニアにとって悪夢でしかない。
GUIによる手動設定はヒューマンエラーの温床であり、メンテナンス性も皆無だ。
我々はエンジニアである。このような反復的かつ機械的なレイアウト統制は、Visioのオブジェクトモデルの深部を突くVBAコードによって一網打尽にしなければならない。
今回は、Visioの `Page.PrintProperties` を完全に掌握し、ドキュメント全ページの用紙サイズ・向き・印刷倍率を一括して原子的に（Atomicに）自動構成するプロフェッショナル向けソリューションを提示する。
—
1. Visio印刷アーキテクチャの核心：`PrintProperties` の罠
Visioのページ（`Page`オブジェクト）は、それぞれ独立した印刷プロパティのコンテキストを持っている。これを司るのが `Page.PrintProperties` プロパティである。
しかし、ここにはレガシーなCOMコンポーネント特有の「罠」が存在する。
プリンタドライバのメタデータとVisioの内部用紙サイズ（PageScale / DrawingScale）が密結合しているため、単にプロパティを書き換えるだけでは、「設定値はあるが、画面上の描画領域や倍率計算が同期しない」という致命的な不整合が発生するのだ。
シニアエンジニアとして押おくべき制御フラグは以下の通り。
- `PaperSize`: 用紙規格（A4, A3等）。
- `PrintPageOrientation`: 向き（縦: `visPaperOrientPortrait` / 横: `visPaperOrientLandscape`）。
- `FitToPagesTall` / `FitToPagesWide`: ページ数に対する自動縮小・拡大の強制収まり設定。
これらを動的に操作し、かつドキュメント全体で整合性を保つには、適切なオブジェクトのライフサイクル管理と、イベント抑止によるパフォーマンス最適化が不可欠となる。
—
2. 実装コード：一括自動構成エンジンの全貌
以下に提示するコードは、単なるプロパティの代入にとどまらない。描画更新の抑制（`ScreenUpdating`）、イベントの無効化による高速化、そしてオブジェクトの厳格な参照解放を網羅した、実務投入レベルのチーフアーキテクト品質のコードである。
Option Explicit
‘ ==============================================================================
‘ 業務自動化アーキテクチャ: Visio 印刷プロパティ一括調停モジュール
‘ 対象: ActiveDocument の全ページ
‘ ==============================================================================
Public Sub ApplyStandardPrintProperties()
‘ パフォーマンスとメモリの極限最適化のための定数・変数宣言
Dim targetDoc As Visio.Document
Dim targetPage As Visio.Page
Dim printProps As Visio.PrintProperties
Dim pageCount As Long
Dim i As Long
‘ 実行前の環境退避と最適化スイッチON
Dim originalScreenUpdating As Boolean
originalScreenUpdating = Application.ScreenUpdating
On Error GoTo ErrorHandler
‘ 1. アプリケーションレベルの描画とイベントを完全に遮断し、処理速度を爆発的に向上させる
Application.ScreenUpdating = False
Application.EventsEnabled = False
Set targetDoc = ActiveDocument
If targetDoc Is Nothing Then
MsgBox “有効なVisioドキュメントが開かれていません。”, vbCritical, “致命的エラー”
GoTo Finally
End If
pageCount = targetDoc.Pages.Count
Debug.Print “[INFO] 処理開始: 総ページ数 = ” & pageCount
‘ 2. 全ページ走査による一括構成
For i = 1 To pageCount
Set targetPage = targetDoc.Pages(i)
‘ バックグラウンドページ（マスター等）は印刷対象外とする場合スキップ
If Not targetPage.Background Then
Set printProps = targetPage.PrintProperties
‘ — 【構成パラメータの設定】 —
‘ ここを用況に合わせて変更する
‘ 用紙サイズ: A4 (visPaperSizeA4 = 7), A3 (visPaperSizeA3 = 8)
printProps.PaperSize = visPaperSizeA4
‘ 印刷の向き: 横向き (visPaperOrientLandscape = 2), 縦向き (visPaperOrientPortrait = 1)
printProps.PrintPageOrientation = visPaperOrientLandscape
‘ 自動ページ収まり設定: 「幅 1 ページ × 高さ 1 ページ」に強制収縮
‘ ※FitToPagesEnabledをTrueにすることで、Tall/Wideの設定が有効化される
printProps.FitToPagesEnabled = True
printProps.FitToPagesWide = 1
printProps.FitToPagesTall = 1
‘ 変更をページのプリンタコンテキストにコミット
‘ (Visioの仕様上、プロパティ代入即時反映されるが明示的な参照を解放する)
Set printProps = Nothing
End If
Set targetPage = Nothing
Next i
‘ 正常終了ログ
Debug.Print “[INFO] 全ページの印刷プロパティ一括構成が正常に完了しました。”
MsgBox “全 ” & pageCount & ” ページの印刷設定（A4・横・1ページに収める）の適用が完了しました。”, vbInformation, “完了”
Finally:
‘ 3. 必ず実行される環境の復元とメモリ解放（リーク防止）
Application.ScreenUpdating = originalScreenUpdating
Application.EventsEnabled = True
‘ オブジェクト変数の完全解放
Set printProps = Nothing
Set targetPage = Nothing
Set targetDoc = Nothing
Exit Sub
ErrorHandler:
‘ 異常系ハンドリング
MsgBox “予期せぬエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“エラー内容: ” & Err.Description, vbCritical, “システムエラー”
Resume Finally
End Sub
—
3. シニアエンジニアが解説するコードの急所
なぜこのコードが「極限の知見」と言えるのか。その技術的根拠を深掘りする。
① `Application.ScreenUpdating = False` と `EventsEnabled = False` の不可欠性
Visio VBAにおいて、ページやシェイプのプロパティ（特に印刷やページレイアウト関連）を変更すると、内部的にGUIの再描画やプリンタデバイスコンテキスト（DC）の再取得が発生する。ページ数が50を超えるドキュメントでこれを無策に行うと、ループのたびにGUIが再描画され、処理時間が数分単位に跳ね上がる。
描画とイベントを遮断することで、数秒で処理を完了させることが可能となる。
② COMオブジェクトのライフサイクル管理（メモリ最適化）
VBAはガベージコレクタを持たない。特にVisioのオブジェクトモデル（`Pages(i)` や `PrintProperties`）は背後でCOMの参照カウンタ（AddRef / Release）を保持している。
ループ内で `Set printProps = targetPage.PrintProperties` と取得したオブジェクトは、ループの各イテレーションの終端、およびプロシージャの終端で必ず `Set xxx = Nothing` によって明示的に解放しなければならない。これを怠ると、巨大なドキュメントを処理した際にVBAランタイムのメモリリークや、最悪の場合Visio本体のクラッシュ（Access Violation）を引き起こす。
③ バックグラウンドページの除外制御
Visioには「バックグラウンドページ（他のページ共通の背景として使われるページ）」が存在する。これに対しても通常のページと同様に印刷設定を施してしまうと、予期せぬ用紙サイズやレイアウトの乱れを引き起こす原因になる。`targetPage.Background` プロパティを判定条件に組み込むことで、実体のあるドキュメントページのみを安全に調停している。
—
4. システム間連携・大規模運用への展開
このVBAマクロを単なる「手動実行ツール」で終わらせてはならない。
社内ニッチな自動化基盤や、RPA（UiPathやPower Automateなど）からのCOM経由での遠隔実行、あるいはVSTO（Visual Studio Tools for Office）を用いたC#アドインへの移行を見据えたアーキテクチャ設計にしておくべきである。
もしVBAのままでサーバサイドやバッチ処理的に動かす場合は、Visioを `Visible = False` で起動し、対象の `.vsd / .vsdx` ファイルをサイレントに開いて本モジュールをコールバックする仕組みを構築すれば、完全な「印刷レイアウト自動化パイプライン」が完成する。
手動による非効率なオペレーションは、コードによって駆逐せよ。
Visioのオブジェクトモデルを熟知した者だけが、真の自動化の果実を手にすることができる。
