Visioの深淵を覗く：オブジェクト階層を掌握するための再帰走査アーキテクチャ
VisioのVBA開発において、多くのエンジニアが「なぜか動かない」「Shapeが特定できない」という壁にぶつかる。その原因は単純だ。彼らはVisioのオブジェクトモデルを単なる階層構造としか見ておらず、その背後にある「ShapeSheet」という、Visioの心臓部を成すメタデータエンジンの存在を理解していないからだ。
Visioを操るということは、単なるUIの操作ではない。`Application`から`Cell`に至るまでの深遠な階層を、正確なメモリ管理と再帰アルゴリズムで手繰り寄せることにある。本稿では、レガシーなVisio環境を完全に支配下に置くための「階層再帰走査エンジン」を提示する。
—
なぜ「再帰」なのか：Visioアーキテクチャの真実
Visioのオブジェクトモデルは、再帰的な構造（Shapeの中にShapeが入るGroup構造）を持っている。これをループだけで処理しようとすると、スパゲッティコードの迷宮に迷い込むことになる。
我々が実装すべきは、「スタックを意識した再帰的探索」だ。再帰を用いることで、どんなに複雑にネストされたグループ化形状であっても、その深さを意識することなく、`Cell`の生データまで確実に到達できる。
階層走査エンジンの設計指針
1. オブジェクトの明示的解放: VisioのCOMオブジェクトは強力だが、メモリリークの温床となる。`Set obj = Nothing`を徹底し、循環参照を防ぐ。
2. エラーハンドリングの抽象化: 走査中に発生する「保護されたセル」や「アクセス不能なShape」をスキップする堅牢なロジックを組む。
3. 可視化の最適化: `Debug.Print`を多用せず、イミディエイトウィンドウのバッファ溢れを防ぐためのインデント管理を行う。
—
実装：再帰的オブジェクト走査ツール
以下のコードは、現在のドキュメントの全階層を走査し、ShapeのプロパティとCellの値をイミディエイトウィンドウに出力するアーキテクチャである。
Option Explicit
‘ — Visioオブジェクト階層走査エンジン —
Public Sub TraverseVisioHierarchy()
Dim doc As Visio.Document
Dim pg As Visio.Page
Dim shp As Visio.Shape
‘ ApplicationオブジェクトからDocumentへアクセス
Set doc = Application.ActiveDocument
Debug.Print “Document: ” & doc.Name
‘ 各ページを走査
For Each pg In doc.Pages
Debug.Print ” Page: ” & pg.Name
For Each shp In pg.Shapes
‘ 再帰関数の呼び出し
Call ExploreShape(shp, 2)
Next shp
Next pg
‘ メモリ最適化: 参照の明示的解放
Set pg = Nothing
Set doc = Nothing
End Sub
Private Sub ExploreShape(ByVal shp As Visio.Shape, ByVal level As Integer)
Dim subShp As Visio.Shape
Dim cell As Visio.cell
Dim indent As String
indent = String(level 2, ” “)
‘ Shape情報の出力
Debug.Print indent & “Shape: ” & shp.Name & ” (Type: ” & shp.Type & “)”
‘ Cellの走査（Visioの心臓部：ShapeSheetへのアクセス）
On Error Resume Next ‘ 保護されたセル等の例外回避
For Each cell In shp.Cells
Debug.Print indent & ” [Cell] ” & cell.Name & ” = ” & cell.Formula
Next cell
On Error GoTo 0
‘ 再帰処理：グループ化されたShapeの深部へ
If shp.Type = visTypeGroup Or shp.Shapes.Count > 0 Then
For Each subShp In shp.Shapes
Call ExploreShape(subShp, level + 1)
Next subShp
End If
‘ メモリ最適化: 再帰内でのオブジェクト解放
Set subShp = Nothing
Set cell = Nothing
End Sub
—
シニアエンジニアが押さえておくべき知見
1. `On Error Resume Next` の正しい運用
VisioのAPIは、特定の状態（例：ロックされたレイヤーや保護されたShapeSheet）でプロパティにアクセスすると例外を吐く。全域に`On Error`を貼るのではなく、`Cell`走査など、例外が予想される最小のスコープにのみ適用せよ。これが「システムを止めない」ための鉄則だ。
2. COMオブジェクトのライフサイクル管理
VBAはガベージコレクションを自動で行うが、VisioのCOMインターフェースは遅延しがちだ。特に大規模な図面を扱う場合、`Set = Nothing`を怠ると、Visioが終了してもプロセスが残る「ゾンビプロセス」が発生する。`ExploreShape`内でローカルオブジェクトを確実に破棄することで、メモリ枯渇を未然に防ぐ。
3. パフォーマンスへの配慮
もしこのツールを実務のデータ抽出に使うのであれば、`Debug.Print`はボトルネックになる。数千個のオブジェクトを走査する場合、イミディエイトウィンドウへの書き込み負荷は無視できない。実戦では、一旦`Collection`オブジェクトや`Dictionary`に結果を格納し、最後に一括でテキストファイルへ書き出す手法を推奨する。
最後に：ツールは「地図」に過ぎない
このコードは、あなたの目の前にある複雑なVisioドキュメントの「地図」を描き出す。しかし、真の自動化はここから始まる。階層を把握したあなたは、次に特定の命名規則を持つShapeを一括置換したり、外部データベースとShapeSheetをAPIで同期させたりといった、より高度な領域へ足を踏み入れることになるだろう。
Visioというシステムの深淵を恐れるな。オブジェクトモデルを支配する者が、業務を支配するのだ。
