Visio VBAの深淵へようこそ：マスターシェイプの階層構造を解き明かす「再帰的アルゴリズム」の極意
こんにちは。Visio VBAの世界へようこそ。
「マクロの記録」を使って、なんとか自動化の第一歩を踏み出した。そんなあなたなら、次に直面する壁は必ずこれです。
「グループ化されたシェイプの中身を、どうやって操作すればいいんだ？」
Visioの図面は、単なる図形の集まりではありません。一つの「マスターシェイプ」が、さらに複数の「サブシェイプ」を内包し、そのサブシェイプがまた別の「グループ」を持っている……。まるでマトリョーシカのような、複雑な階層構造（ヒエラルキー）を持っているのです。
単なる `For Each` ループでは、この「入れ子構造」の深層に眠るパーツを見つけ出すことはできません。
今日は、そんな複雑な構造を自由自在に解析・操作するための最強の武器、「再帰的アルゴリズム（Recursive Algorithm）」について解説します。ここをマスターすれば、あなたのVisio VBAは「記録されたマクロ」から「プロフェッショナルな自動化ツール」へと進化します。
さあ、一緒に深淵を覗いてみましょう。
1. なぜ「普通のループ」では足りないのか？
まず、問題の本質を整理しましょう。
例えば、あなたが「すべてのパーツの色の名前を書き換えたい」と考えたとします。
図面上に置かれたシェイプを一つずつ見ていくのは簡単です。しかし、そのシェイプが「グループ化」されていたらどうでしょう？
- 階層レベル 0: ページ上のメインシェイプ（親）
- 階層レベル 1: グループ内のサブシェイプ（子）
- 階層レベル 2: さらにその中の、さらに小さなパーツ（孫）
一般的な `For Each shp In ActivePage.Shapes` というコードは、階層レベル 0 のものしか見てくれません。レベル 1 やレベル 2 に隠れているパーツは、まるで透明人間のようにスルーされてしまうのです。
これを見つけ出すには、「もし中身がグループだったら、その中身に対しても同じ探し方を実行する」という、自分自身を呼び出す動きが必要になります。これが「再帰」の考え方です。
2. アルゴリズムの設計図：マトリョーシカ戦略
再帰的な探索を実装するとき、頭の中で描いてほしいイメージは「マトリョーシカ」です。
1. 目の前の人形（シェイプ）を見る。
2. その人形に「中身（子要素）」があるか確認する。
3. もし中身があれば、その中身を取り出して、手順1に戻る。
4. 中身が空っぽだったら、その人形の調査を終えて、一つ前の階層に戻る。
プログラミングの世界では、これを「ベースケース（終了条件）」と「再帰ステップ」と呼びます。
- ベースケース: 「これ以上、中身がない（グループではない）」状態。
- 再帰ステップ: 「グループなので、その中の `GroupItems` を一つずつ調べて、自分自身をもう一度呼び出す」状態。
3. 実戦：階層構造を解析する再帰コード
では、実際に動くコードを見てみましょう。
今回は、「グループ化されたシェイプの中から、特定の名前（またはタグ）を持つパーツを探し出し、その名前をコンソールに表示する」というプログラムを作成します。
Option Explicit
''' <summary>
''' メイン実行ルーチン
''' </summary>
Sub StartDeepAnalysis()
Dim shp As Visio.Shape
' ページ上のすべてのトップレベルシェイプに対して解析を開始
For Each shp In ActivePage.Shapes
Debug.Print "--- 探索開始: " & shp.Name & " ---"
' 再帰関数の呼び出し
Call AnalyzeShapeHierarchy(shp)
Next shp
MsgBox "解析が完了しました。イミディエイトウィンドウを確認してください。", vbInformation
End Sub
''' <summary>
''' シェイプの階層を再帰的に探索する関数
''' </summary>
''' <param name="targetShp">現在調査中のシェイプ</param>
Sub AnalyzeShapeHierarchy(targetShp As Visio.Shape)
Dim subShp As Visio.Shape
' 【1】 現在のシェイプに対する処理
' ここでは例として、シェイプの名前を表示します
' 本来はここで「特定の条件（タグや色など）」を判定します
Debug.Print " [Found] " & targetShp.Name & " (Level: " & GetDepth(targetShp) & ")"
' 【2】 再帰ステップ：グループ化されているかチェック
' GroupItems.Count が 0 より大きければ、そのシェイプは「親」です
If targetShp.GroupItems.Count > 0 Then
' グループ内の各サブシェイプに対して、自分自身（AnalyzeShapeHierarchy）を呼び出す
For Each subShp In targetShp.GroupItems
Call AnalyzeShapeHierarchy(subShp)
Next subShp
End If
' 【終了条件】
' GroupItems.Count が 0 の場合、ループに入らずにこの関数を抜ける
' これが「マトリョーシカを閉じるとき」に相当します
End Sub
''' <summary>
''' デバッグ用に現在の階層の深さを計算する補助関数
''' </summary>
Function GetDepth(shp As Visio.Shape) As Integer
Dim depth As Integer
depth = 0
On Error Resume Next
Do While Not shp.Parent Is Nothing
' 親がPageでない（＝シェイプである）限り、階層を遡る
If TypeOf shp.Parent Is Visio.Page Then Exit Do
depth = depth + 1
Set shp = shp.Parent
Loop
On Error GoTo 0
GetDepth = depth
End Functionコードの重要ポイント解説
1. `targetShp.GroupItems`:
ここが最大の鍵です。通常の `Shapes` コレクションではなく、グループ化された中身にアクセスするには `GroupItems` を使います。これを使わないと、グループの「殻」しか触れません。
2. 自分自身を呼ぶ (`Call AnalyzeShapeHierarchy(subShp)`):
これが再帰の心臓部です。子要素を見つけるたびに、その子要素を「新しい世界の主役」として、同じ関数に放り込みます。
3. 終了条件の自動化:
`If targetShp.GroupItems.Count > 0` という条件によって、末端のパーツ（グループではないもの）に到達したとき、自然に再帰が止まります。これを忘れると、無限ループに陥る危険があります。
4. 現場で陥りやすい「落とし穴」と回避策
伝説のエンジニアとして、あえて厳しいことも言っておきましょう。再帰は強力ですが、扱いを間違えるとシステムを壊します。
① スタックオーバーフローの恐怖
あまりにも階層が深い（例えば数千レベルのネスト）図面を処理しようとすると、メモリ（スタック領域）を使い果たしてエラーになります。Visioの図面でこれは稀ですが、大量のデータを扱う際は「階層の深さに上限を設ける」などのガードレールを設けるのがプロの仕事です。
② パフォーマンスの重み
再帰関数は、呼び出すたびにメモリ上に新しいコンテキストを作ります。`For Each` を何重にも回すよりも、オブジェクトの参照（`Set`）を多用しすぎると動作が重くなります。
対策: 探索中に「不要なプロパティ（`Text` や `Area` など）」を何度も読み取らないこと。必要な情報は、一度変数に格納して使い回しましょう。
③ 「親」と「ページ」の混同
`shp.Parent` を辿る際、親が `Page` オブジェクトなのか、別の `Shape` なのかを常に意識してください。さもないと、ページそのものをシェイプとして扱おうとして、実行時エラーが発生します。
結びに：ここからが本当のVisio開発です
いかがでしたでしょうか？
「再帰」という概念を理解し、コードに落とし込むことができれば、あなたはもう「マクロの記録」の檻から解き放たれたことになります。
複雑なマスターシェイプの構造を、まるで自分の手の一部のように操る。その感覚は、一度味わうと病みつきになりますよ。
「動かない」「エラーが出る」ときは、焦らずに `Debug.Print` を使い、今どの階層（どのレベルのマトリョーシカ）を触っているのかを、イミディエイトウィンドウで確認してください。地道な観察こそが、最強のエンジニアへの近道です。
さあ、次はあなたの手で、その複雑な図面を支配してみせましょう。応援していますよ！
