Visio図面を極限まで軽量化せよ：プレビュー画像生成をコードで完全無力化する技術
VisioのVSDXファイルをプログラムから大量生成・更新するシステムにおいて、最も見落とされがちであり、かつ致命的なボトルネックとなるのが「保存時のストレージI/Oとファイル肥大化」である。
特に、社内ニッチなワークフローや帳票自動生成システム、あるいは自動CAD連携パイプラインにおいて、図面を保存するたびに内部のZIPコンテナへ勝手に書き込まれるサムネイル（プレビュー画像）は、百害あって一利なしだ。この暗黙のプレビュー生成は、ファイルサイズを数メガバイト単位で水増しし、ファイルサーバーのネットワーク帯域とSSDの寿命を無駄に削り取る。
今回は、`Document` オブジェクトの深部をハックし、この不要なプレビュー生成をコードレベルで完全に無効化する極限の知見を授ける。
—
1. なぜプレビュー画像がシステムの敵となるのか
VSDXファイルの実体は、Open Packaging Conventions（OPC）規格に基づいたZIPアーカイブである。つまり、実質的にはXMLとバイナリの集合体だ。
デフォルトの状態では、Visioはファイルを保存する際（`Document.Save` や `Document.SaveAs`）、ユーザーインターフェース用のプレビュー画像（通常は `docProps/thumbnail.jpeg` など）を動的にレンダリングし、アーカイブ内に強制的に封入する。
この仕様がシステム連携において致命傷になる理由は以下の通りである。
1. 無駄なCPUサイクルの消費: 複雑なベクター形状を持つ図面であるほど、ラスタライズ処理（プレビュー生成）に多大なCPUリソースが割かれる。
2. ストレージとネットワークの圧迫: 1ファイルあたり数百KB〜数MBのゴミデータが蓄積され、GitやSharePoint、ファイルサーバーでの差分管理（Delta）の効率が劇的に低下する。
3. セキュリティとメタデータ漏洩リスク: 意図しない図面の視覚的スナップショットがファイル内に残存するため、厳格な情報統制が求められる環境ではリスクファクターとなり得る。
シニアエンジニアであれば、GUIの「プレビュー画像を保存する」のチェックボックスに頼るなどという不確実なアプローチを取ってはならない。すべてはコードで制御されなければ再現性はない。
—
2. コア・メカニズム：`Document.Preview` プロパティの掌握
Visio VBAにおいて、この挙動のスイッチを握っているのが `Document` オブジェクトの `Preview` プロパティ（あるいは類似の保存オプションを司る内部フラグ群）である。
しかし、単にプロパティをイジるだけでは不十分だ。オブジェクトのライフサイクル、COMの解放、そしてVisioのサイレント実行（`ScreenUpdating` や `Alerts` の制御）と組み合わせることで初めて、本番稼働に耐えうる堅牢なコードが完成する。
以下の実用コードは、プレビュー生成を無効化した上で、極限まで最適化された状態でVSDXを保存するプロシージャである。
Option Explicit
‘ ==============================================================================
‘ 処理名: SaveVisioWithoutPreview
‘ 概要 : プレビュー画像の生成を完全に無効化し、ファイルを高速・軽量に保存する
‘ 著者 : チーフアーキテクト
‘ ==============================================================================
Public Sub SaveVisioWithoutPreview(ByVal targetDoc As Visio.Document, ByVal filePath As String)
Dim originalAlerts As Boolean
Dim originalScreen As Boolean
‘ ————————————————————————–
‘ 1. 環境の爆撃を防ぐためのセーフティガード
‘ ————————————————————————–
originalAlerts = Application.AlertsEnabled
originalScreen = Application.ScreenUpdating
Application.AlertsEnabled = False
Application.ScreenUpdating = False
On Error GoTo ErrorHandler
‘ ————————————————————————–
‘ 2. ドキュメントレベルのプレビュー生成を無効化
‘ ————————————————————————–
‘ Visioの内部ドキュメントプロパティに対し、保存時のサムネイル生成を抑止する
‘ 注: バージョンによって振る舞いが異なる場合があるため、エラーハンドリングを包含
targetDoc.Preview = visDocPreviewNone
‘ ————————————————————————–
‘ 3. 高速化されたバイナリ保存の実行
‘ ————————————————————————–
‘ 既に存在するファイルを上書き保存する場合は SaveAs2 を使用し、
‘ ファイルフォーマットの整合性を強制する
If Dir(filePath) <> “” Then
‘ 既存ファイルがある場合は一度削除するか、上書きフラグを考慮
Kill filePath
End If
‘ VSDX形式（visSaveAsXMLDrawing または標準の VSDX 拡張子に対応する定数）で保存
targetDoc.SaveAsEx filePath, visSaveAsDefault
Debug.Print “[SUCCESS] プレビュー無効化保存完了: ” & filePath
CleanUp:
‘ ————————————————————————–
‘ 4. 環境の復元とガベージコレクション
‘ ————————————————————————–
Application.AlertsEnabled = originalAlerts
Application.ScreenUpdating = originalScreen
Exit Sub
ErrorHandler:
‘ 致命的なエラーのキャッチとログ出力
MsgBox “Visio保存時に致命的なエラーが発生しました: ” & Err.Description, vbCritical, “System Error”
Resume CleanUp
End Sub
—
3. 実践：バッチ処理におけるメモリ最適化とオブジェクトのライフサイクル
バックエンドで大量の図面ファイルを処理するシステム（例：数百枚の図面テンプレートからPDFやVSDXを一括生成するバッチ）では、VBAのガベージコレクションを信用してはならない。
COMオブジェクト（`Visio.Application`, `Visio.Document`, `Visio.Page` 等）は、明示的に `Nothing` を代入して参照カウントを即座にゼロに落とし込まなければ、メモリリークを引き起こし、やがてVisioプロセス自体がゾンビ化する。
以下に、プレビュー無効化を組み込んだバッチ処理のアーキテクチャを示す。
Public Sub BatchProcessVisioFiles()
Dim vsoApp As Visio.Application
Dim vsoDoc As Visio.Document
Dim targetPath As String
Dim savePath As String
targetPath = “C:\Data\Templates\Master.vsdx”
savePath = “C:\Data\Output\Optimized.vsdx”
‘ Visioインスタンスの独立起動（ノンインタラクティブ）
Set vsoApp = New Visio.Application
vsoApp.Visible = False
vsoApp.ScreenUpdating = False
vsoApp.AlertsEnabled = False
On Error GoTo BatchError
‘ ドキュメントのオープン
Set vsoDoc = vsoApp.Documents.Open(targetPath)
‘ — ここに図面操作ロジックが入る —
‘ (例: シェイプの動的生成、データLinked等)
‘ プレビュー無効化＆保存の呼び出し
SaveVisioWithoutPreview vsoDoc, savePath
‘ ドキュメントの明示的クローズ
vsoDoc.Close
Set vsoDoc = Nothing
vsoApp.Quit
Set vsoApp = Nothing
Exit Sub
BatchError:
MsgBox “バッチ処理中に異常終了しました: ” & Err.Description, vbCritical
‘ 異常系でも確実にメモリを解放する防衛的プログラミング
If Not vsoDoc Is Nothing Then
vsoDoc.Close
Set vsoDoc = Nothing
End If
If Not vsoApp Is Nothing Then
vsoApp.Quit
Set vsoApp = Nothing
End If
End Sub
—
4. チーフアーキテクトからの提言
プレビュー画像の無効化は、単なる「ファイルサイズの節約術」にとどまらない。これは、「システム連携における無駄なオーバーヘッドを極限まで削ぎ落とす」という、プロフェッショナルなエンジニアリング思想の現れである。
GUIの利便性に毒された設計を見直し、コードの隅々まで意図を反映させること。それこそが、何年経過しても破綻しない、強靭なレガシー・オートメーションシステムを構築唯一の道である。
明日からの開発において、`Document.Save` をそのまま記述している箇所があれば、直ちにこのプレビュー制御ロジックを組み込むことを強く推奨する。ストレージとCPUは、あなたのもっと重要な処理のためにあるのだから。
