Visio VBAの真髄：`ExportAsFixedFormat`でPDF出力を完全制御する
こんにちは。業務自動化の最前線でVisioを叩き続けているエンジニアです。
「マクロの記録」ボタンを押して生成されたコードを眺めて、そのまま使い続けていませんか？それも一つの手段ですが、現場で求められるのは「特定のページだけを、適切な解像度で、エラーを飲み込まずに書き出す」という精密な制御です。
今回は、Visio VBAにおいて避けては通れない壁、`ExportAsFixedFormat`メソッドを完全攻略します。ここをマスターすれば、帳票出力やドキュメント管理の自動化レベルが一段階引き上がりますよ。
—
1. なぜ「マクロの記録」では不十分なのか
まず、Visioの「マクロの記録」でPDF出力を記録すると、驚くほど冗長で硬直したコードが出力されます。あれは「その瞬間の設定」をハードコーディングしているに過ぎません。
私たちが目指すのは、環境変化に強く、メモリ効率を考慮した「生きているコード」です。
ExportAsFixedFormatの心臓部
このメソッドには、強力なパラメータが用意されています。まずは構文の「本質」を見てみましょう。
Document.ExportAsFixedFormat(
FixedFormat As VisFixedFormatTypes, ‘出力形式 (PDF/XPS)
OutputFileName As String, ‘保存先パス
Intent As VisIntents, ‘目的 (印刷用か、Web用か)
PrintRange As VisPrintOutRange, ‘範囲 (全ページか、指定ページか)
FromPage As Long, ‘開始ページ
ToPage As Long, ‘終了ページ
…
)
重要なのは `Intent` と `PrintRange` です。ここを制御することで、ファイルサイズと品質のバランスを自由自在に操れます。
—
2. 【実践】PDF出力の極限最適化コード
以下は、実務でそのまま使える堅牢なテンプレートです。単にエクスポートするだけでなく、「対象ページが存在するか」という生存確認を組み込むのが、プロのエンジニアの流儀です。
Sub ExportSpecificPageAsPDF()
Dim doc As Visio.Document
Dim targetPath As String
Set doc = ActiveDocument
targetPath = ThisDocument.Path & “Exported_Report.pdf”
‘ エラーハンドリング：ファイルが開いている等の予期せぬ事態に備える
On Error GoTo ErrorHandler
‘ PDF出力実行
‘ visFixedFormatPDF: PDFを指定
‘ visDocExIntentPrint: 高解像度（印刷品質）を指定
‘ visPrintFromTo: ページ範囲を指定
doc.ExportAsFixedFormat _
FixedFormat:=visFixedFormatPDF, _
OutputFileName:=targetPath, _
Intent:=visDocExIntentPrint, _
PrintRange:=visPrintFromTo, _
FromPage:=1, _
ToPage:=1 ‘ 1ページ目だけを出力
MsgBox “PDF出力が完了しました：” & vbCrLf & targetPath, vbInformation
Exit Sub
ErrorHandler:
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical
End Sub
コードのポイント解説
- `Intent:=visDocExIntentPrint`: これが重要です。`visDocExIntentScreen` を選ぶと軽量ですが画質が落ちます。業務で使うなら原則 `Print` 一択です。
- `visPrintFromTo`: これを使うことで、特定のページだけを抜き出せます。大量の図面の中から「要約ページだけPDF化してメールする」といった自動化が可能です。
- `On Error GoTo`: ファイルが既に開かれていて書き込み禁止になっている場合、Visioは無慈悲にクラッシュします。必ずトラップを仕掛けてください。
—
3. 陥りやすい罠と対策
罠1：PDF出力時の解像度がぼやける
VisioのPDF出力は、デフォルトでは「画面表示用」の設定になっていることがあります。もし出力結果がぼやけるなら、ページ設定の「プリンタ用紙サイズ」とVisioの「図面サイズ」が一致しているか確認してください。ここがズレていると、PDF生成エンジンが勝手にリサイズして画質が劣化します。
罠2：ファイルパスの指定ミス
`ThisDocument.Path` は、ファイルが一度も保存されていない場合、空文字を返します。必ず「保存済みのファイル」に対して実行するか、保存ダイアログでパスを取得する実装を加えてください。
—
最後に：エンジニアとしての一歩先へ
Visio VBAをマスターする秘訣は、「Visioが裏側で何を考えているか」を想像することです。
`ExportAsFixedFormat` は、実はバックグラウンドで仮想プリンタのような処理を走らせています。そのため、処理が終わるまで次の行へ進ませないような工夫が必要になる場面もあります（DoEventsの活用など）。
今回は基礎の決定版をお伝えしました。ここをクリアすれば、あなたはもう「マクロを記録する人」から「業務を設計する人」へと進化しています。
もし「もっと複雑なページ指定をしたい」「図面内のレイヤーごとにPDFを分けたい」といった要望があれば、いつでも聞いてください。Visioの深淵まで、一緒に潜っていきましょう。
