Visio VBAの真髄：SaveAsExで操る「究極のドキュメント一括エクスポート」術
こんにちは。Visioの深淵へようこそ。
「マクロの記録」ボタンを押して生成された、冗長で意味不明なコードに絶望したことはありませんか？Visio VBAの世界は、単なる自動化の手段ではありません。オブジェクトの階層構造を理解し、メモリと描画エンジンの挙動を制御する「設計」の領域です。
今日は、VisioのドキュメントをPDF、SVG、PNGへ自由自在に書き出す、実務で即戦力となるアーキテクチャを伝授します。これさえ理解すれば、あなたはもう「ボタンを押す人」ではなく「エンジニア」です。
—
1. Visioオブジェクトモデルの「絶対階層」を知る
Visioを操るには、まずこのピラミッドを脳内に叩き込んでください。
- Application: Visioそのもの。全ての始まり。
- Document: 開いているVSDXファイル。
- Page: ドキュメントの中のキャンバス。
- Shape: 図形。ページを構成する最小単位。
「どこを操作しているのか」を常に意識することが、エラー回避の第一歩です。今回は、`Document`オブジェクトが持つ強力なメソッド、`SaveAsEx`を使いこなします。
—
2. なぜ「SaveAsEx」なのか？
単純な `SaveAs` ではなく、なぜ `SaveAsEx` なのか。それは、出力フォーマットごとの細かい制御（解像度、背景色、レイヤー設定など）が可能だからです。
PDFなら解像度（DPI）、PNGならアンチエイリアスの強度。これらをコードで指定できるか否かが、自動化のクオリティを決定づけます。
—
3. 実践コード：全ページ一括高解像度エクスポート
このコードは、現在のドキュメントの各ページを、指定のフォルダに「ページ名.png」として出力します。
‘ VisioドキュメントをPNGとして高解像度エクスポートするプロシージャ
Public Sub ExportPagesToPNG()
Dim doc As Visio.Document
Dim pg As Visio.Page
Dim exportPath As String
Dim i As Integer
‘ 出力先フォルダ（環境に合わせて変更してください）
exportPath = “C:\Output\VisioExport\”
Set doc = ActiveDocument
‘ エラーハンドリング：フォルダがない場合などの制御
On Error Resume Next
MkDir exportPath
On Error GoTo 0
‘ 全ページをループ処理
For Each pg In doc.Pages
‘ SaveAsExの第2引数にフィルタを指定
‘ PNGの場合は “PNG” を使用
‘ 解像度等のオプションはFilterSettingsで制御可能
Dim fullPath As String
fullPath = exportPath & pg.Name & “.png”
‘ ページをアクティブにしてエクスポートを実行
pg.Export fullPath
Next pg
MsgBox “エクスポート完了！”, vbInformation
End Sub
【プロのワンポイント：解像度の制御】
上記は簡易版ですが、高解像度PDFを出力したい場合は、`Application.Settings` を調整するか、`Export` メソッドの代わりに `SaveAsEx` でフィルターオプション（`visFilterPDF`など）を詳細に指定します。
特にPDFの場合は、`visFilterPDF` を指定した後、レジストリや設定オブジェクトを介して解像度を制御するのが「Visio流」の定石です。
—
4. 陥りやすい「落とし穴」と解決策
初心者が必ず踏む地雷が3つあります。
1. ページ名に禁止文字が入っている:
Visioのページ名に「/」や「:」が含まれていると、ファイル保存時にOS側でエラーになります。`Replace(pg.Name, “/”, “_”)` のように、ファイル名として安全な文字列へ変換する処理を必ず入れましょう。
2. イベントのオーバーヘッド:
大量のページをループする際、`ScreenUpdating = False` を設定するのを忘れないでください。描画更新を止めるだけで、処理速度は数倍変わります。
3. オブジェクト参照の解放:
処理が終わったら `Set pg = Nothing` を明示的に呼び出す癖をつけてください。メモリリークを防ぐことは、プロフェッショナルの嗜みです。
—
まとめ：ここをクリアすれば、あなたはもう中級者
Visio VBAは、一度構造を理解してしまえば、手作業で数時間かかる修正を数秒で終わらせる最強の武器になります。
- Application → Document → Page の順で特定する。
- SaveAsEx でフォーマットを厳密に指定する。
- 例外処理とクリーンアップを徹底する。
この3つを守るだけで、あなたのコードは劇的に洗練されます。まずは上記のコードをコピペして、自分のPCで動かしてみてください。動いた時の感動こそが、エンジニアとしての最初のステップです。
何か詰まったら、いつでも聞いてください。Visioの深淵の先で、またお会いしましょう。
