Visio VBAの限界を突破せよ：数千シェイプを秒速で処理する「極限の最適化」術
Visio VBAで数千単位のシェイプをループ処理し、画面がカクつき、プログレスバーすら進まない――そんな「終わらない処理」に頭を抱えた経験はないだろうか。
多くのエンジニアは、`Application.ScreenUpdating = False` だけでは不十分であることに気づいていない。Visioという巨大なオブジェクトモデルは、デフォルト設定のままでは「各操作ごとに計算と描画を再評価する」という過剰な親切心を発揮する。これがパフォーマンスを殺す最大の要因だ。
本稿では、レガシーとモダンが混在する現場で生き抜いてきたアーキテクトの視点から、Visioの描画エンジンを完全に黙らせ、処理速度を物理限界まで引き上げるための「禁じ手」を伝授する。
—
1. 描画パフォーマンスの「三種の神器」
Visioのレンダリングパイプラインを止めるには、単なる画面更新停止以上の介入が必要だ。
A. Application.ScreenUpdating の制御
これは基本中の基本だが、`Try…Finally` ブロック（VBAなら `On Error GoTo`）で確実に復帰させることが絶対条件だ。エラーで停止した際に画面が真っ白のまま固まるのは、プロとして許されない。
B. イベントの遮断（Application.EventEnabled）
これが最も軽視されがちなポイントだ。Visioは `ShapeAdded` や `ShapeChanged` などのイベントを常に監視している。ループ内で数千回イベントを投げることは、CPUサイクルを徒に消費する。`Application.EventEnabled = False` を用いて、処理中の不要なイベント通知を全遮断せよ。
C. データの再計算抑止（Calculate/Recalc）
シェイプに数式（セル計算）が組み込まれている場合、1つ変更するたびにVisioは図面全体の整合性を再計算しようとする。これを一時的に停止させることは、大規模図面においては劇的な効果を生む。
—
2. 極限最適化を実現する実装パターン
以下のコードは、数千個のシェイプを生成するような重いバッチ処理のテンプレートである。
‘ 伝説的なパフォーマンスを叩き出すための定型処理
Public Sub OptimizedMassShapeProcessing()
Dim app As Visio.Application
Set app = Application
‘ 状態を退避
Dim origScreenUpdating As Boolean
Dim origEventEnabled As Boolean
‘ 設定の無効化（最適化の要）
origScreenUpdating = app.ScreenUpdating
origEventEnabled = app.EventEnabled
app.ScreenUpdating = False
app.EventEnabled = False
On Error GoTo Cleanup
‘ — ここに重いループ処理を記述 —
Dim i As Long
For i = 1 To 5000
‘ 極力、オブジェクト参照を再利用すること
‘ Set shp = …
Next i
‘ ——————————–
Cleanup:
‘ 状態を必ず復旧させる（重要）
app.ScreenUpdating = origScreenUpdating
app.EventEnabled = origEventEnabled
If Err.Number <> 0 Then
MsgBox “処理中に致命的なエラーが発生しました: ” & Err.Description, vbCritical
End If
End Sub
—
3. シニアエンジニアが意識すべき「メモリとCPUの真実」
オブジェクトの明示的解放
VBAはガベージコレクションが脆弱だ。ループ内で `Set shp = ActivePage.DrawRectangle(…)` を繰り返す際、参照を保持し続けるとメモリリークに近い状態になる。ループの最後には必ず `Set shp = Nothing` を明示し、スコープを意識せよ。
Windows APIによる強制再描画
極めて稀だが、画面描画を停止したまま長時間処理を行うと、OSが「応答なし」と誤判定することがある。これを防ぐには、数千回のループの節目で `DoEvents` を呼ぶのが通説だが、`DoEvents` は処理を重くする。
もしGUIの応答性を保ちつつ限界まで攻めるなら、`LockWindowUpdate` API（`user32.dll`）を用いてウィンドウの更新をOSレベルでロックする手法がある。
‘ User32.dllを利用したウィンドウ更新ロック
Private Declare PtrSafe Function LockWindowUpdate Lib “user32” (ByVal hWndLock As LongPtr) As Long
‘ 処理開始時: LockWindowUpdate(Application.hWnd)
‘ 処理終了時: LockWindowUpdate(0)
—
4. 最後に：アーキテクトからの助言
大規模図面の処理において、VBAは「いかに手数を減らすか」というゲームである。
- シェイプの生成を最小限に: `Duplicate` メソッドを使うより、`Shape.Copy` / `Paste` を検討せよ。
- イベントハンドラとの分離: 図面処理ロジックと、イベント駆動のUIロジックは明確に分離し、バッチ実行時はフラグで相互干渉を遮断せよ。
我々が書くコードは、単なる自動化ツールではない。数万のシェイプが織りなす情報の要塞を制御するための「指揮棒」だ。Visioの心臓部を掌握し、無駄な描画を排除したとき、あなたのマクロはこれまでの数倍、あるいは数十倍の速度で駆け抜けるだろう。
技術に妥協するな。それが、Visioを使いこなす唯一の道だ。
