Visio VBAを掌握する極限の知見：ダイアログの呪縛を断ち切れ！`ExportAsFixedFormat`による完全自動PDF/A出力の極意
業務自動化の現場において、最も許されない無駄な時間は何か？
それは、「プログラムが途中でダイアログを出し、人間のクリックを待ち続ける瞬間」だ。
数千枚の図面をバッチ処理でPDF化しようと夜間にスクリプトを走らせたのに、朝出社したら「PDFのオプション」ダイアログで処理がフリーズしていた――。そんな絶望を味わったことはないだろうか。
今回は、Visio VBAにおける図面ファイルのエクスポートの核心、特にPDF/A形式での保存に焦点を当て、ユーザー介入を完全に排除した堅牢なプロダクションコードを伝授する。
—
1. なぜ「あのダイアログ」が出てしまうのか？
多くの開発者が陥る罠が、単なる `SaveAs` メソッドの乱用、あるいは不完全な引数指定だ。VisioはPDFなどの固定形式へ出力する際、デフォルトでは対話型（Interactive）の動作を好む。
「PDF/Aで保存したい」「特定のページ範囲だけを抜け漏れなく出力したい」と思ったとき、UIのオプション画面をポチポチ手動で設定しているようでは、プロの自動化エンジニアとは言えない。
Visioのオブジェクトモデルにおいて、ファイルのエクスポートは `Document.ExportAsFixedFormat` メソッドが担う。このメソッドの引数を完全に支配下置くことこそが、ノンストップ自動化の第一歩である。
—
2. 堅牢な設計：`ExportAsFixedFormat` の全貌
まずは、APIの仕様を正確に理解しよう。`ExportAsFixedFormat` のシグネチャは以下の通りだ。
expression.ExportAsFixedFormat(
FixedFormat As VisFixedFormatTypes,
OutputFileName As String,
[Intent As VisDocExIntent = visDocExIntentPrint],
[PrintRange As VisPrintRange = visPrintAllPages],
[PageFrom As Long],
[PageTo As Long],
[Item As VisDocExItem = visDocExItemDrawing],
[CreateBookmarks As Boolean = True],
[UseISO19005_1 As Boolean = False],
[AlignBottom As Boolean = False],
[StrictBoundingBox As Boolean = False]
)
ここで、今回の最大のミッションである「PDF/A形式での出力」と「完全自動化」の鍵を握るパラメータを明示する。
1. `FixedFormat`: `visFixedFormatPDF`（定数: 1）を指定。
2. `UseISO19005_1`: これこそがPDF/A（ISO 19005-1準拠）のスイッチである。これを `True` にすることで、長期保存に最適なPDF/A形式で書き出される。
3. UIの抑制: このメソッド自体がダイアログを表示しない設計になっているため、適切な引数を渡せば完全バックグラウンドで処理が完結する。
—
3. 【プロダクションコード】コピペで即戦力となる堅牢なモジュール
現場でそのまま使える、エラーハンドリングを網羅した実用コードを提供する。単にエクスポートするだけでなく、ファイルパスの検証や、保存先の重複チェックといった「実務の泥臭い要件」にも耐える設計にしている。
Option Explicit
‘ ==============================================================================
‘ 処理名 : ExportActiveVisioToPDFA
‘ 概要 : アクティブなVisio図面をダイアログなしでPDF/A形式に完全自動エクスポートする
‘ 引数 : p_OutputPath – 保存先のフルパス（省略時はVisioファイルと同階層・同名）
‘ 戻り値 : 成功時はTrue、失敗時はFalse
‘ ==============================================================================
Public Function ExportActiveVisioToPDFA(Optional ByVal p_OutputPath As String = “”) As Boolean
Dim targetDoc As Visio.Document
Dim fso As Object
‘ デフォルトでは失敗と見なす
ExportActiveVisioToPDFA = False
‘ 1. アクティブドキュメントの存在チェック
On Error GoTo ErrorHandler
If ActiveDocument Is Nothing Then
MsgBox “処理対象となるVisio図面が開かれていません。”, vbCritical, “自動化エラー”
Exit Function
End If
Set targetDoc = ActiveDocument
‘ 2. 未保存ファイル（ルートパスなし）のガード処理
If targetDoc.Path = “” Then
MsgBox “この図面はまだ一度も保存されていません。一度手動で保存してから実行してください。”, vbExclamation, “パス未設定”
Exit Function
End If
‘ 3. 出力先パスの動的生成（引数が未指定の場合）
If p_OutputPath = “” Then
‘ 拡張子を .vsdx から .pdf に置換
p_OutputPath = Left(targetDoc.FullName, InStrRev(targetDoc.FullName, “.”) – 1) & “.pdf”
End If
‘ 4. 既存PDFファイルの競合チェック（FileSystemObjectを使用）
Set fso = CreateObject(“Scripting.FileSystemObject”)
If fso.FileExists(p_OutputPath) Then
‘ 必要に応じて上書き確認、あるいは自動削除のロジックを入れる
‘ ここでは安全のため既存ファイルをキル（上書き）する設計とする
On Error Resume Next
fso.DeleteFile p_OutputPath, True
If Err.Number <> 0 Then
MsgBox “既存のPDFファイルがロックされているため上書きできません:” & vbCrLf & p_OutputPath, vbCritical, “ファイルアクセスエラー”
Exit Function
End If
On Error GoTo ErrorHandler
End If
‘ 5. 【核心】ExportAsFixedFormat による完全自動 PDF/A 出力
‘ ————————————————————————–
‘ 引数の意味:
‘ FixedFormat := visFixedFormatPDF (PDF形式)
‘ OutputFileName := 保存先パス
‘ Intent := visDocExIntentPrint (印刷品質を優先)
‘ PrintRange := visPrintAllPages (全ページ対象)
‘ CreateBookmarks := True (しるし・目次を生成する)
‘ UseISO19005_1 := True ★これがPDF/A形式（長期保存用）の指定！
‘ ————————————————————————–
targetDoc.ExportAsFixedFormat _
FixedFormat:=visFixedFormatPDF, _
OutputFileName:=p_OutputPath, _
Intent:=visDocExIntentPrint, _
PrintRange:=visPrintAllPages, _
CreateBookmarks:=True, _
UseISO19005_1:=True
‘ 正常終了
ExportActiveVisioToPDFA = True
‘ ログ出力（イミディエイトウィンドウ）
Debug.Print “PDF/A Export Success: ” & p_OutputPath
Exit Function
ErrorHandler:
MsgBox “予期せぬエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“内容: ” & Err.Description, vbCritical, “致命的エラー”
ExportActiveVisioToPDFA = False
End Function
—
4. 開発現場でハマりがちな「罠」と対策
このコードを実際のプロジェクトに組み込む際、エンジニアが知っておくべき実務上の知見を共有しよう。
① PDF/A (ISO 19005-1) 指定時のフォント埋め込み問題
`UseISO19005_1:=True` を有効にすると、PDFの仕様上、使用されているすべてのフォントがPDF内に完全に埋め込まれなければならない。
もし、クライアントPC側に特殊なフォントがインストールされており、かつライセンス的に埋め込みが許可されていないフォントを使っている場合、容赦なくエクスポートエラー（あるいは文字化け）が発生する。
> 対策: 標準的なフォント（メイリオ、游ゴシック、Arialなど）を使用するか、マスター図面の段階でフォント要件を厳格に統制すること。
② 大規模図面におけるパフォーマンスとメモリリーク
大量のVSDXファイルをループ処理で次々とPDF/A化していくバッチスクリプトを書く場合、Visioのインスタンスがメモリを解放しきれずに肥大化することがある。
> 対策: バッチ処理の場合は、一定数（例: 50ファイルごと）処理したら一度Visioのプロセスを再起動するか、`DoEvents` を適切に挟んでUIスレッドとメモリの息継ぎを行わせる設計が不可欠だ。
—
5. チーフアーキテクトからの提言
「ボタンを押したら動く」だけのコードは、アマチュアの仕事だ。
プロの自動化エンジニアが作るべきは、「環境やユーザーの存在を完全に忘れて背後で完璧に仕事を完遂する、静寂で堅牢なシステム」である。
今回解説した `ExportAsFixedFormat` のパラメータ制御と、ファイル競合・例外処理の組み合わせは、まさにその思想を具現化したものだ。この知見をあなたの開発パイプラインに組み込み、手動による無駄なダイアログ操作を今すぐ絶滅させてほしい。
