Visioの肥大化を殺す：VSDX保存時の「プレビュー画像」をコードで無効化する極限の最適化
業務自動化の現場において、Visioファイルが「数メガバイトから数十メガバイトへ」と意味もなく肥大化する現象に頭を抱えたことはないだろうか。その元凶の多くは、保存時に自動生成される「プレビュー用メタファイル（サムネイル）」だ。
特に、サーバーサイドでの自動生成や、大量の図面をバッチ処理するシステムにおいて、この「お節介な機能」は致命的なリソース浪費を招く。本稿では、VBAを用いてこの無駄を削ぎ落とし、ファイルサイズを最小化するためのアーキテクチャを伝授する。
—
1. なぜ「プレビュー画像」がボトルネックになるのか
VSDXファイルは実質的にXMLとバイナリを格納したZIPアーカイブである。`SaveAs`メソッドをデフォルトで叩くと、Visioは「ユーザーがWindowsエクスプローラー上で中身を確認するため」のプレビュー用イメージを生成し、アーカイブ内に埋め込む。
これを明示的にオフにするには、`Document.SaveAsEx`メソッドのフラグ操作が必須となる。単純な`SaveAs`では、この制御は不可能だ。
—
2. 実装の要諦：SaveAsExによる制御
Visioのオブジェクトモデルにおいて、保存挙動を細かく制御するには `visSaveAsWS`（ワークスペースを保存しない）や `visSaveAsNoPreview` を組み合わせる必要がある。
以下のコードは、既存の図面を「プレビューなし」で上書き保存、あるいは別名保存するためのベストプラクティスである。
”’
”’
”’ 対象のVisio Documentオブジェクト
”’ 保存先フルパス
Public Sub SaveOptimized(ByRef doc As Visio.Document, ByVal savePath As String)
On Error GoTo ErrorHandler
‘ 定数定義:
‘ visSaveAsNoPreview = 16 (プレビュー画像を作成しない)
‘ visSaveAsWS = 4 (ワークスペースを保存しない – 画面状態を保持しないことで容量減)
Const visSaveAsNoPreview As Long = 16
Const visSaveAsWS As Long = 4
‘ フラグをビット演算で結合
Dim flags As Long
flags = visSaveAsNoPreview Or visSaveAsWS
‘ SaveAsExを使用してオプションを指定
‘ 既に同名ファイルが存在する場合のハンドリングは適宜追加すること
doc.SaveAsEx savePath, flags
Exit Sub
ErrorHandler:
Debug.Print “Save Error: ” & Err.Description
‘ ここにログ出力やリトライ処理のアーキテクチャを組み込む
End Sub
—
3. シニアエンジニアが意識すべき「メモリの汚染」と「解放」
VBAはガベージコレクションが脆弱な言語だ。大規模な帳票出力システムを構築する場合、`Document`オブジェクトや`Page`オブジェクトを無計画に開くと、メモリリークが蓄積し、やがてVisioインスタンスが沈黙する。
確実なリソース解放の作法
Public Sub ProcessLargeVolume()
Dim app As Visio.Application
Dim doc As Visio.Document
Set app = New Visio.Application
Set doc = app.Documents.Open(“C:\LargeTemplate.vsdx”)
‘ — ここで加工処理 —
‘ 保存
SaveOptimized doc, “C:\Output.vsdx”
‘ 【重要】明示的な破棄とオブジェクトの解放
doc.Close
Set doc = Nothing
app.Quit
Set app = Nothing
End Sub
なぜ`Set doc = Nothing`まで書くのか？
VBAのスコープを抜ければ参照は消えるが、COM経由のVisioインスタンスはプロセスが裏で生き残るケースが多い。特に`Quit`メソッドを呼ぶ前に`Set = Nothing`を徹底することで、メモリ空間上のゴミを確実に掃き出す必要がある。
—
4. 極限の知見：システム間連携とPDF出力の罠
もしあなたが、VSDXをPDFへ変換するプロセスを自動化しているなら、以下の事実を知っておくべきだ。
- PDF出力時の最適化: `Export`メソッドでPDF化する際、Visioの`Application.Settings`を操作して「非表示のレイヤー」や「カスタムプロパティ」の出力を抑制できる。
- API連携の最適化: Windows APIの `FindWindow` や `PostMessage` を駆使し、Visioの保存ダイアログが意図せずモーダルで表示された場合に、強制的に「キャンセル」や「デフォルト値選択」を送り込むハンドラを用意しておくのが、堅牢なシステムエンジニアの嗜みである。
—
結論：技術は「何をするか」より「何を省くか」にある
Visioのファイルサイズ問題は、単なる設定変更ではなく、アーキテクチャの設計思想に帰結する。
「不要なメタデータを生成させない」「オブジェクトの生存期間を厳密に管理する」「エラーハンドリングを怠らない」。この3点を守るだけで、あなたのシステムは安定感と高速性を手に入れる。
コードをコピペして終わるな。その背後にある「なぜそうなるのか」というCOMオブジェクトの挙動を想像せよ。それが伝説的なエンジニアへの唯一の道だ。
