Visio VBAを掌握する：コマンドライン引数による「自動化」と「GUI」の動的ハイブリッド設計
Visioを単なる作図ツールだと思っている者は、その真価を半分も理解していない。Visioは、強力なデータ連携エンジンを備えた「自動化可能なグラフィカル・データベース」である。
本稿では、タスクスケジューラや外部管理コンソールからVisioを呼び出し、サイレントバッチ処理とGUI操作を同一プロジェクト内で完結させる、極限のアーキテクチャを解説する。
1. 勘違いを排す：`CommandLine`プロパティの正体
多くのエンジニアは、Visio起動時の引数解析のためにWindows APIの`GetCommandLine`を必死に叩くが、それは遠回りだ。`Application.CommandLine`プロパティを使えば、Visioに渡された生の引数文字列を即座に取得できる。
ただし、注意が必要だ。この文字列にはVisio自身の実行ファイルパスも含まれる場合がある。解析には一工夫が必要である。
2. アーキテクチャの核心：動的モード切替モジュール
「自動実行モード」と「対話モード」を起動時に振り分けるための設計パターンを示す。この設計の肝は、処理の開始位置を`Document_DocumentOpened`イベントに集約し、即座に制御を分岐させることにある。
‘ ThisDocument モジュールに記述
Option Explicit
Private Sub Document_DocumentOpened(ByVal doc As IVDocument)
‘ 起動直後のメモリ消費を抑えつつ、引数に応じた分岐を行う
Dim args As String
args = Application.CommandLine
If InStr(1, args, “/silent”, vbTextCompare) > 0 Then
‘ バッチ処理モード：UIを抑制し、完了後に自ら閉じる
Call ExecuteBatchMode
Else
‘ 通常モード：UIを表示して制御をユーザーに委ねる
Call InitializeUserInterface
End If
End Sub
Private Sub ExecuteBatchMode()
On Error GoTo Cleanup
‘ ここで Application.ScreenUpdating = False を設定し、
‘ 描画負荷を物理的に遮断するのがプロの流儀
Application.ScreenUpdating = False
‘ — ビジネスロジックをここに記述 —
‘ 処理終了後、変更を保存して閉じる
ActiveDocument.Save
Application.Quit
Exit Sub
Cleanup:
‘ 異常終了時のメモリ解放とログ出力
Application.ScreenUpdating = True
‘ エラーログをファイルに書き出し、プロセスを強制終了
Application.Quit
End Sub
3. レガシー環境におけるメモリ最適化の真実
Visioのオブジェクトモデルは、強力だがメモリリークの温床になりやすい。特に`Shape`オブジェクトのループ処理は、参照を正しく解放しないと、COMサーバーがゾンビ化し、タスクスケジューラ上でプロセスが滞留する。
- 明示的なNothing代入: ループ内の`Set shp = Nothing`を怠るな。
- コレクションのキャッシュ: `Page.Shapes`に何度もアクセスせず、一度配列に格納してから操作せよ。オブジェクトの走査は、Visioにとって最も重い処理の1つだ。
- DoEventsの活用: バッチ処理中にプログレスバーを表示する場合、頻繁な`DoEvents`はコンテキストスイッチのオーバーヘッドを招く。100回に1回程度に絞るのが最適解である。
4. APIによる高度な連携：Windows APIの活用
もしVisio単体での処理が限界に達した場合、`kernel32`や`user32`を呼び出し、プロセス間通信（IPC）やメモリマップドファイルを使用して他システムとデータを同期させろ。
If VBA7 Then
Private Declare PtrSafe Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)
Else
Private Declare Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As Long)
End If
‘ 自動処理中に外部システムの準備完了を待つ際の汎用関数
Public Sub WaitForSystemReady(timeoutMs As Long)
‘ ここにMutexやプロセス監視のロジックを実装する
End Sub
5. シニアエンジニアへの提言
このアーキテクチャを採用する際、最も重要なのは「失敗した時の挙動」の設計だ。サイレントモードで起動したVisioが、ダイアログを表示して停止してしまっては、バッチ運用としては即座に失格である。
- `Application.AlertResponse`: これを必ず設定せよ。警告ダイアログが自動的に「OK」や「はい」を選択するようにし、処理を止めないように強制する。
- イベントの制御: `Application.EnableEvents = False`で、余計なイベントトリガーによる再帰呼び出しを完全に封鎖する。
Visio VBAは古い言語かもしれないが、そのオブジェクトモデルは依然として洗練されている。あなたが書くコードは、単なる「作図用スクリプト」ではなく、堅牢なバックエンド・プロセスの一部であるという矜持を持ってほしい。
コードは美しく、メモリは潔く解放せよ。それが伝説のエンジニアの流儀である。
