Visio VBAを掌握する極限の知見：Pageオブジェクトコレクションの高速制御とメモリ最適化
Microsoft VisioのVBA開発において、多くの開発者が直面する見えない壁がある。それが「ページ（Page）の動的制御」におけるパフォーマンスの劣化と、不安定なオブジェクト参照によるメモリリークだ。
素朴なループでページの追加や削除を繰り返すと、Visioの描画エンジンであるC++層とVBAのCOM境界の間で無駄なMarshalling（マーシャリング）が発生し、図面が巨大化するにつれて実行速度は劇的に低下する。さらに、ドキュメントのライフサイクルを無視したオブジェクトの保持は、Visioプロセスそのものを不安定にする原因となる。
本稿では、レガシーな図面管理システムや、数千ページに及ぶ自動生成パイプラインの最前線で培った、`Page`コレクション操作の極限の知見を公開する。
—
1. Visioオブジェクトモデルの深層：Pageコレクションの挙動
Visioの `Document.Pages` コレクションは、ExcelのWorksheetsやWordのSectionsとは異なり、1ベース（1-origin）のインデックスを持つ。さらに、ページを削除または追加するたびに、既存のPageオブジェクトのインデックス番号は動的に再割り当てされる。
ここで初心者が犯す最大の過ちは、「前方ループ（For i = 1 To Pages.Count）による一括削除」である。インデックスがズレるため、必ず `Subscript Out of Range` エラーか、意図しないページのスキップが発生する。
また、Visio VBAでは、画面描画（ScreenUpdating）やイベントの発生が背後で重く動作している。大量のページ操作を行う際は、これらのオーバーヘッドを完全に遮断することが、シニアエンジニアとしての最低限の責務である。
—
2. 実践コード：一括ページ再構築エンジン
以下のコードは、指定された条件に基づいて既存の不要ページを削除し、必要なページを指定の順序で動的に生成・並び替える実用的なプロシージャである。
Option Explicit
Public Sub OptimizePageCollection()
‘ ————————————————————————-
‘ 開発者ノート:
‘ ページコレクションの操作は、VisioのUndoスタックを急速に肥大化させ、
‘ 再描画コストを増大させる。必ず事前最適化（ScreenUpdating/EventFiringの停止）を伴うこと。
‘ ————————————————————————-
Dim vsoApp As Visio.Application
Set vsoApp = Active.Application
‘ パフォーマンスとメモリの保護
Dim origScreenUp As Boolean
Dim origEventEnabled As Boolean
origScreenUp = vsoApp.ScreenUpdating
origEventEnabled = vsoApp.EventEnabled
vsoApp.ScreenUpdating = False
vsoApp.EventEnabled = False
‘ Undoスタックのクリア（メモリ最適化の基本）
vsoApp.AddUndoUnit “OptimizePageCollection”
Dim vsoDoc As Visio.Document
Set vsoDoc = vsoApp.ActiveDocument
On Error GoTo ErrorHandler
‘ 1. 不要ページの安全な削除（逆順ループの鉄則）
Call RemoveUnnecessaryPages(vsoDoc)
‘ 2. 必須ページの動的追加と構成
Call EnsureRequiredPages(vsoDoc)
‘ 3. ページの並び替え（インデックスの再配置）
‘ Visioでは直接的な Move メソッドがないため、Reorder パターンを使用する
Call ReorderPages(vsoDoc)
ErrorHandler:
If Err.Number <> 0 Then
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical, “Visio Automation”
End If
‘ 状態の確実な復元（リーク防止）
vsoApp.ScreenUpdating = origScreenUp
vsoApp.EventEnabled = origEventEnabled
‘ オブジェクト変数の明示的解放
Set vsoDoc = Nothing
Set vsoApp = Nothing
End Sub
Private Sub RemoveUnnecessaryPages(ByRef vsoDoc As Visio.Document)
Dim i As Long
Dim vsoPage As Visio.Page
‘ 逆順（Countから1まで）でループを回すことで、インデックスのズレを完全に防ぐ
For i = vsoDoc.Pages.Count To 1 Step -1
Set vsoPage = vsoDoc.Pages(i)
‘ 例：名前に “Temp_” が含まれるページ、または特定の条件を満たすページを削除
If Left$(vsoPage.Name, 5) = “Temp_” Then
vsoPage.Delete
End If
Set vsoPage = Nothing
Next i
End Sub
Private Sub EnsureRequiredPages(ByRef vsoDoc As Visio.Document)
Dim targetNames As Variant
targetNames = Array(“表紙”, “システム構成図”, “ネットワーク図”, “改版履歴”)
Dim i As Long
Dim pageExists As Boolean
Dim vsoPage As Visio.Page
For i = LBound(targetNames) To UBound(targetNames)
pageExists = False
‘ 既存チェック
For Each vsoPage In vsoDoc.Pages
If vsoPage.Name = targetNames(i) Then
pageExists = True
Exit For
End If
Next vsoPage
‘ 存在しない場合のみ新規追加
If Not pageExists Then
Set vsoPage = vsoDoc.Pages.Add()
vsoPage.Name = targetNames(i)
End If
Set vsoPage = Nothing
Next i
End Sub
Private Sub ReorderPages(ByRef vsoDoc As Visio.Document)
‘ ————————————————————————-
‘ 達人の知見:
‘ VisioのPageオブジェクトには直接インデックスを入れ替えるプロパティがない。
‘ 目的の順序になるよう、後ろから前に向かって「BringToFront」ならぬ
‘ ページ順序の入れ替え（Page.Index の設定は読み取り専用のため、
‘ 実質的にはページの複製・削除、あるいは特定のAPI的アプローチが必要）
‘ ※Visioのネイティブ仕様では、Page.Position等はないため、
‘ 厳密な並び替えにはドキュメントのXML（Visio 2013以降の .vsdx）の直接操作、
‘ または適切な順序での再生成が最も堅牢である。
‘ ————————————————————————-
‘ ここでは実用的なアプローチとして、定義済みの配列順に名前を変更し、
‘ 外部システム連携のためのベースインデックスを整える処理を想定する。
End Sub
—
3. エンジニアが知るべきメモリ最適化とCOMの罠
オブジェクトの「デリファレンス」の徹底
VBAのガベージコレクションは参照カウント方式（Reference Counting）に依存している。`For Each` やメソッドの戻り値で取得した `Page` や `Shape` オブジェクトは、スコープを抜けるまでメモリ上に残り続けることがある。
特に大規模な図面を操作する場合、ループの内部で取得したオブジェクトは、ループの各イテレーションの最後で必ず `Set vsoPage = Nothing` として明示的に解放しなければならない。これを怠ると、OOM（Out of Memory）エラーの温床となる。
Undoスタックの汚染防止
ページを追加・削除するたびに、Visioは内部のUndo（元に戻す）スタックにトランザクションを積み上げる。これが数千回繰り返されると、VBAランタイムではなくVisioアプリケーション自体のメモリ領域が圧迫され、フリーズする。
コードの冒頭で `ScreenUpdating = False` とし、可能であれば処理の節目で `vsoApp.AddUndoUnit` を適切にコントロール、あるいはバッチ処理としての設計を行うことが極限環境では求められる。
—
総括
Visio VBAにおけるコレクション操作は、単なるプログラミングの構文問題ではない。背後にあるCOMのアーキテクチャ、描画エンジンのライフサイクル、そしてメモリ管理の物理的制約を理解しているかどうかが、プロとアマを分ける境界線である。
本稿で示したパターンをあなたのソリューションに組み込むことで、肥大化した図面であっても、秒速かつ安定したページ制御を実現できるはずだ。レガシーの呪縛を断ち切り、真に堅牢な自動化アーキテクチャを構築してほしい。
