Visio VBAを極める：`SaveAsEx`によるPDF/SVG/PNG高解像度一括エクスポートの深淵
Visioの自動化において、多くのエンジニアが陥る罠がある。「とりあえず `Export` メソッドを叩く」という安直な実装だ。しかし、実務で要求されるのは、特定のページのみを抽出し、解像度を制御し、かつ運用に耐えうる堅牢なアーキテクチャである。
本稿では、Visioのオブジェクトモデルを掌握し、`Document.SaveAsEx`を駆使して、ドキュメントの各ページを意図した通りのフォーマットで、かつ高解像度で一括出力する「本番環境レベルのツール」の設計思想を伝授する。
—
1. なぜ `Export` ではなく `SaveAsEx` なのか
Visioの `Shape.Export` や `Page.Export` は確かに簡便だ。しかし、これらは「標準的な設定」に依存しており、DPI（解像度）の細かい制御や、フィルタオプションの指定において限界がある。
一方、`Document.SaveAsEx` を利用する場合、Visioの「名前を付けて保存」のバックエンドを直接叩くことになる。このメソッドは `visSaveAsWS`（ワークスペース保存）や `visSaveAsList` などのフラグを制御することで、ファイル出力のパラメータをVBAから直接ハンドリングできる。特に高解像度のPDF出力やSVG出力において、この「制御の深さ」は業務自動化のクオリティを左右する。
—
2. 堅牢な設計のための3つの鉄則
1. 非破壊的な状態管理: 処理中に画面描画を停止（`Application.ScreenUpdating = False`）し、イベントを無効化（`Application.AlertResponse = 7`）せよ。これを忘れると、巨大なファイルを開くたびにVisioが応答不能になる。
2. 絶対パスの正規化: ファイルシステムを操作する場合、`CurDir` に頼るな。必ず `ThisDocument.Path` を基準としたパス結合を行い、パス末尾のセパレータ判定を実装せよ。
3. エラーハンドリングの局所化: ページごとの変換でエラーが発生した際、全プロセスを停止させるのではなく、ログに記録して次ページへ遷移させる「耐障害性」を持たせよ。
—
3. 実践：高解像度エクスポート・プロシージャ
以下は、各ページを個別のPDFとして出力する、本番環境向けのコードである。
‘ ———————————————————
‘ Visio Page Export Utility
‘ 概要: 指定したディレクトリに各ページを個別のPDFとして保存する
‘ ———————————————————
Public Sub ExportPagesAsPDF()
Dim vsoDoc As Visio.Document
Dim vsoPage As Visio.Page
Dim exportPath As String
Dim fileName As String
Set vsoDoc = ActiveDocument
exportPath = vsoDoc.Path & “ExportedPages\”
‘ ディレクトリ存在確認と作成
If Dir(exportPath, vbDirectory) = “” Then MkDir exportPath
‘ パフォーマンス最適化
Application.ScreenUpdating = False
Application.AlertResponse = 7 ‘ 警告メッセージの自動応答
On Error GoTo ErrorHandler
For Each vsoPage In vsoDoc.Pages
fileName = exportPath & vsoPage.Name & “.pdf”
‘ PDFエクスポート時のフィルタ設定（ここが肝）
‘ 第3引数のフィルタ設定文字列はVisioのバージョンや環境に依存するため
‘ 必要に応じて「PDF」形式のパラメータを適切に連結すること
vsoPage.ExportAsFixedFormat visFixedFormatPDF, fileName, _
visDocExAllPages, visImageQualityBest, , , , True
Next vsoPage
MsgBox “全ページのエクスポートが完了しました。”, vbInformation
GoTo Cleanup
ErrorHandler:
Debug.Print “Error in page: ” & vsoPage.Name & ” – ” & Err.Description
Resume Next
Cleanup:
Application.ScreenUpdating = True
Application.AlertResponse = 0
End Sub
—
4. 運用上の注意点：パフォーマンスとリソース管理
- 大規模ドキュメントの回避: ページ数が100を超えるようなファイルでは、オブジェクトの解放（`Set vsoPage = Nothing`）をループ内で行い、メモリリークを確実に防げ。
- SVGエクスポートの罠: SVG出力時に「フォントの埋め込み」を行わないと、受け取り側の環境でレイアウトが崩壊する。`Export` の引数で適切な `visSVG` フィルタを指定すること。
- データベース連携: もしメタデータ（ページタイトルや作成日時など）を別途管理しているなら、`FileSystemObject` を使い、出力後にJSONやCSVでマニフェストファイルを生成する設計を推奨する。これは後続のWebシステムやドキュメント管理システムとの連携において、極めて強力な武器となる。
—
結論：エンジニアとしての矜持
VBAは「簡易的な自動化ツール」と揶揄されることもあるが、それは単に書く人間がオブジェクトモデルを理解していないからだ。
Visioの `Document` や `Page` は、設計図としての生命を持っている。それらをどのように切り出し、どのようなフォーマットで世に出すか。そのプロセスを自動化することは、単なる作業の効率化ではなく、組織の情報流通そのものを加速させる行為である。
本稿のコードを叩き台とし、あなたの現場の要件に合わせてさらに磨き上げてほしい。それが、世界最高峰の自動化エンジニアへと至る唯一の道だ。
