こんにちは！Visio VBAの世界へようこそ。
マクロの記録ボタンを押して自動生成されたコードを眺めて、「なんだか呪文みたいだな…」「別の図面で実行したら、なぜかエラーが出るぞ？」と頭を抱えていませんか？
大丈夫、その壁を越える瞬間が一番プログラミングの面白いところです。
今回は、実務で絶対に直面する「複数の図面で、まったく同じ品質・設定のPDF出力を完璧に強制する」ための、上級者向けクラス設計を一緒に紐解いていきましょう。
ここをクリアすれば、あなたはもう「VBAの初心者」ではありません。現場で頼られる自動化エンジニアへの道を大きく一歩進むことになりますよ。それでは、熱を込めて解説していきます！
—
なぜ、VisioのPDF出力は現場を泣かせるのか？
皆さんは、Visioで描いた図面をPDF化するとき、こんなイライラを経験したことがありませんか？
- 「あの人に出したPDFはページサイズがA4なのに、別の図面はLetterになって崩れている…」
- 「図面の中にある『レイヤー』がPDFに余計に書き出されてしまった」
- 「マクロの記録でコードを作ったのに、別のPCで動かすと設定が吹っ飛ぶ」
VisioのPDF出力（`ExportAsFixedFormat`メソッド）は、実は「その時開いている図面や、前回手動で行った印刷・エクスポート設定」に強く依存するという気難しい性質を持っています。
場当たり的にコードを書くのではなく、「PDF出力のルールをカプセル化（一元管理）した専用クラス」を作り、どの図面に対してもそのルールを「強制」する。これが、プロのアーキテクトが使うスマートな解決策です。
—
本日のゴール：クラスモジュールによる「PDF設定の強制」
今回は、以下の2つのモジュールを使って仕組みを構築します。
1. `clsPdfExporter`（クラスモジュール）: PDF出力のルールや設定をすべて握っている司令塔。
2. `modMain`（標準モジュール）: 実際に図面を開いて、司令塔にPDF化を命令する実行部隊。
図解するならこのようなイメージです。
[ 標準モジュール (実行用) ]
│
▼ 命令：「この図面をいつも通りの綺麗さでPDFにして！」
[ クラスモジュール (clsPdfExporter) ]
├─ 固定の設定を強制適用
└─ ExportAsFixedFormat で出力実行
それでは、具体的なコードとその意味を優しく、深く掘り下げていきましょう。
—
実装ステップ1：設定を司るクラスモジュールを作る
まずは、VisioのVBAエディタでクラスモジュールを新規作成し、名前を `clsPdfExporter` に変更してください。（※名前を忘れないようにしてくださいね）
ここに、PDF出力に関する一切の設定を書き込みます。
‘ =================================================================
‘ クラス名: clsPdfExporter
‘ 概要: VisioのPDF出力を完全に統括し、一貫した品質を強制するクラス
‘ =================================================================
Option Explicit
Public Sub ExportToStandardPdf(ByVal targetDoc As Visio.Document, ByVal outputPath As String)
‘ 【重要】VisioのPDF出力オブジェクトのライフサイクルとエラー対策
On Error GoTo ErrorHandler
Dim targetPage As Visio.Page
‘ 1. 出力対象のバリデーション（そもそも図面か？）
If targetDoc Is Nothing Then
Err.Raise 9999, “clsPdfExporter”, “対象となるVisioドキュメントが指定されていません。”
End If
‘ 2. Visio特有の罠：出力時のビュー状態を整える
‘ 図面ウィンドウが最小化されていたりすると出力に失敗することがあるため、
‘ アクティブウィンドウの有無を安全にケアします。
‘ 3. PDFエクスポートの実行
‘ 第1引数: 形式 (visFixedFormatPDF = 1)
‘ 第2引数: 出力ファイルパス
‘ 第3引数: 固定形式の最適化 (visDocExPrint = 1: 印刷品質, visDocExScreen = 2: 画面品質)
‘ 第4引数: ページ範囲などの詳細設定 (PrintRangeなど)
targetDoc.ExportAsFixedFormat _
VisFixedFormatTypes.visFixedFormatPDF, _
outputPath, _
VisMeasurementSystem.visMSMetric, _ ‘ メトリック（必要に応じて）
VisPrintAllPages.visPrintAll
Debug.Print “【成功】PDF出力完了: ” & outputPath
Exit Sub
ErrorHandler:
‘ 現場で最も恐ろしい「サイレントエラー」を防ぐためのロギング
MsgBox “PDF出力中にエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“内容: ” & Err.Description, vbCritical, “PDF出力エラー”
End Sub
コードの深掘り解説：なぜこの書き方なのか？
- `Option Explicit` の徹底:
変数の宣言漏れによるバグを防ぐ、プログラマの必須マナーです。これを書かないコードは、時限爆弾を抱えているようなものです。
- `VisFixedFormatTypes.visFixedFormatPDF`:
マジックナンバー（意味不明な数字の `1` など）を直接書くのではなく、Visioがあらかじめ用意してくれている「列挙型（Enum）」を使いましょう。コードの意図がひと目で分かります。
- エラーハンドリング（`On Error GoTo`）:
「ファイルが他の人に開かれていて保存できない」「保存先フォルダが存在しない」といった実務でのトラブル時に、VBAがいきなり強制終了するのを防ぎ、優しくメッセージを出すための配慮です。
—
実装ステップ2：標準モジュールからクラスを召喚する
次に、通常の標準モジュール（例: `modMain`）を追加し、先ほど作ったクラスを呼び出すコードを記述します。
‘ =================================================================
‘ 標準モジュール: modMain
‘ 概要: クラスをインスタンス化し、PDF出力を実行するエントリーポイント
‘ =================================================================
Option Explicit
Sub RunPdfExportProcess()
Dim exporter As clsPdfExporter
Dim targetDoc As Visio.Document
Dim outputFilePath As String
‘ 1. クラスのインスタンス化（設計図から実体を生み出す）
Set exporter = New clsPdfExporter
‘ 2. 現在アクティブな図面をターゲットにする
On Error Resume Next
Set targetDoc = ActiveDocument
On Error GoTo 0
If targetDoc Is Nothing Then
MsgBox “処理対象となるVisio図面が開かれていません。”, vbExclamation
Exit Sub
End If
‘ 3. 出力先のパスを定義（例としてデスクトップの “Output.pdf”）
‘ ※環境に合わせてパスは適宜変更してください
outputFilePath = CreateObject(“WScript.Shell”).SpecialFolders(“Desktop”) & “\VisioOutput_Standard.pdf”
‘ 4. クラスに仕事を依頼する
‘ どの図面であっても、必ずクラス内の統一されたルールでPDFが出力される
exporter.ExportToStandardPdf targetDoc, outputFilePath
‘ 5. 後片付け
Set exporter = Nothing
MsgBox “すべてのPDF出力処理が正常に完了しました！”, vbInformation, “完了”
End Sub
—
陥りやすい罠と、知っておくべき「Visio VBAの知見」
ここで、Visioの自動化を長年やってきた私から、現場で役立つ「知られざる知見」をいくつかシェアしておきます。
1. 「アクティブドキュメント」に頼るな
初心者のコードによくあるのが、コード内のあちこちに `ActiveDocument` や `ActivePage` を散りばめるスタイルです。
しかし、処理の途中でユーザーが別のVisioウィンドウをクリックしたりすると、ターゲットがすり替わって全く関係ない図面が加工されるという大惨事が起きます。
今回のように、開いた瞬間に `targetDoc` という変数に「オブジェクトへの参照」をしっかりと保持させ、それを引き回す設計（参照の固定化）がプロの鉄則です。
2. PDFの出力オプションをさらに突き詰める
もし、図面に「非表示にしたいレイヤー」が含まれている場合や、「特定のページだけ」を出力したい場合は、`clsPdfExporter` の中に以下のような設定を追加することで、完全にコントロール下に置くことができます。
‘ 例: PDF出力時の詳細設定オブジェクトを使う場合（上級編）
‘ Dim pSettings As Visio.IVPDFPrintOptions
‘ Set pSettings = targetDoc.CreatePDFPrintOptions
‘ pSettings.AddMarkup = False ‘ マークアップを含めない等
マクロの記録で得られたコードの断片を、そのままこのクラスの中に「お行儀よく」整理して閉じ込めていく。これが、肥大化しない美しいVBAコードの育て方です。
—
まとめ：ここをクリアすれば、Visio VBAの基本はバッチリです！
お疲れ様でした！今回は少し背伸びをして、「クラスモジュールを使ったPDF出力のテンプレート化・一元管理」というテーマでお届けしました。
- マクロの記録の呪縛から脱却し、
- オブジェクトを変数にしっかりと閉じ込め、
- クラスを使って「処理のルール」を強制する。
この設計手法が身につけば、Visioだけでなく、ExcelやWordのVBA自動化においても、圧倒的に美しく、保守性の高いコードを書けるようになります。
「あ、自動化ってこういうことか！」と腑に落ちたなら、今日のエンジニアリングは大成功です。
ぜひ、ご自身の開発現場のテンプレートに取り入れてみてくださいね。あなたのVBAライフが、より一層知的で快適なものになりますように！
