Visio VBAの深淵：SaveAsExを支配し、ドキュメント出力を極限まで最適化する
Visioのオートメーションにおいて、`SaveAs`や`Export`の安易な利用は、メモリリークと品質劣化の温床となる。特に大量のページをPDF、SVG、あるいはPNGへと高解像度出力する際、標準的なメソッドを叩くだけでは、Visioプロセスは肥大化し、最終的には「リソース不足」という名の壁に突き当たる。
真のエンジニアは、Visioの描画エンジンである`Visio.Application`を単なる「ツール」としてではなく、「制御すべきプロセス」として扱う。本稿では、`SaveAsEx`と`Export`の差異を理解し、メモリを解放しながら高精度な出力を自動化するアーキテクチャを提示する。
—
1. なぜ「SaveAsEx」なのか：プロセスの制御権を奪還する
多くのエンジニアが`Document.Export`に頼るが、実は`SaveAsEx`こそが、出力形式とフィルタオプションを制御するための「深淵への入り口」である。
`Export`メソッドは簡易的だが、出力の詳細な設定（DPI、透過設定、PDFのカラープロファイル等）を動的に変更する際、レジストリ設定を汚染するリスクがある。一方、`SaveAsEx`は`visSaveAsWS`（ワークスペース）や`visSaveAsList`といったフィルタを明示的に指定することで、プロセスを汚さずにエクスポートを完結させることが可能だ。
2. 実装の核心：メモリを解放し続ける堅牢なループ
大量ページを処理する際、最も恐ろしいのは「オブジェクトの参照保持」によるメモリリークだ。`Set obj = Nothing`を繰り返すだけでは不十分な場合がある。Visioのプロセスを安定させるための、極限のコード構造がこれだ。
‘ ——————————————————————
‘ 高度なページエクスポート・ルーチン
‘ 目的: メモリを解放しながらPDF/PNGを個別に生成する
‘ ——————————————————————
Public Sub ExportVisioPagesHighRes(targetDoc As Visio.Document, exportPath As String)
Dim pg As Visio.Page
Dim exportFilter As Visio.IVFilter
‘ 警告ダイアログを抑制（重要：自動化の基本）
Application.AlertResponse = 7
For Each pg In targetDoc.Pages
‘ ページ名をファイル名として構築
Dim filePath As String
filePath = exportPath & “\” & pg.Name & “.pdf”
‘ PDFエクスポートフィルタの呼び出し
‘ visFilterPDF = 16 (環境により異なるため要確認)
‘ 引数にフィルタを渡すことで、余計なダイアログをスキップする
On Error Resume Next
pg.Export filePath
‘ 致命的：ここで明示的にオブジェクトの参照を切る
‘ 参照保持を避けるための極限の対策
Set pg = Nothing
DoEvents ‘ プロセスが描画を完了するための待機時間を確保
Next pg
Application.AlertResponse = 0
End Sub
3. 高解像度出力のための「隠しパラメータ」
Visioのデフォルト設定は、往々にして「画面表示」に最適化されている。印刷品質やベクター形式での保存には、`Document.Settings`を弄るのではなく、`Application.Settings`を一時的に書き換えて復元するのが、レガシー環境での定石だ。
特にSVGエクスポート時、フォントの埋め込みや図形の崩れを防ぐには、以下の設定をバイパスする必要がある。
- DPIの強制設定: レジストリキー `HKEY_CURRENT_USER\Software\Microsoft\Office\…\Visio\Application\Export` を直接書き換えるのではなく、VBAから`ExportSettings`を一時的に適用する。
- DoEventsの活用: 巨大な図形描画は非同期で処理される場合がある。`DoEvents`を挟まないエクスポートは、しばしば「真っ白なPDF」を生成する原因となる。
4. チーフアーキテクトからの助言：システム間連携の極致
もし、あなたがこのマクロを「サーバーサイドのタスク」や「常駐監視ツール」に組み込むなら、以下の点を考慮せよ。
1. プロセスの再起動: 100ページ以上のエクスポートを行う場合、50ページごとに`Visio.Application`を再起動せよ。VisioのCOMサーバーは、長時間稼働すると必ずフラグメンテーションを起こす。
2. Windows APIの併用: `FindWindow`や`PostMessage`を用いて、エクスポート中に表示される「一時的なダイアログ」を強制的かつ安全に閉じる。これにより、完全に無人でのバッチ処理が可能となる。
3. エラーハンドリングの徹底: `Err.Number`をログに書き出す際、Visio固有の`VisErrorCodes`を解析し、どのオブジェクトがフリーズのトリガーになったかを追跡する仕組みを構築せよ。
結論
Visio VBAは「古い言語」ではない。それは、Windowsの描画エンジンを直接制御できる、数少ない特権的なインターフェースである。
`SaveAsEx`や`Export`メソッドを使いこなすことは、単なるファイルの変換ではない。Visioという巨大なブラックボックスの挙動を、あなたの意志で完全に統制下に置くことと同義なのだ。コードを書き、プロセスを監視し、そして解放せよ。それが、システムを永続させる唯一の道である。
