Visio自動化の極意：ダイアログを封殺し、堅牢なファイル保存を実装する
現場で「とりあえず動くコード」を書くことは誰にでもできる。しかし、プロフェッショナルが書くべきは、「エラーを未然に防ぎ、保守コストをゼロに近づけるコード」だ。
今回は、Visio VBAにおいて最も頻出する「保存処理」を題材に、なぜ安易な実装が罠を生むのか、そしてどう設計すべきかを解説する。
1. なぜ「SaveAs」をそのまま書いてはいけないのか
多くの初心者が犯す最大のミスは、`ActiveDocument.SaveAs “C:\path\file.vsdx”` と短絡的に書くことだ。これでは、以下のリスクを完全に放置していることになる。
- 上書き確認ダイアログの暴発: 既存ファイルがある場合、Visioは無慈悲にダイアログを出し、自動化プロセスを停止させる。
- パスの不整合: 指定したフォルダが存在しない場合、Visioは例外を投げてクラッシュする。
- 競合とロック: 同時に別のプロセスがファイルを掴んでいる際のエラーハンドリングが皆無。
真の自動化エンジニアは、「環境の不備をコード側で先回りして潰す」のが仕事だ。
2. 堅牢な保存処理の実装
以下のコードは、フォルダの存在確認、ファイル名へのタイムスタンプ付与、そして上書き確認の抑制を網羅した、プロダクション（本番環境）品質のテンプレートだ。
Option Explicit
”’
”’
Public Sub SaveDocumentSafely()
Dim targetFolder As String
Dim fileName As String
Dim fullPath As String
‘ 1. 設定：保存先フォルダ（末尾は必ずパス区切り文字で終わらせる）
targetFolder = “C:\Reports\VisioExports\”
‘ 2. フォルダの存在チェック（なければ作成する防御的実装）
If Dir(targetFolder, vbDirectory) = “” Then
MkDir targetFolder
End If
‘ 3. ファイル名生成：ISO 8601形式（YYYYMMDD_HHMMSS）でソート性を確保
fileName = “ProjectReport_” & Format(Now, “yyyymmdd_hhnnss”) & “.vsdx”
fullPath = targetFolder & fileName
‘ 4. エラーハンドリングを付加して実行
On Error GoTo ErrorHandler
‘ Application.AlertResponseを設定してダイアログを完全に封殺する
‘ IDOK = 1 (ダイアログが出た場合、常にOKを選択させる)
Application.AlertResponse = 1
ThisDocument.SaveAsEx fullPath, visSaveAsWS
‘ 処理後はAlertResponseを0に戻すのが礼儀（副作用を防ぐため）
Application.AlertResponse = 0
Debug.Print “成功: ” & fullPath
Exit Sub
ErrorHandler:
Application.AlertResponse = 0 ‘ 解除を忘れない
MsgBox “保存失敗: ” & Err.Description, vbCritical
End Sub
3. このコードが「プロ仕様」である理由
AlertResponseの活用
`Application.AlertResponse` は、Visioのダイアログをプログラム的に制御するための最強のプロパティだ。これを設定することで、ファイルの上書き警告や保存時の確認ダイアログを強制的に通過させる。多くのエンジニアがこれを無視して「なぜか止まる」と悩んでいる。
SaveAsEx と visSaveAsWS
単なる `SaveAs` ではなく `SaveAsEx` を使用している点に注目してほしい。`visSaveAsWS`（ワークスペースを維持して保存）フラグを指定することで、将来的なドキュメントの整合性や、作業状態の保持において優位性を確保している。
タイムスタンプの重要性
ファイル名に `Format(Now, “yyyymmdd_hhnnss”)` を含めるのは単なる習慣ではない。これは「履歴のトレーサビリティ（追跡可能性）」を確保するための必須事項だ。業務ツールにおいて、どの時点のファイルかを特定できないことは、最大の悪である。
4. さらなる高みへ：運用上の注意点
- 権限の壁: サーバー上の共有フォルダに保存する場合、Visioを実行しているユーザーに書き込み権限があるかを事前に `CreateObject(“Scripting.FileSystemObject”)` を使って検証するロジックを追加せよ。
- パスの最大長: Windowsのパス長制限（260文字）を考慮せよ。深い階層に保存する場合、パスの結合後に文字列長をチェックするガード節を入れるのが玄人だ。
- PDF連携: もしPDF出力が必要なら、`SaveAsEx` の後に `ThisDocument.ExportAsFixedFormat` を呼び出せばいい。ロジックを共通化し、保存先パスを引数で渡す設計にしておけば、保守性は飛躍的に向上する。
最後に：コードは「対話」である
自動化コードは、PCと対話するものではない。「運用する人間」と「将来の自分」との対話だ。
このコードをコピー＆ペーストするだけでなく、なぜこの実装がエラーを回避できるのか、その「設計思想」を読み取ってほしい。
現場の課題を解決するのは、機能の多さではなく、「壊れないコード」の積み重ねだ。健闘を祈る。
