VisioのPDF出力：なぜあなたの成果物は「バラつき」を生むのか？
業務自動化の現場でよくある悲劇。それは、「担当者によってPDFの画質が違う」「フォントが欠けている」「余白設定が微妙にズレている」という現象です。
Visioの `ExportAsFixedFormat` メソッドは強力ですが、標準のままだとVBAを実行する環境や、最後にそのファイルを開いたユーザーの「直前の設定」に依存します。設定を環境に委ねることは、エンジニアとして最大の怠慢です。
今回は、PDF出力設定を「クラス」にカプセル化し、どの図面に対しても「完璧に同じ品質」を強制適用する、プロフェッショナルな実装パターンを伝授します。
—
1. なぜ「設定のテンプレート化」が必要なのか
VisioのPDF出力設定は、レジストリやユーザーごとの設定に強く依存します。大規模な図面管理システムでは、以下の課題を確実に潰す必要があります。
- 環境依存の排除: 解像度や埋め込みフォントを強制定義する。
- 運用コストの削減: 設定変更の際、100個のスクリプトを直すのではなく、クラスモジュール1つを修正するだけで全機能に波及させる。
- 堅牢性の担保: エラーハンドリングを共通化し、出力失敗時のプロセス残存を防ぐ。
—
2. 実装：PDF出力制御クラス `PdfExporter`
このクラスは、Visioの複雑な出力オプションを、コードから「設定値」として注入できるように設計しています。
クラスモジュール: `PdfExporter.cls`
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 ‘True
END
Attribute VB_Name = “PdfExporter”
‘ Visio PDF出力設定をカプセル化したプロフェッショナル・クラス
Option Explicit
Public Sub ExportToPdf(ByRef doc As Visio.Document, ByVal savePath As String)
On Error GoTo ErrHandler
‘ PDF出力オプションの定義
‘ 毎回「直前の設定」を読み込ませるのではなく、意図した設定を強制する
doc.ExportAsFixedFormat _
FixedFormat:=visFixedFormatPDF, _
OutputFileName:=savePath, _
Intent:=visDocIntentPrint, _
PrintRange:=visPrintAll, _
UseISO19005_1:=True, _
IncludeDocumentProperties:=False, _
IncludeStructureTags:=True, _
IncludePrintSettings:=True
Exit Sub
ErrHandler:
Err.Raise vbObjectError + 1000, “PdfExporter”, “PDF出力に失敗しました: ” & Err.Description
End Sub
—
3. 実務での運用：メイン実行モジュール
クラスを使う最大のメリットは、呼び出し側が「どう設定するか」を意識しなくて済むことです。
Sub BatchExportDrawings()
Dim exporter As New PdfExporter
Dim doc As Visio.Document
Dim targetPath As String
‘ 例：現在の開いている図面をPDF化する
Set doc = ActiveDocument
targetPath = “C:\Reports\Export_” & Format(Now, “yyyymmdd_hhnn”) & “.pdf”
‘ 呼び出しはシンプルに。詳細はクラスが保証する。
On Error Resume Next
exporter.ExportToPdf doc, targetPath
If Err.Number <> 0 Then
MsgBox “エラー発生: ” & Err.Description, vbCritical
Else
MsgBox “出力完了: ” & targetPath, vbInformation
End If
End Sub
—
4. 伝説のエンジニアからの「極限の知見」
① 「直前の設定」という罠
`ExportAsFixedFormat` は、手動で一度でもPDF保存を行っていると、その時のオプションが保持されることがあります。プロのコードでは、必ず `IncludePrintSettings` や `UseISO19005_1` (PDF/A準拠) を明示的に指定し、「手動操作による汚染」を遮断してください。
② ファイルロックとプロセスの生死
大量の図面をループ処理する場合、Visioのプロセスがメモリ上に残り続けることがあります。`doc.Close` を忘れずに行うのは当然ですが、処理の節目で `DoEvents` を挟み、Windowsのリソース解放を待つ余裕を持つのが、安定稼働の秘訣です。
③ データベース連携のヒント
もし、出力設定をDBで管理したい場合、クラスのイニシャライズ（`Class_Initialize`）でDBから設定値を読み込み、プロパティとして保持する設計に拡張してください。これにより、「出力品質の仕様変更」をコード変更なしで（DB更新だけで）適用可能になります。
—
結論
エンジニアが書くコードは「動けばいい」ものではありません。それは「組織の品質を規定するルール」です。
今回紹介したクラスベースの設計は、最初は少し冗長に感じるかもしれません。しかし、半年後に「全PDFの解像度を300dpiから600dpiに上げてくれ」と言われた瞬間、この設計の真価を理解するはずです。
Visio VBAは古い言語ですが、設計思想次第でどこまでも近代的に進化します。さあ、あなたの図面管理も、この「堅牢な設計」でアップデートしてください。
