Visio VBAを掌握する極限の知見：完全サイレントなバッチ処理の構築
開発プロジェクトの現場において、Visio VBAによる自動化は強力な武器となる。しかし、何百枚もの図面を一括処理するバッチ処理を組んだ途端、「画面がパカパカと点滅する」「処理が終わるまでPCがフリーズしたようになる」「予期せぬダイアログで処理が止まる」といった壁にぶつかったことはないだろうか。
アマチュアプログラマーは、画面の描画更新（ScreenUpdating）を止めるだけで満足する。だが、プロのエンジニアが目指すのは、「Visioの存在すら利用者に気づかせない、完全サイレントかつ極限まで最適化されたバックグラウンド処理」である。
今回は、Visioのオブジェクトモデルの深層に踏込み、`Application.ShowChanges` や各種UI非表示設定を駆使して、バッチ処理のパフォーマンスを限界突破させる極限の知見を伝授する。
—
1. なぜ「画面描画の停止」だけでは不十分なのか？
多くのVBA解説書では、処理速度を上げるために以下のコードが紹介されている。
Application.ScreenUpdating = False
‘ 処理…
Application.ScreenUpdating = True
これだけで十分だと思っていないか？
大間違いだ。 `ScreenUpdating = False` は単に「キャンバスの描画」を止めているに過ぎない。Visioの内部エンジンは、依然として以下の「重い処理」を裏で実行し続けている。
- UIイベントのキューイング: ウィンドウのアクティブ化、リボンの状態更新、選択変更イベント。
- 変更通知（ShowChanges）の伝播: 図形のプロパティが書き換わるたびに発生する、ドキュメントツリー全体への変更通知とUndoスタックの構築。
- アラートや警告のポップアップ: リンク切れ、古いファイル形式の警告、マクロ含有の警告など、人間がクリックしなければ進まないダイアログ群。
これらを放置したままバッチ処理を回すことは、サイドブレーキを引いたまま高速道路を走るようなものだ。メモリは圧迫され、処理速度は低下し、何より「途中でダイアログが出て止まる」という致命的なリスクが残る。
—
2. 完全サイレント・超高速化を実現する3種の神器
Visioを真のヘッドレス（バックグラウンド）状態で駆動させるためには、以下の3つの設定を完璧にコントロールする必要がある。
① `Application.ShowChanges = False`
Visio 2013以降で強力な効果を発揮するプロパティだ。これを `False` に設定すると、ウィンドウに対する変更の視覚的な反映や、アドイン・外部プログラムへの変更通知が抑制される。結果として、オブジェクト操作のオーバーヘッドが劇的に削減される。
② `Application.Interactive = False`
ユーザーからのマウス操作やキーボード入力を完全に遮断する。バッチ処理中に人間が余計な操作をして処理をクラッシュさせるリスクをゼロにする。
③ `Application.AlertsEnabled = False`
ファイルを開く際や閉じる際に発生する「読み取り専用です」「変更を保存しますか？」といったシステムアラートを強制的にサイレント処理する。エラーはログに吐き出し、コード側でハンドリングするのがプロの流儀だ。
—
3. 【プロダクションコード】堅牢かつ極限まで速いバッチ処理テンプレート
実務でそのまま使える、エラーハンドリングと言語・画面設定の退避・復元を完璧に網羅したプロダクションコードを提示する。
このコードは、指定フォルダ内のすべての Visio ファイルを開き、特定の図形処理を行った上でサイレント保存して閉じる、というバッチ処理の骨格である。
Option Explicit
‘ ==============================================================================
‘ 処理名: 複数Visioファイル一括処理エンジン（完全サイレント・超高速版）
‘ 概要: UI描画、イベント、警告を完全に遮断し、バックグラウンドで高速処理を行う
‘ ==============================================================================
Sub ExecuteSilentBatchProcess()
Dim targetFolder As String
Dim fileName As String
Dim doc As Visio.Document
‘ 処理対象フォルダの指定（末尾のバックスラッシュに注意）
targetFolder = “C:\VisioBatch\TargetFiles\”
If Dir(targetFolder, vbDirectory) = “” Then
MsgBox “指定されたフォルダが存在しません: ” & targetFolder, vbCritical, “パスエラー”
Exit Sub
End If
‘ — 【重要】環境の退避と完全サイレントモードへの移行 —
Dim origScreenUpdating As Boolean
Dim origInteractive As Boolean
Dim origAlertsEnabled As Boolean
Dim origShowChanges As Boolean
On Error GoTo ErrorHandler
‘ 現在の状態を退避
origScreenUpdating = Application.ScreenUpdating
origInteractive = Application.Interactive
origAlertsEnabled = Application.AlertsEnabled
‘ Visio 2013以降で有効（エラー回避のためトラップまたはバージョン確認を入れるとより安全）
On Error Resume Next
origShowChanges = Application.ShowChanges
Application.ShowChanges = False
On Error GoTo ErrorHandler
‘ 鉄壁のサイレント設定
Application.ScreenUpdating = False
Application.Interactive = False
Application.AlertsEnabled = False
‘ ステータスバーへのメッセージ出力（UIは隠すが開発者向けのログとして活用）
Application.StatusBar = “バッチ処理を開始しています…”
‘ — 処理ループの開始 —
fileName = Dir(targetFolder & “.vsd”)
Do While fileName <> “”
‘ ファイルを非表示（あるいは最小限のオーバーヘッド）で開く
‘ Visio.Documents.OpenEx を使用し、無駄なウィンドウを開かないようにする
Set doc = Application.Documents.OpenEx(targetFolder & fileName, visOpenRODontOpenUI)
If Not doc Is Nothing Then
Application.StatusBar = “処理中: ” & fileName
‘ ——————————————————————
‘ ここに実際の図形処理・データ連携ロジックを記述する
Call ProcessDocument(doc)
‘ ——————————————————————
‘ 変更を保存して閉じる（警告は出ない）
doc.Save
doc.Close
End If
‘ 次のファイルへ
fileName = Dir()
Loop
‘ — 正常終了処理 —
Application.StatusBar = “バッチ処理が正常に完了しました。”
GoTo Finally
ErrorHandler:
‘ 予期せぬエラーが発生した場合でも、環境の復元を確実に行う
MsgBox “バッチ処理中にエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“説明: ” & Err.Description, vbCritical, “致命的エラー”
Finally:
‘ — 【最重要】環境の確実な復元 —
‘ これを怠ると、Visioが操作不能（デッドロック状態）になるか、
‘ アプリケーション終了時にVisioが異常終了する原因となる。
Application.ScreenUpdating = origScreenUpdating
Application.Interactive = origInteractive
Application.AlertsEnabled = origAlertsEnabled
On Error Resume Next
Application.ShowChanges = origShowChanges
On Error GoTo 0
Application.StatusBar = “”
End Sub
‘ ==============================================================================
‘ サブプロシージャ: 個別ドキュメントに対する処理（例）
‘ =================5=============================================================
Private Sub ProcessDocument(ByVal targetDoc As Visio.Document)
Dim pg As Visio.Page
Dim shp As Visio.Shape
‘ 例として、全ページの全図形の色を変更する処理
For Each pg in targetDoc.Pages
For Each shp in pg.Shapes
‘ 例: 特定のシェイプデータを持つ図形を操作するなど
‘ shp.CellsSRC(…) = …
Next shp
Next pg
End Sub
—
4. プロジェクトリーダーが教える「絶対に踏んではいけない地雷」
この手法は劇的なパフォーマンス向上をもたらすが、一歩間違えるとシステム全体を破壊するリスクも孕んでいる。現場で開発を行う際は、以下のポイントを絶対に遵守してほしい。
① 復元処理（Cleanup）の確実な担保
`Application.Interactive = False` や `ScreenUpdating = False` にした状態でコードがエラー落ちすると、Visioが「マウスもキーボードも受け付けない、画面も更新されないゾンビ状態」になり、タスクマネージャーから強制終了するしかなくなる。
必ず `On Error GoTo` を設置し、異常終了時であっても確実にフラグを元の状態に戻す（Finallyブロックの徹底）こと。
② `OpenEx` の使い分け
バッチ処理でファイルを開く際、通常の `Documents.Open` を使うと、バックグラウンドであっても無駄なウィンドウインスタンスが生成されメモリを消費する。
コード例でも使用している `Visio.Documents.OpenEx(Path, visOpenRODontOpenUI)` を使い、UIウィンドウの生成を伴わない超軽量なオープンを行え。
③ データベースや外部ファイル連携時の注意点
バッチ処理でExcelやSQL Serverからデータを一括読み込みしてVisioに流し込む場合、外部リソースへのコネクションは「ループの都度開閉するな」。
コネクションはバッチ処理の開始時に一度だけ確立し、ループ内ではデータ取得のみを行うこと。I/Oのボトルネックを排除してこそ、サイレントモードの真価が発揮される。
—
結びにかえて
真の業務自動化エンジニアとは、ただ動くコードを書くだけの者ではない。「利用者のストレスを消し去り、PCのリソースを限界まで引き出し、予期せぬ例外ですら美しくハンドリングする」システムを作り上げる者のことだ。
今回紹介した `ShowChanges` と完全サイレント化の技術は、何千枚もの図面を扱うプラント設計、大規模なネットワーク図の自動生成、あるいは夜間の定期バッチ処理において、必ずやあなたのプロジェクトを救う強力な武器となるはずだ。
妥協のない設計で、最高峰の自動化ツールを築き上げてほしい。
