Visio VBAを極める：多重グループの「深淵」を突き抜けるルート探索術
現場の自動化ツールを開発していると、必ず直面する壁がある。それが「グループ化されたシェイプの制御」だ。
特にVisioのオブジェクトモデルにおいて、`Shape`オブジェクトがどのグループに属しているかを判定するのは、一見単純に見えて、実は「設計の甘さ」が露呈しやすい領域である。単なるループ処理で親を辿るコードを書いているようでは、複雑な図面を扱うエンジニアとしては失格だ。
今日は、多重グループの最上層（ルート）を確実に特定し、かつ実務で耐えうる堅牢なアルゴリズムを授ける。
—
1. なぜ「単純な親探索」で事故が起きるのか
多くの開発者は、`Shape.Parent`プロパティをループで回して親を辿ろうとする。しかし、ここには致命的な罠がある。
- 型判定の欠如: `Shape.Parent`は`Page`や`Document`を返すこともある。`Shape`型であると決め打ちしてキャストすると、最上位に達した瞬間に実行時エラー（型不一致）でツールがクラッシュする。
- 無限ループの懸念: 万が一、循環参照的な構造（極めて稀だが）や、特殊なグループ構造に遭遇した際、脱出条件が甘いとVisioそのものがフリーズする。
- パフォーマンスの軽視: 大規模な図面（シェイプ数が数千を超えるもの）で、深い階層を何度も探索する処理を安易に書けば、UIの応答性は劇的に低下する。
「動けばいい」コードは、半年後の自分が保守する際に必ず足元をすくう。プロダクションコードに求められるのは、「例外を許容するのではなく、例外が発生しない構造」だ。
—
2. 最上層ルート特定アルゴリズムの実装
ここに示すコードは、多重グループの深淵を駆け上がり、確実に「最も外側の親」を特定する関数だ。再帰ではなく、あえてイテレーティブ（反復）な手法を採用することで、スタックオーバーフローのリスクを排除している。
‘ =================================================================
‘ @brief 多重グループ化されたシェイプから最上位グループを取得する
‘ @param shp 対象のシェイプ
‘ @return 最上位の親シェイプ。自身が最上位ならNothingを返す
‘ =================================================================
Public Function GetRootShape(ByVal shp As Visio.Shape) As Visio.Shape
Dim currentShp As Visio.Shape
Dim parentObj As Object
Set currentShp = shp
‘ 親がShape型である限り遡り続ける
Do While TypeOf currentShp.Parent Is Visio.Shape
Set currentShp = currentShp.Parent
‘ 循環参照や異常構造への保険として、一定階層でガードを設けるのも一手だが、
‘ Visioの標準的なグループ構造であればこのループで十分機能する
Loop
‘ ループを抜けた時点でcurrentShpは「親がShapeではない(Page等)」状態
‘ 自身がすでに最上位であれば、入力そのものが戻るため、
‘ 「自身より外側に親がいるか」を判定して返す
If currentShp Is shp Then
Set GetRootShape = Nothing
Else
Set GetRootShape = currentShp
End If
End Function
このコードの「賢さ」
1. `TypeOf`による型ガード: `Parent`が`Shape`か否かを確実に判定することで、型不一致エラーを完全に排除している。
2. イテレータによる最適化: 再帰処理はコードが短くなるが、メモリ消費とスタック負荷が高い。`Do While`ループを採用することで、数千のシェイプ構造でも安定した挙動を保証する。
3. インターフェース指向: `Parent`が`Page`や`Master`であっても柔軟に対応できる設計だ。
—
3. 実務運用における注意点：データベースと連携するなら
この関数を使って図面の構造を抽出し、データベースへ保存するようなツールを作る場合、以下の点に留意せよ。
- GUIDの活用: シェイプの名前（`Name`）はユーザーによって変更される可能性がある。データベースのキーとして使うなら、`Shape.UniqueID`（`visGetOrMakeGUID`フラグ付き）を必ず利用すること。
- トランザクションの意識: シェイプの階層を走査してDBへ書き込む際、図面側を編集するなら`Document.UndoScopeID`を用いて処理をひとまとめにせよ。さもなくば、Ctrl+Zの挙動が崩壊し、ユーザーの信頼を失う。
- キャッシュ戦略: 大規模な図面で何度もこの関数を呼ぶのは無駄だ。一度ルートを特定したら、その結果を`Scripting.Dictionary`等でキャッシュし、探索コストをO(1)に抑える工夫が、真のエンジニアの流儀である。
—
結論：コードは「対話」である
今回紹介したアルゴリズムは、単なる階層探索ツールではない。Visioという巨大なオブジェクトの海の中で、自分が今どこにいて、全体像のどこに位置しているのかを正しく認識するための「羅針盤」だ。
「なぜこの書き方なのか」を説明できないコードは、いずれ負債となる。このロジックをベースに、あなたの自動化ツールをより堅牢なものへ進化させてほしい。
技術は裏切らない。だが、設計の手抜きは必ず結果に跳ね返る。プロとして、妥協のない実装を追求し続けよう。
