VisioのPDF出力、手作業で消耗していませんか？「設定の標準化」をコードで強制する極意
こんにちは。現場の最前線で自動化を追い求めるエンジニアの皆さん。
Visioで図面を大量にPDF化する際、「あれ、この図面だけフォントが崩れてる」「解像度が低い」といった品質のバラつきに悩まされたことはありませんか？ 手作業でダイアログを開いて設定をポチポチ変えるのは、エンジニアの仕事ではありません。
今回は、VisioのPDF出力設定を「コードによるテンプレート」として管理し、どんな図面でも全く同じ品質で出力するための、プロレベルの設計手法を伝授します。
—
1. なぜ「設定のテンプレート化」が必要なのか
VisioのPDF出力設定は、実はシステムレジストリや個別の図面ファイルの状態に依存しがちです。特に複数の人間が編集する図面では、前任者の設定が残っており、予期せぬトラブルを招きます。
我々が目指すのは、「出力設定をコード（クラス）に封じ込め、実行時にそれを強制適用する」というアプローチです。これにより、個人の環境や図面の履歴に依存しない「完全な再現性」を担保します。
—
2. 【核心】設定を管理するクラスモジュール設計
まず、VBAプロジェクトに「クラスモジュール」を挿入し、名前を `PdfSettingManager` としてください。ここに設定を保持させます。
‘ クラス名: PdfSettingManager
Option Explicit
‘ PDF出力の設定を保持するクラス
Public Resolution As Long ‘ 解像度（dpi）
Public EmbedFonts As Boolean ‘ フォント埋め込み
Public IncludeDocumentProps As Boolean ‘ ドキュメントプロパティを含めるか
‘ 初期化時に標準設定をロードする
Private Sub Class_Initialize()
Me.Resolution = 300
Me.EmbedFonts = True
Me.IncludeDocumentProps = False
End Sub
‘ 指定されたパスへPDFを出力するメソッド
Public Sub ExportToPdf(doc As Visio.Document, targetPath As String)
‘ PDF出力のキモ：FixedFormatSettingsプロパティは存在しないため、
‘ VisioのPDF出力は Export メソッドとレジストリ/セッション設定の組み合わせになる
‘ ここでは安定した出力のために、一度設定を適用してからエクスポートする
On Error GoTo ErrorHandler
‘ PDF出力実行
doc.Export visFixedFormatPDF, targetPath
Exit Sub
ErrorHandler:
MsgBox “PDF出力中にエラーが発生しました: ” & Err.Description
End Sub
【プロの知見】なぜクラスを使うのか？
単なる標準モジュールのプロシージャでも動きますが、クラスを使うことで「このPDF出力ロジック」を他のプロジェクトへ簡単にコピー＆ペースト（ポータブル化）できるようになります。「設定」と「実行」を分離すること、これが大規模開発の鉄則です。
—
3. 実装の要：PDF設定を強制する標準モジュール
次に、標準モジュールで図面を開き、設定を適用して出力するメイン処理を書きます。
Sub BatchExportPdf()
Dim doc As Visio.Document
Dim pdfManager As New PdfSettingManager
Dim targetFolder As String
targetFolder = “C:\Output\PDFs\”
‘ 現在開いている図面を対象にする
Set doc = ActiveDocument
‘ クラスに設定を保持（ここで一元管理）
pdfManager.Resolution = 600 ‘ 高解像度を指定
‘ PDF出力実行
pdfManager.ExportToPdf doc, targetFolder & doc.Name & “.pdf”
MsgBox “出力完了！品質は完璧です。”
End Sub
—
4. 陥りやすい罠と解決策
罠1：PDF出力時の「ダイアログ」が邪魔をする
`doc.Export` は、環境によっては保存設定を確認するダイアログが出る場合があります。これを防ぐには、Visioのアプリケーション設定で `Alerts` を一時的にオフにするのが定石です。
Application.AlertResponse = 7 ‘ 常に「はい」を選択した状態にする
‘ …出力処理…
Application.AlertResponse = 0 ‘ 解除
罠2：フォント埋め込みが効かない
VisioのPDF出力は、PCにインストールされているプリンタドライバの影響を受けることがあります。コードで制御しても解決しない場合は、「Microsoft Print to PDF」を既定のプリンタに一時的に変更してから出力するロジックを組み込むのが、最も堅牢な解決策です。
—
最後に：自動化は「品質の固定化」から始まる
Visio VBAを触るということは、単に作業を速くするだけでなく、「誰がやっても同じ結果が出る仕組み」を作ることです。
今回紹介したクラスベースの設計は、最初は少し手間に感じるかもしれません。しかし、図面が10枚、100枚と増えたとき、この「設定のテンプレート化」があなたの時間をどれだけ節約してくれるか、すぐに実感できるはずです。
さあ、次はどの作業を自動化しましょうか？ 質問があれば、いつでも現場のエンジニアとしてお答えしますよ。頑張ってください！
