Visio VBAを掌握する極限の知見：PDF出力の「レイアウト崩れ・意図しない分割」を完全撲滅するPageSetup制御術
開発プロジェクトの現場で、Visio図面をプログラムからPDF化する自動化タスクを担当したことがあるエンジニアなら、一度は絶望したことがあるはずだ。
「VBAから `ExportAsFixedFormat` や `SaveAs` でPDF出力したら、1ページの図面が勝手に4分割されて複数ページにまたがった」
「プレビューでは完璧なのに、自動化バッチを走らせると右端が切れる」
ネットを検索すれば「用紙サイズを変更しろ」「印刷設定を合わせろ」という表面的な情報ばかりがヒットするが、Visioのドキュメント構造（PageオブジェクトとPageSetupオブジェクト、そして図面のマスターとの関係）を深く理解していないと、この現象の根本的な解決には至らない。
今回は、Visio VBAにおいて「図面サイズを用紙サイズに完璧に追従させ、バグゼロで美しくPDFを出力する」ための極限の知見を授ける。
—
1. なぜVisioのPDF出力は暴走するのか？（根本原因の特定）
Visioのキャンバス（Page）と、プリンタードライバが認識する「用紙サイズ（PageSetup）」は、実は別レイヤーで管理されている。
- 図面ページサイズ (`PageWidth` / `PageHeight`): シェイプを配置する無限の空間（または論理キャンバス）。
- プリンター用紙サイズ (`PrintPageWidth` / `PrintPageHeight`): 出力媒体としての物理サイズ。
この2つに乖離がある状態でPDF出力（固定形式のエクスポート）を実行すると、Visioのレンダリングエンジンは「おっと、キャンバスが用紙サイズを超えているから、タイル状に分割（Tiling）して出力しよう」という余計な親切心を発動させる。これがレイアウト崩れの正体だ。
したがって、堅牢な自動化コードを書くための鉄則はただ一つ。
「出力する前に、ページの論理サイズを用紙サイズ（またはその逆）に強制同期させ、さらに『1ページに収める（Fit to 1 page）』のフラグをコードで明示的に書き込むこと」である。
—
2. 堅牢な設計における3つの絶対要件
実務のプロダクション環境において、PDF出力モジュールを組み込む際は以下の3点を守らなければならない。
1. 環境依存の排除:
デフォルトプリンターの設定やAcrobat等のPDFドライバの仕様に依存しないよう、VisioのPageSetupプロパティを直接操作してサイズを固定する。
2. マルチページ（複数図面）の完全走査:
ドキュメント内の全ページをループし、非表示ページや無効なページを除外した上で適切な処理を行う。
3. サイレント実行とエラーハンドリング:
ファイル競合、ディスク容量不足、すでに同名PDFが開かれている場合のエラーを想定し、トランザクション的な堅牢性を持たせる。
—
3. 【プロダクションコード】一撃でレイアウトを最適化しPDF出力するVBA実装
以下に、実務の業務効率化ツールでそのまま使える、洗練されたモジュールコードを提示する。エラーハンドリングと、PageSetupの深部設定を網羅したプロフェッショナル向けの実装だ。
Option Explicit
‘ ==============================================================================
‘ 処理名: ExportVisioToPdfRobustly
‘ 概要: Visio図面の全ページを用紙サイズに自動フィットさせ、安全にPDF出力する
‘ 備考: オブジェクトの解放とエラーハンドリングを徹底したプロダクションコード
‘ ==============================================================================
Public Sub ExportVisioToPdfRobustly()
Dim targetDoc As Visio.Document
Dim targetPage As Visio.Page
Dim pdfPath As String
Dim fso As Object
‘ 1. 対象ドキュメントの定義（アクティブドキュメントを想定）
On Error GoTo ErrorHandler
If Visio.Application.Documents.Count = 0 Then
MsgBox “処理対象のVisio図面が開かれていません。”, vbCritical, “エラー”
Exit Sub
End If
Set targetDoc = Visio.ActiveDocument
‘ 2. 出力先パスの動的生成（元ファイルと同階層・同名義の.pdf）
If targetDoc.Path = “” Then
MsgBox “この図面はまだ保存されていません。一度保存してから実行してください。”, vbExclamation, “警告”
Exit Sub
End If
Set fso = CreateObject(“Scripting.FileSystemObject”)
pdfPath = fso.BuildPath(targetDoc.Path, fso.GetBaseName(targetDoc.Name) & “.pdf”)
‘ 3. アプリケーションの描画を停止（パフォーマンス最適化とチラつき防止）
Visio.Application.ScreenUpdating = False
Visio.Application.ShowChanges = False
‘ 4. 全ページのレイアウト設定を強制最適化
Dim originalPage As Visio.Page
Set originalPage = Visio.ActivePage ‘ 現在のページを退避
For Each targetPage in targetDoc.Pages
‘ バックグラウンドページや特殊ページを除外する場合のガード句（必要に応じて調整）
If targetPage.Background = False Then
Call OptimizePageSetupForPdf(targetPage)
End If
Next targetPage
‘ 元のページフォーカスを復元
targetDoc.Pages(originalPage.Name).Activate
‘ 5. PDFエクスポート実行（Visio 2010以降標準対応）
‘ 引数: Format, FileName, [Intent], [PrintRange], [PageFrom], [PageTo], [Colors], [PublishWhat], [IncludeDocumentProperties], [IncludeDocumentStructure]
targetDoc.ExportAsFixedFormat _
VisFixedFormatTypes.visFixedFormatPDF, _
pdfPath, _
VisDocPreviewOptions.visDocPreviewDontShow, _
VisPrintRange.visPrintAll
‘ 6. 完了処理
Visio.Application.ScreenUpdating = True
Visio.Application.ShowChanges = True
MsgBox “PDFの出力が正常に完了しました。” & vbCrLf & “保存先: ” & pdfPath, vbInformation, “完了”
Exit Sub
ErrorHandler:
‘ 異常系のクリーンアップ
Visio.Application.ScreenUpdating = True
Visio.Application.ShowChanges = True
MsgBox “予期せぬエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“エラー内容: ” & Err.Description, vbCritical, “致命的エラー”
End Sub
‘ ==============================================================================
‘ 処理名: OptimizePageSetupForPdf
‘ 概要: 指定された個別のPageオブジェクトのPageSetupを操作し、
‘ 用紙サイズに図面を完全にフィットさせる
‘ ==============================================================================
Private Sub OptimizePageSetupForPdf(ByRef pg As Visio.Page)
Dim pSetup As Visio.PageSetup
Set pSetup = pg.PageSetup
‘ 【極限知見】用紙向きの設定 (1: 縦Portrait, 2: 横Landscape)
‘ 図面の幅と高さを比較し、自動的に向きを判定するロジック
If pSetup.PageWidth > pSetup.PageHeight Then
pSetup.PrintLandscape = True
Else
pSetup.PrintLandscape = False
End If
‘ 【極限知見】「図面を用紙サイズに合わせる」設定の強制
‘ FitToPage = True にすることで、Visioは自動的に倍率を計算し、用紙内に収める
pSetup.PrintFitOnPage = True
pSetup.PrintPagesShownWidth = 1 W ‘ 横方向に何ページ分か (1固定)
pSetup.PrintPagesShownHeight = 1 ‘ 縦方向に何ページ分か (1固定)
‘ 余白の最適化（必要に応じて調整）
pSetup.LeftMargin = 0.25 ‘ インチ
pSetup.RightMargin = 0.25
pSetup.TopMargin = 0.25
pSetup.BottomMargin = 0.25
End Sub
—
4. コードの深層解説：なぜこの実装でバグが消えるのか？
このコードの肝は、`OptimizePageSetupForPdf` プロシージャ内にある以下のプロパティ操作だ。
- `pSetup.PrintFitOnPage = True`
これがVisioのUI上における「図面を用紙に合わせる（Fit to）」のチェックボックスに完全に対応する。これがないと、どれだけキャンバスをいじってもタイリング（分割印刷）の呪縛から逃れられない。
- `pSetup.PrintPagesShownWidth = 1` / `PrintPagesShownHeight = 1`
「横1ページ×縦1ページに強制収縮する」という最強の命令。この2行をセットで記述することで、どれほど巨大なシェイプが配置されていおおよそ意図した1枚のPDF出力にねじ込むことが可能になる。
- `ScreenUpdating = False` の重要性
Visio VBAで最もボトルネックになるのは「画面の再描画コスト」だ。マルチページの図面をループして`PageSetup`を書き換えるたびにVisioがGUIを再描画していると、処理が数倍〜数十倍遅くなる。必ず処理の冒頭で画面更新を止め、最後に復元させること。
—
5. データベースや外部システム連携時の実務的注意点
もしこのVBAコードを、基幹システムやデータベース（Access、SQL Serverなど）からの連携バッチ、あるいは外部のRPAツール（UiPathやPower Automateなど）から呼び出す場合、以下の罠に注意してほしい。
1. Visioのバックグラウンド起動 (`Visio.InvisibleApp`) の罠:
完全自動化を目指して `Visio.InvisibleApp` オブジェクトを使ってバックグラウンドでVisioを立ち上げ、上記のPDF出力を試みると、プリンタードライバの初期化に失敗して `PrintFitOnPage` が正常に機能しない環境が一部のWindows Server等で存在する。
対策: 安定性を最優先する業務自動化においては、完全なバックグラウンドではなく、最小化状態でウィンドウを表示させた状態でインスタンスを生成することを強く推奨する。
2. ファイルロックの問題:
出力先のPDFファイルが、別プロセス（Acrobat Readerやプレビューアーなど）で開かれたままになっていると、`ExportAsFixedFormat` は容赦なく実行時エラー（権限エラー）を吐いてクラッシュする。ファイル出力前に、同名ファイルが存在かつロックされていないかを判定するFileSystemObjectによるガードロジックを前段に挟むと、システム全体の信頼性が劇的に向上する。
—
総括
Visioの自動化において、描画と出力のギャップに悩まされる時代はこれで終わりだ。
オブジェクトモデルの裏側にある「PageSetupの物理・論理の同期メカニズム」さえコードで完全掌握してしまえば、レイアウト崩れは過去の遺物となる。
現場のエンジニア諸君のコードベースにこの知見を組み込み、泥臭い手動調整のプロセスを今すぐ自動化の彼方へと追放してほしい。
