Visio VBAの深淵：レイヤーとメタデータを完全保存する「別名保存」の極意
Visioの自動化において、`SaveAs`というメソッドを安易に使っていないだろうか。
もし君が、レイヤーの可視性や保護状態、あるいは埋め込まれたメタデータが「なぜか崩れる」という怪奇現象に悩まされているなら、それはVisioのオブジェクトモデルが持つ「保存時の暗黙的変換」を制御できていない証拠だ。
今日は、大規模な図面テンプレートを運用し、レイヤー構造を維持したまま安全に別名保存するための、アーキテクト視点の実装論を伝授する。
—
1. なぜ「SaveAs」では不十分なのか
Visioにおいて単に `Document.SaveAs` を叩くことは、いわば「ブラックボックスに運命を委ねる行為」だ。
特に `vdx` から `vsdx` への移行期や、異なるバージョンが混在する社内環境では、レイヤー設定（特に `Lock` や `Color` 属性）は保存時にVisioの最適化エンジンによって再解釈されることがある。これを防ぐためには、`SaveAsEx` メソッドを用い、適切な `VisSaveAsFlags` を明示的に指定する必要がある。
核心となるフラグ制御
- visSaveAsWS: ワークスペース情報を保持する。
- visSaveAsList: リストメンバーシップの整合性を維持する。
- visSaveAsNoAutoRecover: 自動回復情報の競合を避ける（自動化ツールでは必須）。
—
2. 実装コード：堅牢な別名保存のアーキテクチャ
以下に、メモリリークを許さず、メタデータを保護する実装パターンを示す。ポイントは「一度の保存で全てを完結させない」ことだ。
‘ @description レイヤー設定とメタデータを保持した安全な別名保存
‘ @param targetDoc 保存対象のDocumentオブジェクト
‘ @param newFilePath 保存先の完全パス
Public Sub SecureSaveAs(ByRef targetDoc As Visio.Document, ByVal newFilePath As String)
On Error GoTo ErrHandler
‘ メモリ最適化: オブジェクトの有効性を明示的にチェック
If targetDoc Is Nothing Then Err.Raise 91, , “Document object is null.”
‘ SaveAsExのフラグ設定
‘ visSaveAsNoAutoRecover(16) | visSaveAsWS(2) を推奨
‘ 余計なメタデータを付加させず、現在のレイヤー状態をバイナリレベルでロックする
Dim saveFlags As Long
saveFlags = Visio.VisSaveAsFlags.visSaveAsNoAutoRecover + Visio.VisSaveAsFlags.visSaveAsWS
‘ 別名保存実行
targetDoc.SaveAsEx newFilePath, saveFlags
Exit Sub
ErrHandler:
‘ ログ出力および例外処理
Debug.Print “Error ” & Err.Number & “: ” & Err.Description
Err.Clear
End Sub
—
3. レイヤー設定を「汚さない」ための運用上の鉄則
コードが正しくても、Visioの仕様によりレイヤーが破壊されるケースがある。シニアエンジニアとして、次の3点を必ず遵守せよ。
A. レイヤーロックの強制チェック
レイヤーの `Lock` プロパティが設定されている場合、保存時にVisioが「互換性」を優先して強制的にロックを解除、あるいは書き換えるケースがある。保存前には必ず `Layer.Lock = True` が意図通りかを確認するループを回すことが、大規模図面では定石だ。
B. オブジェクトの明示的解放（メモリ管理の極意）
VBAのガベージコレクションは信用するな。特に `Visio.Application` を他のプロセスから呼び出す場合、保存直後に `Set doc = Nothing` を行うだけでは不十分な場合がある。`DoEvents` を挟み、Visioの保存完了シグナルがOSに伝播するまで待機する実装が必要だ。
C. Windows APIによるファイルロックの回避
ネットワークドライブ上で保存を行う場合、Visioの保存プロセスが完了する前にファイルシステムがロックを掴んでしまうことがある。これを避けるため、保存後に `CreateFile` API等でファイルハンドルが完全にクローズされたことを確認するラッパー関数を導入することを推奨する。
—
4. 最後に：伝説のエンジニアとして
自動化の現場で最も恐ろしいのは、「なぜか動く」という状態だ。
`SaveAsEx` の引数を理解し、Visioが内部でどのエンジンを使ってファイルを構築しているのかを意識すること。それが君の書くコードを、一過性のスクリプトから、堅牢なエンタープライズ・システムへと昇華させる。
Visioという、一見レガシーに見えるが実は非常に奥深いオブジェクトモデルを掌握せよ。次にコードを書くとき、君の背後にはシステム全体の整合性が守られているはずだ。
以上だ。健闘を祈る。
