Visio VBAを掌握する極限の知見：図面PDF出力における「ページサイズ自動フィット」の完全制御
Visioの図面自動生成からPDF出力までをVBAで完結させるパイプラインを構築する際、多くのエンジニアが最初に直面し、そして深い絶望を味わうのが「PDF出力時のレイアウト崩れ」である。
画面上のマスターページ（Page）サイズと、実際にプリンタードライバーやPDFコンバーターが解釈する用紙サイズ（PrintWidth / PrintHeight）の不一致。これが、図面が意図せず複数ページに分断されたり、無駄な余白を生み出したりする根源的な原因だ。
本稿では、`PageSetup` オブジェクトの挙動を極限までハックし、図面の内容（シェープのバウンディングボックス）に合わせてページサイズを動的にフィットさせ、寸分狂わずPDF化するための実践的知見とプロダクションコードを提示する。
—
1. Visioページレイアウトの深層構造と「罠」
Visioのドキュメント構造において、`Page` オブジェクトと `PageSetup` オブジェクトの関係性は直感的ではない。
UI上から「デザイン」タブの「サイズ調整」を操作する場合と、VBAからコードで制御する場合では、内部の評価エンジンが異なる挙動を示す。
陥りがちなアンチパターン
レガシーなコードベースでは、以下のような固定値の設定が見受けられる。
‘ ── 悪臭を放つレガシーコードの例 ──
vsoPage.PageSetup.PageWidth = 8.27 // A4の幅（インチ）
vsoPage.PageSetup.PageHeight = 11.69 // A4の高さ（インチ）
この実装には以下の致命的な欠陥がある。
1. 単位系の混乱: Visioの内部単位は常に「インチ（Inches）」である。コード内でミリメートルやポイントを直接代入すると、暗黙の型変換や丸め誤差により微小なズレが生じる。
2. シェープとの乖離: 図面の総面積（BoundingBox）がページサイズを超過している場合、PDF出力時に強制的にタイル印刷（複数ページへの分割）が発生する。
これを防ぐためには、「シェープの配置領域を動的に算出し、ページサイズをそれに追従させ、最後にPDFのエクスポート解像度と領域を固定する」というアトミックな処理が必要となる。
—
2. 実装コード：動的ページフィット & 高品位PDF出力エンジン
以下のコードは、実務の現場で即座に利用できるプロダクションクオリティの関数である。エラーハンドリング、メモリの明示的解放（Nothing代入によるCOMオブジェクト参照カウンタのデクリメント）、およびVisio特有の非同期エクスポート対策を網羅している。
Option Explicit
‘ ==============================================================================
アクティブなVisio図面をシェープ領域に自動フィットさせ、PDFとして出力する
‘ ==============================================================================
Public Sub ExportActivePageToFitPDF(ByVal targetPdfPath As String)
Dim vsoPage As Visio.Page
Dim vsoPageSetup As Visio.PageSetup
Dim minX As Double, minY As Double, maxX As Double, maxY As Double
Dim docWidth As Double, docHeight As Double
Dim margin As Double
‘ 単位補正用のマージン（インチ単位: 0.25インチ = 約6.35mm）
margin = 0.25
On Error GoTo ErrorHandler
‘ 1. アクティブページの取得とバリデーション
Set vsoPage = ActivePage
If vsoPage Is Nothing Then
MsgBox “有効なVisioページが取得できません。”, vbCritical, “致命的エラー”
Exit Sub
End If
Set vsoPageSetup = vsoPage.PageSetup
‘ 2. ページ上の全シェープのバウンディングボックス（BoundingBox）を取得
‘ 視覚的な描画領域の限界値（Invisibleシェープなどを除外する場合はフラグ調整が必要）
Call vsoPage.BoundingBox( _
VisBoundingBoxFlags.visBBoxIncludeVisible & VisBoundingBoxFlags.visBBoxShapes, _
minX, minY, maxX, maxY)
‘ シェープが存在しない場合のフォールバック（デフォルトA4サイズを維持）
If maxX < minX Or maxY < minY Then
docWidth = 8.27
docHeight = 11.69
Else
' 3. シェープの全体サイズにマージンを加算してページサイズを算出し適用
docWidth = (maxX - minX) + (margin 2)
docHeight = (maxY - minY) + (margin 2)
' 最小サイズの保証（小さすぎるキャンバスによる描画破綻を防ぐ）
If docWidth < 2# Then docWidth = 2#
If docHeight < 2# Then docHeight = 2#
' ページサイズの設定（Visio内部ではインチで保持される）
vsoPageSetup.PageWidth = docWidth
vsoPageSetup.PageHeight = docHeight
' 図面の図面縮尺（Drawing Scale）を 1:1 に固定し、意図しないスケーリングを排除
vsoPageSetup.DrawingScale = 1#
vsoPageSetup.PageScale = 1#
End If
' 4. PDF出力の実行
' Visioの Export メソッドは、ファイルの拡張子 (.pdf) を検知してPDFドライバを起動する
vsoPage.Export targetPdfPath
MsgBox "PDFのエクスポートが正常に完了しました。" & vbCrLf & targetPdfPath, vbInformation, "完了"
CleanUp:
' 5. COMオブジェクトの明示的解放（メモリリーク防止の鉄則）
Set vsoPageSetup = Nothing
Set vsoPage = Nothing
Exit Sub
ErrorHandler:
MsgBox "PDF出力中に予期せぬエラーが発生しました。" & vbCrLf & _
"Error No: " & Err.Number & vbCrLf & _
"Description: " & Err.Description, vbCritical, "エラー"
Resume CleanUp
End Sub
---
3. チーフアーキテクトが解説するコードの急所
① `BoundingBox` フラグの選定とメモリ最適化
`vsoPage.BoundingBox` メソッドの第一引数に渡している `VisBoundingBoxFlags` は極めて重要だ。
`visBBoxIncludeVisible` を指定することで、非表示レイヤーやコネクタの制御点を除外し、実際にレンダリングされる「実効領域」のみを正確に抽出できる。これにより、意図しない巨大なキャンバス生成を防ぐ。
また、VBAにおけるCOMオブジェクト（`Visio.Page`, `Visio.PageSetup` 等）は、スコープを抜けるだけでは即座にメモリから解放されないケースがある。特に大量の図面をバッチ処理で連続PDF化するシステム基盤においては、処理ごとの `Set xxx = Nothing` による参照カウンタのデクリメントが、メモリリークを防ぐ唯一の防壁となる。
② 印刷プロパティ（PrintWidth/PrintHeight）の罠
Visioには `PageWidth`（画面上の描画サイズ）と `PrintWidth`（プリンター出力サイズ）の概念が存在する。
通常、上記の `vsoPage.Export` メソッドは、現在の `PageWidth` / `PageHeight` を基準にPDFの用紙境界を決定するが、プリンタードライバーの仕様や環境によっては、古いプリンター設定（PrintWidth）がキャッシュされている場合がある。
完全性を期すため、厳密な環境では以下のように印刷用プロパティも同期させておくと鉄壁である。
vsoPageSetup.PrintWidth = docWidth
vsoPageSetup.PrintHeight = docHeight
vsoPageSetup.CenterX = docWidth / 2
vsoPageSetup.CenterY = docHeight / 2
—
4. エンタープライズシステム連携における知見
このVBAマクロを単体のデスクトップツールとして運用するだけでなく、外部の業務システム（C# (.NET) や Python製マイクロサービス等）からCOMインターフェース経由でヘッドレス（UI非表示）実行するアーキテクチャを採用する場合、以下のインフラ的配慮が不可欠となる。
1. Visioのバックグラウンド起動と例外処理
外部プロセスから `Visio.Application` を起動する場合、Visioがモーダルダイアログ（「ファイルを上書きしますか？」やライセンス認証ポップアップなど）を表示してハングアップするリスクがある。コード実行前に `Visio.Application.AlertsEnabled = False` を明示的に設定し、完全なサイレント実行を担保すること。
2. PDFエンジンとサンドボックス制約
サーバーサイド（Windows Serverなど）でVisioを動作させてPDF変換を行う場合、Microsoft Officeのサーバーサイド自動化に関するサポートポリシー（KB2577573）に抵触しないよう、ライセンスと実行権限を厳密に設計する必要がある。
総括
Visio VBAにおけるPDF出力制御は、単なる「印刷ボタンの自動化」ではない。
図面データの幾何学的な境界（BoundingBox）をコードで解析し、ベクターエンジンのキャンバスサイズを動的にねじ伏せる高度なエンジニアリングである。本稿で示した知見とコードブロックをベースラインとして実装に組み込むことで、環境に依存しない、ピクセルパーフェクトな自動帳票・図面出力パイプラインが完成する。
