Visioの混沌を鎮める：Pageオブジェクトの動的再配置と「真のメモリ管理」
大規模なネットワーク構成図や複雑なシステムフロー図を運用していると、必ず直面する問題がある。それは「ページの断片化」だ。設計変更を繰り返すうちにページ順序は滅茶苦茶になり、ドキュメントとしての整合性は崩壊する。
多くのエンジニアは手作業でドラッグ＆ドロップを繰り返すが、それは時間の浪費であり、ヒューマンエラーの温床だ。Visioのオブジェクトモデルを深く理解すれば、この作業は数ミリ秒の演算で解決できる。今回は、`Page.Index`を制御し、大規模ドキュメントを「秩序」へと強制的に回帰させるための極限の自動化手法を伝授する。
1. Visioオブジェクトモデルの深層：Page.Indexの罠
Visioの`Pages`コレクションは、インデックスによって管理されている。しかし、単に`Page.Index`を書き換えれば済むという単純な話ではない。Visioの内部エンジンは、インデックスが変更されるたびに再描画と整合性チェックを行う。
数百ページ規模の図面で、愚直に`Page.Index`をループさせて入れ替えを行うコードを書くと、パフォーマンスは劇的に低下し、最悪の場合はCOMスタックオーバーフローやメモリリークを招く。我々が目指すべきは、「最小の計算回数で、最大の秩序を生む」ことだ。
2. 並べ替えアルゴリズムの設計思想
今回は、ページ名のプレフィックス（例：「01_Overview」「02_Topology…」）をキーにして、辞書順に並び替えるロジックを実装する。ここで重要なのは、「一度のソート処理で全てのページを正しい位置に配置する」ことである。
Option Explicit
‘ メモリ保護のための明示的解放を徹底せよ
Public Sub ReorderPagesByNamingConvention()
Dim doc As Visio.Document
Dim pages As Visio.Pages
Dim i As Long, j As Long
Dim p1 As Visio.Page, p2 As Visio.Page
Set doc = ActiveDocument
Set pages = doc.Pages
‘ 最適化：画面更新を停止させる（重要）
Application.ScreenUpdating = False
‘ バブルソート等のO(n^2)アルゴリズムで十分なケースが多いが、
‘ VisioのCOM呼び出しは重いため、比較回数を最小化する
For i = 1 To pages.Count – 1
For j = i + 1 To pages.Count
‘ ページ名で比較（辞書順）
If StrComp(pages(i).Name, pages(j).Name, vbTextCompare) > 0 Then
‘ インデックスの入れ替え
‘ MoveメソッドはCOMスタックの再構築を伴うため、回数を抑える
pages(j).Index = i
End If
Next j
Next i
‘ クリーンアップ：オブジェクトの参照を明示的に破棄
Set p1 = Nothing
Set p2 = Nothing
Set pages = Nothing
Set doc = Nothing
Application.ScreenUpdating = True
MsgBox “ページ順序の再構成が完了しました。”, vbInformation
End Sub
3. チーフアーキテクトからの助言：堅牢性の極致へ
上記のコードをそのまま本番環境で動かすのは、まだ甘い。実戦投入にあたっては、以下の「レガシーの呪縛」を解く工夫を施すべきだ。
- APIによるイベント抑制: 大規模ドキュメントでは、ページ移動のたびに`Document.PageAdded`や`PageChanged`イベントが走り、処理が重くなる。`Application.EventLock`を活用し、一連の並べ替え処理中はイベントを凍結させるのがプロの作法だ。
- メモリリーク対策: VBAはCOM参照の解放が遅延することがある。`Set`したオブジェクトは必ずスコープの最後で`Nothing`を代入し、ガベージコレクションを促す。特に数千ものオブジェクトを操作する際は、`DoEvents`を挟むことで、VisioがOSから「応答なし」と判定されるのを防ぐ必要がある。
- 名前の一意性検証: 並べ替える前に、ページ名に重複がないかチェックするバリデーションロジックを前段に挟むべきだ。Visioは名前の重複を許容する仕様（内部IDで管理されるため）だが、名前ベースのソートを行うと、意図しない順序になる可能性がある。
4. 最後に：なぜ自動化するのか
エンジニアの仕事は、退屈なルーチンワークをコードで撲滅することだ。ページ順序を整えるという些細な作業でも、それを自動化する基盤を作っておけば、将来的に「ページ単位のバックアップ」や「自動目次生成」へと機能を拡張できる。
Visio VBAはレガシーな技術と見なされがちだが、そのオブジェクトモデルは非常に精緻だ。メモリの深淵を覗き、COMの挙動を制御する。その技術力こそが、大規模システムを影で支えるアーキテクトの矜持である。
次に構築するシステムでは、ぜひこのロジックを組み込み、「手作業」という名の技術的負債を一つ減らしてほしい。健闘を祈る。
