【上級者向け】大規模図面におけるページ操作の高速化：画面描画を停止して処理時間を短縮する最適化テクニック
こんにちは。開発プロジェクトを率いるチーフアーキテクトの私だ。
これまで数多くの巨大なVisio図面を自動化するエンタープライズ向けのソリューションを構築してきたが、現場から最も多く寄せられる悲鳴は決まってこうだ。
「ページを100枚追加してレイアウトを流し込んだら、終わるまでにコーヒーが何杯も飲める」「処理の途中で画面が激しく点滅し、下手をするとフリーズする」
もし、あなたの書いたVisio VBAコードが、ページを1枚追加するたびに画面を再描画しているなら……今すぐその設計を改めなければならない。今回は、大規模図面におけるページ操作のパフォーマンスを極限まで引き上げる『画面描画の完全制御』について、現場の知見を余すところなく伝授しよう。
—
1. なぜVisioのページ操作は遅いのか？（根本原因の特定）
初心者が陥る最大の罠は、Visioを「人間の手で操作するアプリケーション」と同じ感覚でVBAから叩いてしまうことだ。
VBAから `ActiveDocument.Pages.Add` やページのプロパティ変更を実行すると、Visioの描画エンジン（C++コア）は以下の処理を実行するたびに行っている。
1. DOM（Document Object Model）の更新とイベント伝播
2. ウィンドウビューの再描画（レンダリング）
3. UI（リボンやページタブ）の同期
ページ数が10枚程度の小規模図面であれば人間には知覚できないが、これが数百ページのネットワーク図、プラント図、あるいは自動生成されるフロアマップになった途端、オーバーヘッドが幾何級数的に増大する。描画処理が全体の処理時間の9割を占めるということも珍しくない。
—
2. 解決策：`ScreenUpdating` とイベント抑止の極意
このボトルネックを粉砕する特効薬が、`Application.ScreenUpdating` プロパティの制御だ。これを `False` に設定することで、Visioは画面の描画を完全に停止し、メモリ上のデータ構造（DOM）の操作だけに集中する。
しかし、プロのエンジニアを目指すなら、これだけでは不十分だ。真に堅牢で高速なコードを書くためには、以下の3点に配慮しなければならない。
① 例外発生時の「画面フリーズ（描画停止しっぱなし）」を防ぐ
`ScreenUpdating = False` にした状態でコードがエラー落ちすると、Visioの画面が更新されないままフリーズしたような状態になり、ユーザーを絶望させる。必ず `Error Handler（On Error GoTo）` を実装し、どんな結末を迎えても確実に描画を復元させなければならない。
② イベントの連鎖を断つ
ページ追加やシェイプ配置の際、不要なアドオンや `Document_ShapeAdded` などのイベントトリガーが走ると、パフォーマンスが著しく悪化する。大規模処理の開始前には `Application.EventEnabled = False` を併用するのが鉄則だ。
—
3. 【プロダクションコード】堅牢かつ爆速なページ自動生成テンプレート
実務でそのままコピー＆ペーストして使える、最高品質のVBAコードを提供する。
このコードは、大量のページを一括追加し、それぞれに名前とサイズを設定する処理を極限まで高速化したものだ。
Option Explicit
‘ ==============================================================================
‘ 処理名: 巨大図面向け 高速ページ一括生成プロシージャ
‘ 概要 : 画面描画とイベントを完全に停止し、大量ページの追加・設定を爆速で行う
‘ ==============================================================================
Public Sub CreateMassivePagesOptimized()
Dim startTime As Double
startTime = Timer ‘ 性能計測用
‘ — 1. 最適化のための環境退避と停止 —
Dim originalScreenUpdating As Boolean
Dim originalEventEnabled As Boolean
‘ 念のため現在の状態を保持
originalScreenUpdating = Application.ScreenUpdating
originalEventEnabled = Application.EventEnabled
‘ 鉄則: エラー発生時のデッドロックを防ぐため、エラーハンドラーを必ず設定する
On Error GoTo ErrorHandler
‘ 描画とイベントの停止（ここがパフォーマンスのキモ）
Application.ScreenUpdating = False
Application.EventEnabled = False
Application.ShowChanges = False ‘ Visio 2013以降の内部描画抑制
Dim targetDoc As Visio.Document
Set targetDoc = ActiveDocument
‘ — 2. メイン処理（例：50ページの追加と設定） —
Dim i As Long
Dim newPage As Visio.Page
Dim targetPageCount As Long
targetPageCount = 50
Debug.Print “— ページ生成処理開始 —”
For i = 1 to targetPageCount
‘ ページの追加
Set newPage = targetDoc.Pages.Add
‘ ページのプロパティ設定（描画が走らないため一瞬で終わる）
With newPage
.Name = “Zone_” & Format(i, “000”)
‘ ページサイズを A4横 (W: 297mm, H: 210mm) に設定
‘ ※ Visioの内部単位はインチ(VisInches)のため mm を変換
.PageSheet.CellsU(“PageWidth”).Result[visInches] = 297 / 25.4
.PageSheet.CellsU(“PageHeight”).Result[visInches] = 210 / 25.4
End With
‘ 進捗をイミディエイトウィンドウに出力（必要に応じてステータスバー活用）
If i Mod 10 = 0 Then
Debug.Print i & “ページ作成完了…”
End If
Next i
ErrorHandler:
‘ — 3. 確実に環境を復元する（クリーンアップ） —
‘ エラーの有無に関わらず、必ず描画とイベントを元に戻す
Application.ScreenUpdating = originalScreenUpdating
Application.EventEnabled = originalEventEnabled
Application.ShowChanges = True
‘ 処理結果の判定
If Err.Number <> 0 Then
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “処理中断”
Else
Debug.Print “— 処理完了 経過時間: ” & Format(Timer – startTime, “0.00”) & “秒 —”
MsgBox targetPageCount & “ページの生成が完了しました。（処理時間: ” & Format(Timer – startTime, “0.00”) & “秒）”, vbInformation, “完了”
End If
Exit Sub
End Sub
—
4. アーキテクトからの実践アドバイス：ファイル・DB連携時の注意点
この高速化手法は、外部のExcelやSQL Serverなどのデータベースからデータを読み込み、それを元に何百ものページやシェイプを動的生成するバッチ処理において真価を発揮する。
ここで1つ、実務で絶対に守るべき設計指針を伝授しよう。
> 「外部データとのI/O（入出力）ループの中でVisioオブジェクトを触るな」
例えば、データベースから500件のレコードを取得し、1件ごとに `Open Recordset` しながらVisioのページを作っていくような実装は最悪だ。
データベースからの読み込みは一括してメモリ上（二次元配列やDictionary）にロードし、「データ取得フェーズ」と「Visio描画フェーズ（前述のScreenUpdating=False空間）」を完全に分離すること。
これにより、I/O待ちとレンダリング待ちの複合的な遅延を排除し、VBAの限界値を超えるパフォーマンスを発揮させることが可能になる。
—
まとめ
プロとアマチュアの決定的な違いは、「コードが動くかどうか」ではなく、「システム資源のライフサイクルとパフォーマンス特性を完全に支配しているか」にある。
今回紹介した `ScreenUpdating` とイベント抑止のテクニックは、大規模なVisio自動化においては「使えて当然の基本技術」だ。ぜひあなたのプロジェクトに導入し、圧倒的な処理速度の向上を体感してほしい。次回の開発も、スマートにいこう。
