Visioを「ただの作図ツール」で終わらせるな：コマンドライン引数による完全自動化アーキテクチャ
Visio VBAを単なる「図形配置の自動化」だと思っているなら、その認識は今日で捨ててくれ。真に強力な業務自動化とは、「人間がGUIを操作するフェーズ」と「システムがバックグラウンドで完結させるフェーズ」を、単一のコードベースでシームレスに切り替えることにある。
タスクスケジューラからVisioを叩き、深夜に図面を更新してPDF化し、DBへステータスを書き込む。この一連のフローを、手動操作と共存させながら堅牢に実装する。それができる者だけが、真の「Visio自動化アーキテクト」だ。
1. なぜ「ハードコーディング」が現場を殺すのか
初心者は往々にして、自動化の条件をコード内にフラグとして埋め込む（例: `Const IS_BATCH = True`）。これは最悪だ。環境が変わるたび、あるいは運用者が手動でテストしたい瞬間に、いちいちコードを書き換える必要がある。
真のプロフェッショナルは、「外部からの命令（コマンドライン引数）」を唯一のソース・オブ・トゥルース（信頼できる唯一の情報源）とする。 Visio起動時に `Application.CommandLine` を解析し、起動の瞬間に挙動を決定させる。これが、保守性と柔軟性を両立させる唯一の解だ。
2. 実装の要：CommandLine解析モジュール
まずは、Visio起動時に読み込まれる `Document_DocumentOpened` イベントでコマンドラインを解析し、モードをスイッチするモジュールを設計する。
‘ ThisDocument モジュールに記述
Private Sub Document_DocumentOpened(ByVal doc As IVDocument)
Dim cmd As String
cmd = Application.CommandLine
‘ コマンドライン引数を解析し、実行モードを判定
If InStr(1, cmd, “/automation”, vbTextCompare) > 0 Then
‘ バッチモード：GUIを非表示にし、ログを記録して終了する
RunBatchProcess
Else
‘ 通常モード：初期化のみ行い、ユーザー操作を許可
InitializeGUI
End If
End Sub
Private Sub RunBatchProcess()
On Error GoTo ErrorHandler
‘ 画面描画の停止（パフォーマンス向上）
Application.ScreenUpdating = False
‘ ここにDB連携やファイル更新のロジックを記述
Debug.Print “Batch mode started: ” & Now
‘ 処理終了後、Visioを保存して閉じる（保存なしで閉じる場合は False）
‘ Application.Quit
Exit Sub
ErrorHandler:
‘ ログファイルへの書き出し処理をここに実装すること
MsgBox “Batch Error: ” & Err.Description
Application.Quit
End Sub
3. 現場で「死なない」ための3つの鉄則
① 異常系を甘く見るな（エラーハンドリングの徹底）
バッチ処理は、画面が見えない状況で走る。エラーが発生した際、ダイアログが表示されて処理が止まると、永遠にプロセスが残り続け、タスクスケジューラがパンクする。`On Error Resume Next` で誤魔化さず、必ずログファイルにエラーを吐き出し、`Application.Quit` でプロセスを確実に終了させる設計にせよ。
② Visioのライフサイクルを意識せよ
`Application.ScreenUpdating = False` は必須だが、処理の最後で必ず `True` に戻すこと。これを怠ると、次回の起動時にVisioが「描画されない」という致命的なバグを引き起こす。`Finally` 句の代わりとなるエラーハンドラでのリセット処理は必須だ。
③ 外部DBとの連携は「接続の短縮」を狙え
Visioの図面ファイル（.vsdx）とDBを直接結びつけると、ファイルが肥大化し破損リスクが高まる。
- 推奨: 一時的なデータはローカルのJSONやCSVで保持し、バッチ処理内でDBへ一括コミット（トランザクション）せよ。
- DB接続: `ADODB` を使用する場合、接続文字列の誤りは致命的だ。必ず `ConnectionTimeout` を設定し、無限ループを回避せよ。
4. システム運用へのブリッジ
この設計ができれば、Windowsのタスクスケジューラでの設定は極めてシンプルになる。
プログラムの開始:
`”C:\Program Files\Microsoft Office\root\Office16\VISIO.EXE” “C:\Project\System.vsdm” /automation`
これで、このVisioファイルは「ダブルクリックすれば手動編集ツール」として動き、「コマンドラインから呼べば無敵の自動化ロボット」に変貌する。
最後に：コードは「対話」である
自動化とは、コードを書くことではなく、「Visioという堅牢なアプリケーションに対して、どのような振る舞いを期待するか」という設計思想を定義することだ。
もし、この記事を読み終えて「自分のコードがまだ汚い」と感じたなら、それは正解だ。成長の兆しだ。今すぐコードを開き、ハードコーディングされたフラグを削除し、コマンドライン解析のロジックを組み込んでほしい。
現場でトラブルが起きたとき、ログを見て「どこで止まったか」が即座に分かる設計こそが、プロフェッショナルの矜持である。さあ、実装に取り掛かろう。
