Visio VBAの深淵：レイヤーとメタデータを守り抜く「堅牢な別名保存」の実装術
Visio VBAを触り始めたエンジニアが必ず一度は絶望するポイントがある。それは「別名保存（SaveAsEx）を繰り返すと、なぜかレイヤー情報が消える、あるいはファイルが肥大化し、最後には破損する」という現象だ。
多くのチュートリアルは、単に `ActiveDocument.SaveAs` を叩いて終わりにする。だが、業務自動化の現場においてそれは「時限爆弾」を埋め込む行為に等しい。本稿では、レイヤー設定やカスタムメタデータを完全に保持し、プロダクション環境で耐えうる「安全な別名保存」の極意を伝授する。
1. なぜ「単純なSaveAs」ではいけないのか
`SaveAs` メソッドは、Visioの内部処理において「現在のドキュメント状態をOSのファイルシステムにフラッシュする」という高レベルな抽象化を行っている。しかし、レイヤー（`Layer` オブジェクト）やカスタムプロパティ（`Shape.Cell` に紐づくメタデータ）は、Visioのドキュメント構造において極めて繊細な位置に存在する。
特に注意すべきは以下の2点だ。
- レイヤーの参照整合性: 特定の図形がどのレイヤーに所属しているかは、`LayerMember` というプロパティ経由で管理されている。不適切な保存モードや、内部的にメモリが競合した状態での保存は、このリンクを断ち切る可能性がある。
- XML構造（VSDX）の不整合: VSDXは実質的にZIP圧縮されたXMLの集合体だ。保存処理が不完全なままプロセスが終了すると、XMLのパーツが欠損した「ゾンビファイル」が生成される。
2. 【設計の鉄則】SaveAsEx を正しく扱う
レイヤー構造を維持し、かつPDF出力までをフローに組み込む場合、必ず `SaveAsEx` メソッドを選択し、フラグを明示的に指定する必要がある。
実装コード：堅牢な別名保存・PDF出力モジュール
以下のコードは、エラーハンドリングを徹底し、ドキュメントの整合性を保ちながら保存を行うためのテンプレートだ。
Option Explicit
‘ 保存先パスとレイヤー設定を保持したまま保存するプロシージャ
Public Sub SecureSaveAndExport(ByVal targetPath As String, ByVal pdfPath As String)
Dim doc As Visio.Document
Set doc = ActiveDocument
On Error GoTo ErrorHandler
‘ 1. 保存オプションの定数設定
‘ visSaveAsWS = 0 (デフォルト), visSaveAsList = 1
‘ visSaveAsOpenRO = 2 (読み取り専用) 等のフラグを組み合わせる
‘ 堅牢性を高めるため、visSaveAsForce = 1 を推奨
Const visSaveAsForce = 1
‘ 2. 別名保存を実行（VSDXとして保存）
‘ レイヤー情報は内部オブジェクトとして維持される
doc.SaveAsEx targetPath, visSaveAsForce
‘ 3. PDFエクスポート
‘ FixedFormatExport はVSDXの内部レイヤー構造をPDFのレイヤー（オプション）に変換可能
doc.ExportAsFixedFormat visFixedFormatPDF, pdfPath, _
visDocFrom ‘ 全ページ出力
Debug.Print “Success: File saved and exported to ” & targetPath
Exit Sub
ErrorHandler:
MsgBox “保存処理中に致命的なエラーが発生しました: ” & Err.Description, vbCritical
‘ ここでログ出力やデータベースへのロールバック処理を記述する
End Sub
3. 実務で「レイヤー」を守るための注意点
レイヤーの「表示/非表示」状態をどう扱うか
多くのエンジニアが見落とすが、`SaveAsEx` を実行した際、現在のドキュメントの「可視性（`Layer.Visible`）」がそのままファイルに書き込まれる。もし自動化の過程でレイヤーの表示状態を操作しているなら、必ず保存前に「保存時のデフォルト状態」へリセットする処理を挟むべきだ。
‘ 保存前に特定のレイヤー状態を保証する
Dim lyr As Visio.Layer
For Each lyr In ActivePage.Layers
‘ 印刷用レイヤーを強制的に表示にする等の制御
If lyr.Name = “PrintLayer” Then lyr.Visible = True
Next
データベース連携時の落とし穴
Visio図面と外部DB（ExcelやSQL Server）を連携させている場合、保存パスが変わるとドキュメント内の「データコネクタ」の相対パスが破損することがある。別名保存を行う際は、保存後に `doc.DataRecordsets.Item(1).Refresh` を実行し、データソースとのリンクが生きているかを必ずチェックするフェーズを設けること。
4. アーキテクトからの助言
最後に、保守性を高めるためのアドバイスを一つ。
「ファイル操作をメインのロジックに混ぜるな」。
ファイルパスの生成、保存モードの選定、PDFエクスポートのオプション設定は、すべて独立したヘルパー関数として切り出すべきだ。そうすることで、将来的にVisioのバージョンアップや、保存形式が「VSDXからサーバーサイドの変換APIへ移行する」といった変更があった際、修正箇所を最小限に抑えることができる。
Visio VBAは古い言語に見えて、その実、オブジェクトの階層構造を理解すれば極めて強力な武器になる。諸君が書くその一行が、明日誰かの業務時間を1時間減らすことを期待している。健闘を祈る。
