Visio VBAを掌握する極限の知見：Shape.Parentプロパティによる階層逆引きと安全なツリー走査
業務自動化の現場において、Microsoft Visioは単なるお絵描きツールではない。ネットワーク図、組織図、プロセスフロー、プラント設計図――これらはすべて「ノードとエッジ、そして階層」で構成された厳密なデータモデルである。
特に、大規模な図面をプログラムで制御する際、避けて通れないのが「選択されたシェイプが、どのグループに属し、どのコンテナ内包され、最終的にどのページに存在しているのか」という階層構造の逆引きだ。
今回は、Visio VBAのオブジェクトモデルにおける`Shape.Parent`プロパティの挙動の本質と、型安全な再帰的アプローチによる堅牢なツリー走査の極意を伝授する。
—
なぜ「親の顔」が見えないのか？ Visioオブジェクトモデルの罠
VisioのVBA初学者が最も陥る罠が、`Shape.Parent`プロパティの戻り値の多相性（ポリモーフィズム）である。
`Shape.Parent`は、そのシェイプの「親」を返す。しかし、親がPageである場合もあれば、Shape（グループまたはコンテナ）である場合もある。さらに、ドキュメントレベルのマスターシェイプ（Master）である可能性すら存在する。
安易に以下のようなコードを書いた瞬間、あなたのマクロは実行時エラー（型が一致しません）の餌食になる。
‘ 【アンチパターン】型を考慮しない危険なコード
Dim shp As Visio.Shape
Set shp = ActiveWindow.Selection(1)
‘ 親がPageとは限らないのに、直接Pageオブジェクトに入れようとすると即死する
Dim pg As Visio.Page
Set pg = shp.Parent ‘ ← 親がグループシェイプだった場合、ここで実行時エラー！
プロフェッショナルな開発者であれば、オブジェクトのライフサイクルと型安全性を常に意識しなければならない。Visioの階層構造を正確に把握するためには、`TypeOf … Is` 演算子を用いた厳密な型判定と、ループまたは再帰による安全な遡り（トラバーサル）が不可欠となる。
—
設計思想：安全な階層追跡（レイヤー・トラバーサル）のアルゴリズム
階層を遡るアプローチには、主に2つの方法がある。
1. ループによる反復処理（Iterative approach）
2. 再帰呼び出しによる構造解析（Recursive approach）
実務の現場では、スタックオーバーフローのリスクを排除し、かつ可読性を担保するために、「親を順次判定しながらルート（Page）に到達するまでループを回す手法」を推奨する。
階層を特定するための判定順序
シェイプの `Parent` を辿る際、以下の順序でオブジェクトの型を評価する。
1. Shapeオブジェクトか？ → グループのメンバー、またはコンテナの子シェイプである。
2. Pageオブジェクトか？ → ページの直下に配置されているトップレベルのシェイプである。
3. Masterオブジェクトか？ → ステンシル内のマスターシェイプの図形である（通常、図面上の図形では稀だが考慮すべき）。
—
プロダクションコード例：完全耐障害性・階層逆引きエンジン
以下のコードは、現在選択しているシェイプが「どのグループの、どのコンテナの、どの深さにいるか」を完全に解析し、イミディエイトウィンドウにその血統書を出力するプロシージャである。
コピペするだけで、あなたのプロジェクトのユーティリティモジュールとして即座に機能する。
Option Explicit
‘ ==============================================================================
‘ 処理名 : TraceShapeHierarchy
‘ 概要 : 選択されたシェイプの親階層を安全に逆引きし、構造を解析する
‘ ==============================================================================
Public Sub TraceShapeHierarchy()
‘ エラーハンドリングの標準装備
On Error GoTo ErrorHandler
‘ 1. 選択状態の検証
If ActiveWindow.Selection.Count = 0 Then
MsgBox “シェイプが選択されていません。”, vbExclamation, “階層逆引きツール”
Exit Sub
End If
Dim targetShp As Visio.Shape
Set targetShp = ActiveWindow.Selection(1)
Debug.Print “=== 階層解析開始: ” & targetShp.Name & ” (ID: ” & targetShp.ID & “) ===”
‘ 2. 階層を遡るループ処理
Dim currentParent As Object
Set currentParent = targetShp.Parent
Dim depth As Long
depth = 1
Do
If TypeOf currentParent is Visio.Page Then
‘ — 【ケースA】親がページ（ルート到達） —
Dim pg As Visio.Page
Set pg = currentParent
Debug.Print ” [Depth ” & depth & “] 所属ページ: ” & pg.Name & ” (PageID: ” & pg.ID & “)”
Exit Do
ElseIf TypeOf currentParent is Visio.Shape Then
‘ — 【ケースB】親が別のシェイプ（グループまたはコンテナ） —
Dim parentShp As Visio.Shape
Set parentShp = currentParent
‘ コンテナかグループかの判定（Visio固有のメタデータ活用）
Dim shapeTypeDesc As String
If parentShp.ContainerProperties.IsInContainer Then
shapeTypeDesc = “コンテナ”
Else
shapeTypeDesc = “グループ”
End If
Debug.Print ” [Depth ” & depth & “] ” & shapeTypeDesc & “親シェイプ: ” & parentShp.Name & ” (ID: ” & parentShp.ID & “)”
‘ さらに上の親へ
Set currentParent = parentShp.Parent
depth = depth + 1
ElseIf TypeOf currentParent is Visio.Master Then
‘ — 【ケースC】マスターシェイプの内部 —
Dim mst As Visio.Master
Set mst = currentParent
Debug.Print ” [Depth ” & depth & “] 所属マスター: ” & mst.Name
Exit Do
Else
‘ — 【例外ケース】想定外のオブジェクト —
Debug.Print ” [Depth ” & depth & “] 未知の親オブジェクトを検知しました。”
Exit Do
End If
Loop
Debug.Print “=== 階層解析終了 ===”
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “致命的エラー”
End Sub
—
実務（データベース連携・自動レイアウト）への応用と注意点
この `Shape.Parent` を用いた逆引きロジックをマスターすると、以下のような高度な業務自動化システムの構築が可能になる。
1. データベース・外部システム（ERP/BOM）との連携
プロセスフロー図やプラント図において、「どのサブシステム（グループ）の、どのモジュール（コンテナ）に、どの機器（シェイプ）が紐づいているか」というツリー構造をそのままSQLデータベースやJSONへエクスポートできる。親のIDをリレーショナルに保持することで、図面とDBの完全な同期がとれる。
2. コンテナ内包判定と連動したバリデーション
「特定のコンテナ（例: ゾーンA）の中に配置されてはならないシェイプ」が置かれている場合、この逆引きロジックを使って親を遡り、リアルタイムで警告を出す設計（Design Rule Check: DRC）に応用できる。
3. メモリ管理とパフォーマンスの留意点
Visio VBAにおいて、オブジェクトの変数代入はCOMコンポーネントの参照カウンタを増加させる。巨大な図面（数千のシェイプ）をループ処理で走査する場合、不要になったオブジェクト変数（`Set currentParent = Nothing` など）を適切に解放しないと、COMのメモリリークやVisioの動作不安定を引き起こす遠因となる。プロダクション環境では、ループ脱出時のクリーンアップを徹底してほしい。
—
結言
Visio VBAの真価は、単なる図形の自動生成にあらず。図面が持つ「構造（Topology）」をコードで完全に把握し、ビジネスロジックへと昇華させるところにある。
`Shape.Parent` の型安全なハンドリングを身につけたあなたなら、もはや複雑なネスト構造に怯える必要はない。圧倒的な堅牢性を持つ自動化ツールを構築し、現場の生産性を極限まで引き上げてほしい。
