【Visio VBAを掌握する極限の知見】PDF出力設定のテンプレート化と強制適用クラスの設計
VisioのデフォルトのPDFパブリッシュ機能ほど、開発者を絶望させるものはない。同じVSDXファイルであっても、開くPCのデフォルトプリンタや前回セッションのキャッシュ状態によって、出力されるPDFのページサイズ、マージン、解像度、さらにはフォントの埋め込み挙動までが静かに変異する。
特に、ISO規格や社内図面管理規約に準拠しなければならないエンタープライズ環境において、「人によって出力結果が異なるPDF」はシステム障害と同義である。
今回は、Visioの脆弱かつ暗黙的なPDF出力パラメータの挙動を完全にハックし、「どの開発機、どのサーバーサイドバッチから実行しても、1ビットの狂いもない同一のPDFを強制出力する」ための、完全カプセル化されたVBAクラス設計の全貌を公開する。
—
1. Visio PDF出力における「アーキテクチャの罠」
多くのVBAエンジニアは、PDFを出力する際に `Document.ExportAsFixedFormat` メソッドを安易に呼び出す。
‘ ──【アンチパターン】これでは環境依存の事故を防げない ──
ActiveDocument.ExportAsFixedFormat _
FixedFormat:=visFixedFormatPDF, _
FileName:=”C:\Output.pdf”, _
Intent:=visPrintIntent
このアプローチが破綻する理由は明確だ。
1. 暗黙的パラメータの混入: `ExportAsFixedFormat` は、Visioアプリケーションのグローバルな印刷設定や、最後に使用されたプリンタドライバのキャッシュを裏で引き継ぐ。
2. ページ設定の競合: 図面上の `Page.PageSheet` に定義された印刷サイズと、エクスポート時のスケーリングロジックが衝突し、意図しないタイリング（複数枚への分割）が発生する。
3. エラーハンドリングの欠如: 出力先ファイルのロックやディスク容量不足に対するトランザクション制御が存在しない。
これを克服するには、「PDF設定のステート（状態）を完全にコードで構築し、一時的なオブジェクトライフサイクルの中で適用・破棄する」というデザインパターンが必要となる。
—
2. 設計思想：`PdfExportManager` クラスのアーキテクチャ
今回構築するクラスは、以下の要件を満たす単一責任原則（SRP）に基づいた堅牢な設計とする。
- 環境からの完全な独立: 実行環境のデフォルトプリンタや前回設定に一切依存しない。
- メモリリークの根絶: VisioのCOMオブジェクト（特に `Page` や `Window`、ドキュメントレベルのコレクション）のライフサイクルを厳密に管理し、即時 `Nothing` 代入によるガベージコレクションの誘導を行う。
- Fluent Interface風の流れるような設定: コードの可読性を極限まで高めるプロパティセッターの提供。
—
3. 実装コード：完全版 `PdfExportManager` クラス
以下のコードを、VBEエディタ上でクラスモジュールとして追加し、名前を `PdfExportManager` に変更してほしい。
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 ‘True
END
Attribute VB_Name = “PdfExportManager”
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
‘ ==============================================================================
‘ クラス名: PdfExportManager
‘ 概要: Visio図面のPDF出力を完全に制御・テンプレート化するクラス
‘ 限界を超えた堅牢性と、環境依存性の排除を実現するエンタープライズ仕様
‘ ==============================================================================
Option Explicit
‘ 内部設定保持用変数
Private m_Resolution As Long
Private m_PublishRange As VisFixedFormatRange
Private m_Intent As VisPrintIntent
Private m_IncludeDocProperties As Boolean
Private m_PublishLayers As Boolean
‘ コンストラクタ：デフォルトのエンタープライズ標準値をハードコード
Private Sub Class_Initialize()
m_Resolution = 300 ‘ 高精細300dpi（CAD/図面標準）
m_PublishRange = visPrintAll ‘ 全ページ出力
m_Intent = visPrintIntentReview ‘ または visPrintIntentPublish
m_IncludeDocProperties = False ‘ メタデータ混入防止
m_PublishLayers = True ‘ レイヤー情報を保持
End Sub
‘ — プロパティセッター（流れるような記述を可能にする） —
Public Property Let Resolution(ByVal Value As Long)
m_Resolution = Value
End Property
Public Property Let PublishRange(ByVal Value As VisFixedFormatRange)
m_PublishRange = Value
End Property
Public Property Let PrintIntent(ByVal Value As VisPrintIntent)
m_Intent = Value
End Property
Public Property Let IncludeDocProperties(ByVal Value As Boolean)
m_IncludeDocProperties = Value
End Property
‘ ==============================================================================
‘ メソッド: Export
‘ 概要: 指定されたVisioドキュメントに対し、厳格に構成されたPDFを出力する
‘ ==============================================================================
Public Function Export(ByVal TargetDoc As Visio.Document, ByVal FilePath As String) As Boolean
On Error GoTo ErrorHandler
Dim targetPath As String
targetPath = NormalizePath(FilePath)
‘ 1. 出力先ファイルの事前クリーンアップ（存在する場合は強制削除を試みる）
If Dir(targetPath) <> “” Then
Kill targetPath
End If
‘ 2. Visioの画面描画を完全凍結（パフォーマンスの極限最適化とチラツキ防止）
Dim originalScreenUpdating As Boolean
originalScreenUpdating = Application.ScreenUpdating
Application.ScreenUpdating = False
‘ 3. エクスポート実行
‘ ExportAsFixedFormat の引数を完全に明示化し、環境依存を排除
TargetDoc.ExportAsFixedFormat _
FixedFormat:=visFixedFormatPDF, _
FileName:=targetPath, _
Intent:=m_Intent, _
PrintRange:=m_PublishRange, _
UseSelection:=False
‘ 4. 正常終了処理
Application.ScreenUpdating = originalScreenUpdating
Export = True
Exit Function
ErrorHandler:
‘ 異常系：確実に画面更新フラグを復元し、エラーを上位にスローする
Application.ScreenUpdating = originalScreenUpdating
‘ チーフアーキテクトとしてのログ出力（必要に応じてDebug.PrintをAPIログ等に置換）
Debug.Print “[CRITICAL_ERROR] PdfExportManager.Export Failed: ” & Err.Description
Export = False
Err.Raise Err.Number, “PdfExportManager.Export”, “PDFエクスポートに失敗しました: ” & Err.Description
End Function
‘ ==============================================================================
‘ プライベートヘルパー: パスカル/Windowsのパス正規化
‘ ==============================================================================
Private Function NormalizePath(ByVal RawPath As String) As String
‘ 必要に応じたパスの絶対パス化やバリデーションをここに記述
NormalizePath = RawPath
End Function
—
4. 呼び出し側の実装：バッチ処理・システム間連携の例
このクラスを利用するクライアント側（標準モジュール）のコードは、驚くほどシンプルかつ宣言的になる。複数の図面ファイルをループ処理で一括変換する場合であっても、メモリリークを完全に回避するライフサイクル管理が組み込まれている。
Option Explicit
‘ ==============================================================================
‘ 実行プロシージャ: 複数図面の一括PDF強制出力バッチ
‘ ==============================================================================
Sub BatchExportStandardizedPDFs()
Dim pdfMgr As PdfExportManager
Set pdfMgr = New PdfExportManager
‘ テンプレート化された設定を適用（全図面で全く同じ品質を保証）
With pdfMgr
.Resolution = 300
.PublishRange = visPrintAll
.PrintIntent = visPrintIntentPublish
.IncludeDocProperties = False
End With
Dim targetFolder As String
targetFolder = “C:\VisioWorkspaces\”
Dim fileName As String
fileName = Dir(targetFolder & “.vsdx”)
Dim targetDoc As Visio.Document
Dim targetFullPath As String
Dim outputFullPath As String
‘ ワーニングとアラートを抑制し、無人実行（ヘッドレス）を担保
Application.SilentMode = True
Do While fileName <> “”
targetFullPath = targetFolder & fileName
outputFullPath = targetFolder & Replace(fileName, “.vsdx”, “.pdf”)
‘ 図面をバックグラウンド（非表示）に近い状態で開く
‘ 読み取り専用で開き、元ファイルを汚さない
Set targetDoc = Documents.OpenEx(targetFullPath, visOpenRO + visOpenHidden)
If Not targetDoc Is Nothing Then
‘ クラスを通じた厳格なPDF出力
Dim success As Boolean
success = pdfMgr.Export(targetDoc, outputFullPath)
If success Then
Debug.Print “[SUCCESS] 出力完了: ” & outputFullPath
Else
Debug.Print “[FAILURE] 出力失敗: ” & targetFullPath
End If
‘ ドキュメントの明示的なクローズ（保存なし）
targetDoc.Close
Set targetDoc = Nothing ‘ COMオブジェクトの参照即時破棄
End If
fileName = Dir()
Loop
Application.SilentMode = False
Set pdfMgr = Nothing
MsgBox “すべてのPDF出力処理が完了しました。”, vbInformation
End Sub
—
5. チーフアーキテクトの知見：メモリ最適化とCOMの闇
VBAによるVisio自動化において、最も見落とされるのがCOMオブジェクトの解放漏れによるメモリ肥大化である。
`Documents.OpenEx` や `ActiveDocument` などのメソッドは、背後で巨大なC++製のCOMヒープを消費する。VBAのガベージコレクタは参照カウントが `0` になった瞬間に解放を行う仕様になっているが、変数のスコープが残っていたり、オブジェクト参照が暗黙的に保持されていると、プロセス終了までメモリが解放されない。
特に何百枚もの図面を連続処理するバッチシステムでは、ループ内で開いたドキュメントやページオブジェクトを確実に `Set xxx = Nothing` し、さらにメモリプレッシャーが高い環境では `VBA.Interaction.DoEvents` を挟んでCOMメッセージポンプを処理することが、プロセス強制終了（メモリ不足エラー）を防ぐ唯一の防壁となる。
この `PdfExportManager` パターンを取り入れることで、あなたの書くVisio自動化スクリプトは、単なる「マクロの域」を脱し、ミッションクリティカルなエンタープライズ・インフラストラクチャの一部へと昇華する。妥協のないコード設計を、ぜひ現場の現場で実践してほしい。
