Visio VBAの「描画地獄」を脱出せよ：パフォーマンスを極限まで引き出す設計思想
Visioで数千個のシェイプを扱うマクロを書いたとき、プログレスバーが止まったかのように重くなり、イライラした経験はないだろうか？
多くの初心者は「VBAは遅い」と嘆くが、それは誤りだ。「Visioのレンダリングエンジンを無駄に叩きすぎている」のが真の原因である。Visioは本来、対話型のGUIツールだ。マクロが1つのシェイプを置くたびに、画面の再描画やイベントの監視を行えば、CPUリソースは砂のように消えていく。
本稿では、業務自動化の現場で「プロ」として認められるための、描画パフォーマンスを極限まで高めるアーキテクチャを伝授する。
—
1. なぜ「重い」のか：Visioの裏側を理解する
Visioのオブジェクトモデルを操作すると、内部では以下のプロセスが走る。
1. レンダリングの再計算: シェイプの配置や変更ごとに、画面が更新される。
2. イベントのトリガー: `ShapeAdded` や `CellChanged` などのイベントが、無駄にイベントハンドラを起動させる。
3. 元に戻す（Undo）スタックの肥大化: 処理のステップごとにUndo履歴が積み上がり、メモリを圧迫する。
これらを放置したままループを回すのは、高速道路でサイドブレーキを引きながらアクセルを踏むようなものだ。
—
2. 劇的改善のための「三種の神器」
パフォーマンスを最適化するには、以下の3つを処理の前後で必ず制御しなければならない。
- Application.ScreenUpdating: 画面更新の停止。
- Application.EventEnabled: イベント発火の停止。
- UndoScope: 処理全体を一つのUndoユニットとしてまとめる（メモリ保護）。
—
3. 実践：プロダクションコード・テンプレート
以下は、大規模データ処理を行う際の「型」となるコードである。この構造をベースにすれば、バグを抑えつつ爆速で動作するツールが作れる。
‘ ———————————————————
‘ 高速描画を保証する業務自動化テンプレート
‘ ———————————————————
Public Sub BulkShapeGenerator()
Dim undoScopeID As Long
‘ 1. UndoScopeを開始（メモリ管理と一括操作の恩恵を受ける）
undoScopeID = Application.BeginUndoScope(“大規模シェイプ生成”)
‘ 2. 描画とイベントの停止
Dim oldScreenUpdating As Boolean: oldScreenUpdating = Application.ScreenUpdating
Dim oldEventEnabled As Boolean: oldEventEnabled = Application.EventEnabled
Application.ScreenUpdating = False
Application.EventEnabled = False
On Error GoTo Cleanup ‘ エラー発生時に設定を戻すためのガード
‘ — メイン処理開始 —
Dim i As Long
For i = 1 To 1000
‘ ここにシェイプ生成・編集処理を記述
‘ 例: ActivePage.DrawRectangle(0, 0, 1, 1)
Next i
‘ — メイン処理終了 —
Cleanup:
‘ 3. 設定の復元（最重要：エラー時も必ず実行させる）
Application.ScreenUpdating = oldScreenUpdating
Application.EventEnabled = oldEventEnabled
Application.EndUndoScope undoScopeID, True
If Err.Number <> 0 Then
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical
End If
End Sub
—
4. 堅牢な開発のためのアーキテクチャ上の注意点
イベントの無効化には細心の注意を
`EventEnabled = False` にすると、自作のイベントハンドラだけでなく、Visio標準の機能（一部の自動配置機能など）も停止する。この設定は、「必要な最小限のループ処理」だけを囲むように設計すること。
データベース連携の鉄則
外部データベース（ExcelやSQL Server）からデータを読み込んで図形化する場合、データベースとの通信はループの外側で行うこと。
- NG: ループ内で毎回DB接続を開閉する。
- OK: 全データをメモリ上の配列（`Variant型`の2次元配列）に一度読み込み、その配列を回して描画する。I/O（入出力）の回数を最小化するのが鉄則だ。
開発中のデバッグ
`ScreenUpdating = False` にしている間は、当然ながら画面は変わらない。開発中はあえてこのフラグをコメントアウトし、処理が正しいことを確認してから、最後にこのテンプレートを適用するのが、手戻りを防ぐ唯一の道だ。
—
終わりに：エンジニアの誇りを持って書け
コードは単に動けばいいというものではない。後の保守担当者が読んだときに、「なぜここでイベントを止めているのか」「なぜUndoScopeを使っているのか」という意図が伝わるコードこそが、プロの成果物だ。
Visioの深淵を制御する力は、あなたの業務効率を桁違いに変える。今日から、この設計パターンをあなたのツールキットの「デフォルト」に加えてほしい。
