Documentオブジェクトを制す：複数ページを効率よく巡回しプロパティを一括操作する実務的極意
こんにちは。開発プロジェクトの現場で幾多のVisioマクロの暴走やメモリリークを鎮圧してきたチーフアーキテクトだ。
Visio VBAの初学者が最初に陥る罠、それが「画面（ActiveWindow）に依存したコード」の記述である。
`ActivePage.Shapes.Item…` や `Application.ActiveWindow.Page`。これらはデバッグ時には動くように見えるが、実務で数百ページのマスター図面をバッチ処理する瞬間、必ず破綻する。画面の描画更新、フォーカスの奪い合い、そして意図しないカレントページの変更による予期せぬエラー。
Visioの真のパワーを引き出すには、`Document` オブジェクトを起点とし、UI（画面）から完全に切り離されたバックグラウンドでの堅牢なオブジェクト巡回構造を構築しなければならない。
今回は、アクティブなドキュメント内の全ページを安全かつ高速に走査し、ページ名の一括変更やプロパティ制御を行うプロダクションコードの設計思想を伝授する。
—
1. 非効率なコードのアンチパターンと、真の設計思想
まずは、現場でよく見かける「やってはいけない」コードの典型例を見てほしい。
❌ 愚劣なアンチパターン：ActiveWindowの乱用
‘ 【絶対に真似してはいけないコード】
Sub BadExample()
Dim i As Long
For i = 1 To ActiveDocument.Pages.Count
‘ 画面をアクティブにする（極めて重い、描画がちらつく、フォーカスが奪われる）
ActiveDocument.Pages(i).Activate
‘ 処理
ActiveWindow.Page.NameU = “Page_” & i
Next i
End Sub
何が問題なのか？
1. パフォーマンスの著しい低下: `Page.Activate` はGUIの再描画（Redraw）を強制するため、ページ数が多いほど実行時間が幾何級数的に増大する。
2. UI依存の脆弱性: ユーザーがマクロ実行中に別のウィンドウをクリックしたりフォーカスを外したりすると、`ActiveWindow` 関連のオブジェクトが `Nothing` になり、容赦なく実行時エラー（Runtime Error）でクラッシュする。
3. Undo（元に戻す）スタックの汚染: 画面を切り替えるたびにUndo履歴が細切れに生成され、メモリを圧迫する。
⭕ プロフェッショナルの設計：UI非依存のDocument基点走査
真に堅牢なコードでは、`ActiveWindow` に一切触れない。`Document` オブジェクトから直接 `Pages` コレクションを叩き、画面描画（ScreenUpdating）とイベント（EventEnabled）を完全制御下において一括処理する。
これが、数百ページの図面を一瞬で、かつエラーゼロで処理するための絶対条件だ。
—
2. 【実践】複数ページを一括制御するプロダクションコード
以下のコードは、実務の現場でそのままコピー＆ペーストして利用できる、実用性と堅牢性を極限まで高めたプロシージャだ。
このコードでは、ドキュメント内の全ページを巡回し、以下の処理を安全に行う。
1. 画面描画の停止と警告の抑制（爆発的な高速化）
2. ページ名の一括リネーム（プレフィックス付与と連番化）
3. ページプロパティ（背景ページや図面尺度など）の統制
4. 確実なリソース解放とエラーハンドリング
Option Explicit
‘ ==============================================================================
‘ プロシージャ名: BatchProcessDocumentPages
‘ 概要 : Documentオブジェクトを起点に全ページを高速かつ安全に巡回し、
ページ名の一括変更およびページ設定を統制する。
‘ 備考 : UI非依存設計（ScreenUpdating完全制御）
‘ ==============================================================================
Sub BatchProcessDocumentPages()
‘ 1. 変数の宣言（明示的な型指定によるメモリ最適化）
Dim targetDoc As Visio.Document
Dim targetPage As Visio.Page
Dim pageIndex As Long
Dim renamedCount As Long
‘ 速度向上・画面ちらつき防止のための退避変数
Dim originalScreenUpdating As Boolean
Dim originalEventEnabled As Boolean
‘ 2. エラーハンドリングの初期化
On Error GoTo ErrorHandler
‘ 3. アクティブドキュメントの安全な取得
‘ ※ Visioが何も開いていない状態（Documents.Count = 0）をガード
If Application.Documents.Count = 0 Then
MsgBox “処理対象のドキュメントが開かれていません。”, vbCritical, “致命的エラー”
Exit Sub
End If
Set targetDoc = Application.ActiveDocument
‘ 4. パフォーマンス最大化の秘訣：UI描画とイベントの完全遮断
originalScreenUpdating = Application.ScreenUpdating
originalEventEnabled = Application.EventEnabled
Application.ScreenUpdating = False
Application.EventEnabled = False
‘ トランザクション的な処理の開始（必要に応じてUndoスコープを設定）
Dim undoScopeID As Long
undoScopeID = Application.BeginUndoScope(“ページ一括設定変更”)
renamedCount = 0
‘ 5. 【核心】Document基点のPagesコレクション走査
‘ ActiveWindowを一切使わず、メモリ上でダイレクトにループを回す
For pageIndex = 1 To targetDoc.Pages.Count
Set targetPage = targetDoc.Pages(pageIndex)
‘ 背景ページ（Background = True）は除外して実ページのみを対象にする場合
If Not targetPage.Background Then
‘ 例：ページ名の一括変更（”Sys_” プレフィックス ＋ 連番）
‘ ※ NameU（ユニーク名）ではなく Name（ローカル名）を変更する場合の例
‘ 競合を防ぐため、一度仮の名前をつけてから正式名称にするなどの工夫も実務では有効
Dim newPageName As String
newPageName = “Process_” & Format(pageIndex, “000”)
‘ 既存の名前と異なる場合のみ代入（無駄なプロパティ書き込みを回避）
If targetPage.Name <> newPageName Then
targetPage.Name = newPageName
renamedCount = renamedCount + 1
End If
‘ 【実務的応用】ページレベルのプロパティ一括設定
‘ 例：すべての実ページのページサイズを自動調整、または特定の設定を強制
‘ targetPage.PageSheet.CellsSRC(visSectionObject, visRowPageLayout, visPLoopStyle).FormulaU = “1”
End If
‘ オブジェクト参照の解放（メモリリーク防止の作法）
Set targetPage = Nothing
Next pageIndex
‘ Undoスコープの正常終了
Application.EndUndoScope undoScopeID
‘ 正常終了メッセージ
MsgBox “ページ巡回処理が完了しました。” & vbCrLf & _
“変更されたページ数: ” & renamedCount & ” ページ”, vbInformation, “処理成功”
CleanUp:
‘ 6. 【最重要】環境の復元（これを怠るとVisioが不安定になる）
Application.ScreenUpdating = originalScreenUpdating
Application.EventEnabled = originalEventEnabled
Exit Sub
ErrorHandler:
‘ 異常終了時のUndoロールバック
If undoScopeID <> 0 Then
Application.CancelUndoScope
End If
MsgBox “予期せぬエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“エラー内容: ” & Err.Description, vbCritical, “実行時エラー”
Resume CleanUp
End Sub
—
3. コードのキモ：プロフェッショナルが仕込んだ3つの防衛策
上記のコードには、単なる「動くコード」を超えた、現場で生き残るための3つのアーキテクチャが組み込まれている。
① `ScreenUpdating = False` と `EventEnabled = False` の挟み撃ち
大規模な図面でページやシェイプを操作する際、画面の再描画コストは想像以上に重い。これをオフにすることで処理速度が最大で数十倍に跳ね上がる。
さらに、`EventEnabled = False` によって、ページ名変更時などに発火する可能性のある不要なアドインや組み込みイベント（`DocumentCanceled` や `ShapeAdded` など）の暴走を完全にシャットアウトする。
② 確実な環境復元（CleanUpラベルの徹底）
エラーが発生しようが正常終了しようが、必ず `CleanUp:` ラベルを経由させ、`ScreenUpdating` などの設定をもとの状態に戻している。これが抜けると、マクロ終了後にVisioの画面がフリーズしたように真っ白になったり、画面描画が更新されなくなる致命的なバグ（通称：画面固まり現象）を引き起こす。
③ 適切なUndoスコープの管理
`BeginUndoScope` と `EndUndoScope` を使用することで、マクロによる数十・数百ページの変更を、ユーザーが「Ctrl + Z」のたった1回のアクションで完全に元に戻せるようにしている。実務ツールにおいて、ユーザーの操作性を担保する上でこの配慮は絶対に欠かせない。
—
4. ファイルや外部データベース連携における注意点
この「Document基点による一括巡回ロジック」を、ファイル群のバッチ処理や外部データベース（Excel / SQL Serverなど）との連携に拡張する場合の重要な知見を共有しておく。
- 複数ファイルのサイレントバッチ処理:
もし複数の `.vsdx` ファイルを裏側で次々に開いてページを書き換えたい場合は、`Application.Documents.OpenEx` を用いて `visOpenRO`（読み取り専用）や `visOpenHidden`（非表示ウィンドウでのオープン）を活用せよ。これにより、ファイルが開くたびにVisioのウィンドウがパチパチと切り替わるストレスフルな挙動を完全に防ぎ、完全なバックグラウンド処理を実現できる。
- データベースとのマッピング整合性:
外部DB（例：設備台帳ExcelやSQL Server）のマスターデータに基づいてVisioのページ名や図面プロパティを同期させる場合、ページ名（`Page.Name`）をキーにするのは危険だ。人間がGUIからページ名を変更してしまうと一発でリンクが切れる。
実務では、ページの `PageSheet` のユーザー定義セル（`User-Defined Cells`セクション）に固有のID（UUIDや設備番号など）を隠し持ち、そのメタデータをキーにしてDocument内を巡回・特定する設計にすべきである。
—
5. まとめ
Visio VBAにおける `Document` オブジェクトの掌握は、単なるプログラミングのテクニックではなく、「システムとしての安定性とパフォーマンスを担保するエンジニアリングそのもの」である。
画面（ActiveWindow）への依存を捨て、Documentを直に支配下におくこと。
そして、環境の汚染を防ぐためのプリミティブな作法（画面更新の停止、エラー時の確実な復元、Undoのスコープ化）を徹底すること。
この設計思想さえ身につければ、どんなに巨大で複雑なマルチページ図面であっても、あなたのマクロは決して音を上げることなく、正確無比にタスクを完遂するだろう。
現場の自動化を成功させる健闘を祈る。
