Visio VBAを掌握する極限の知見：Page.Shapesコレクションの効率的な走査と破壊的ループの全貌
レガシーシステムの最前線、あるいはミッションクリティカルな図面自動生成パイプラインにおいて、Microsoft VisioのVBA（Visual Basic for Applications）は依然として強烈な生命力を放っている。数千、数万のシェイプ（Shape）が入り組んだ巨大な図面を前にしたとき、素朴すぎるコードはメモリリークを惹き起こし、あるいは「消すべき図形を取りこぼす」という致命的なバグを孕む。
本稿では、`Page.Shapes`コレクションを極限まで効率的かつ安全に走査するためのイディオムを、オブジェクトのライフサイクルとメモリ管理の観点から徹底的に解剖する。
—
1. Visioオブジェクトモデルの暗黒面：なぜ `For Each` だけでは破綻するのか
多くの開発者が、ページ内の全シェイプを走査する際に真っ先に書くのは次のようなコードだろう。
‘ 【アンチパターン】削除処理を含むループ
Dim shp As Visio.Shape
For Each shp In ActivePage.Shapes
If shp.NameU Like “Temporary_” Then
shp.Delete ‘ ⚠️ 致命的なインデックスズレや例外を引き起こす
End If
Next shp
このコードの何が問題なのか。`For Each` は内部イテレータとして非常にエレガントだが、コレクションの要素が動的に変化する（削除される、あるいは追加される）処理がループ内に混入した瞬間、COMコンポーネントとしての足場が崩れる。
Visioの `Shapes` コレクションは、内部的に1ベースのインデックスで管理されている。ループの途中で `shp.Delete` を実行すると、それ以降のシェイプのインデックスがすべて前方にシフトする。結果として、スキップされるシェイプが発生するか、あるいは `Runtime Error` が発生してマクロが強制終了する。
さらに、VBAとCOMの境界領域では、オブジェクト変数がメモリ上にゾンビのように残留する現象（COMラッパーの解放漏れ）が頻発する。これが数千回のループで蓄積すると、Visioプロセスそのものがメモリ食い潰し（Out of Memory）でクラッシュする。
—
2. 破壊的走査の唯一の解：逆順ループ（Backward Loop）の数学的必然性
コレクションから要素を「削除」または「構造変更」しながら走査する場合、前方向へのループ（1からCountまで）は自殺行為である。ここで採るべき唯一にして最強のアーキテクチャは、「末尾から先頭に向かってデクリメントする逆順ループ」である。
Public Sub SafeDeleteShapes()
Dim vsoPage As Visio.Page
Set vsoPage = ActivePage
Dim totalShapes As Long
totalShapes = vsoPage.Shapes.Count
Dim i As Long
‘ 末尾から先頭へ向かう逆順ループ
For i = totalShapes To 1 Step -1
Dim shp As Visio.Shape
Set shp = vsoPage.Shapes(i)
‘ 判定処理（例：特定のレイヤーや名前に合致する場合）
If shp.CellExists(“Prop.Status”, 0) Then
If shp.Cells(“Prop.Status”).ResultStr(“”) = “Obsolete” Then
shp.Delete
End If
End If
‘ 【重要】オブジェクト変数の即時解放
Set shp = Nothing
Next i
Set vsoPage = Nothing
End Sub
逆順ループが完璧である理由
1. インデックスの不変性: $i$ 番目のシェイプを削除しても、それより「後ろ（$i+1$ 番目以降）」のシェイプはすでに処理済みであるため、インデックスのズレの影響を一切受けない。
2. O(1) アクセスの保証: `vsoPage.Shapes(i)` へのアクセスは、COM層を跨ぐものの、インデックス指定であればダイレクトに解決される。
—
3. グループ化の罠：再帰的走査（Recursive Traversal）の極意
Visioの図面構造を複雑にしている元凶が「グループ（Group）」だ。`ActivePage.Shapes` は、トップレベルのシェイプしか返さない。グループ化された子シェイプ（Group Members）は、親シェイプの `Shapes` コレクションの中に隠蔽されている。
真に「全図形を漏れなく」処理するためには、グループ構造を再帰的に潜るアルゴリズムが不可欠となる。
以下に、再帰呼び出しを用いてページ内の全シェイプ（グループの内外問わず）を安全に走査・処理するプロフェッショナル向けの実装を示す。
Public Sub RunRecursiveShapeProcessor()
Dim vsoPage As Visio.Page
Set vsoPage = ActivePage
‘ 再帰処理のエントリーポイントを呼び出す
ProcessShapesRecursive vsoPage.Shapes
Set vsoPage = Nothing
MsgBox “全シェイプの走査・処理が完了しました。”, vbInformation
End Sub
Private Sub ProcessShapesRecursive(ByRef colShapes As Visio.Shapes)
Dim i As Long
Dim shp As Visio.Shape
‘ 逆順ループで安全性を担保
For i = colShapes.Count To 1 Step -1
Set shp = colShapes(i)
‘ — ここに図形に対するメイン処理を記述 —
Debug.Print “Processing Shape ID: ” & shp.ID & “, Name: ” & shp.NameU
‘ 例：もしこのシェイプがグループであれば、その内部を再帰的に走査
If shp.Type = visTypeGroup Then
‘ グループの内部シェイプコレクションに対して自身を再帰呼び出し
ProcessShapesRecursive shp.Shapes
End If
‘ オブジェクト変数の明示的解放（メモリ最適化）
Set shp = Nothing
Next i
End Sub
—
4. パフォーマンスとメモリの極限最適化（プロの技術）
数万個のオブジェクトを扱う大規模システム連携において、VBAのデフォルト動作はあまりにも非力である。以下の3つの最適化テクニックをコードに組み込むことで、処理速度を最大数倍〜数十倍に跳ね上げることができる。
① 画面描画の凍結（ScreenUpdating / Redraw）
Visioはシェイプが1つ変更されるたびに、UIの再描画を行おうとする。これを無効化することで、CPUサイクルを純粋な計算処理に集中させる。
Application.ScreenUpdating = False
‘ — 重いループ処理 —
Application.ScreenUpdating = True
Application.ForceRecalc ‘ 必要に応じて強制再計算
② イベントの無効化（EventEnabled）
図形の追加・削除・プロパティ変更のたびに、不要なアドインや組み込みイベント（`ShapeAdded` など）が発火するのを防ぐ。
Application.EventEnabled = False
‘ — 重いループ処理 —
Application.EventEnabled = True
③ オブジェクトの徹底的な破棄（Set xxx = Nothing）
VBAのガベージコレクションは頼りにならない。特にループのスコープ内や再帰呼び出しの中では、使い終わった `Shape` や `Page` などのCOMオブジェクト変数は、必ずループの各イテレーションの末尾で `Set shp = Nothing` によって参照カウントをデクリメントしなければならない。これを怠ると、VBAランタイムがメモリを抱え込み、長時間のバッチ処理で確実にメモリリークを起こす。
—
5. 実戦的アーキテクチャ：外部システム連携を見据えた堅牢な設計
社内システムや外部APIから渡されたJSON/CSVデータを元にVisio図面を自動生成、あるいは図面からデータを吸い上げるシステムでは、エラーハンドリングの有無が生死を分ける。
Public Sub EnterpriseShapeAutomation()
‘ エラーハンドリングの要塞化
On Error GoTo ErrorHandler
‘ パフォーマンス最適化の適用
Application.ScreenUpdating = False
Application.EventEnabled = False
Dim vsoPage As Visio.Page
Set vsoPage = ActivePage
‘ 逆順＋再帰による安全かつ網羅的な走査
ProcessShapesRecursive vsoPage.Shapes
CleanUp:
‘ 確実な環境復元
Application.EventEnabled = True
Application.ScreenUpdating = True
Set vsoPage = Nothing
Exit Sub
ErrorHandler:
MsgBox “致命的なエラーが発生しました: ” & Err.Description, vbCritical
Resume CleanUp
End Sub
総括
Visio VBAにおける `Page.Shapes` の走査は、単なるプログラミングの構文の問題ではない。それは、COMのメモリ管理モデル、インデックスのライフサイクル、そして再帰的データ構造に対する深い理解が求められる「エンジニアリングの領域」である。
本稿で示した「逆順ループ」「再帰的走査」「COMオブジェクトの明示的解放」「描画・イベントの凍結」の4原則を遵守すれば、どんなに巨大でカオスなレガシー図面であっても、完全に制御下に置くことができるはずだ。コードは常に美しく、そして鉄壁でなければならない。
