Visioコンテナの深淵：Shape.ContainerPropertiesが導く「動的自動化」の解法
Visioの真価は、単なる描画ツールとしての側面ではなく、「メタデータを内包したグラフ構造の自動生成エンジン」にある。多くのエンジニアが`Group`オブジェクトの取り扱いに疲弊し、相対座標の計算で泥沼にはまる中、真のプロフェッショナルは`ContainerProperties`を武器にする。
今回は、GUI操作の代替ではない、コードベースでの「コンテナ設計」の極致を解説する。
—
1. なぜ「グループ」ではなく「コンテナ」なのか
古参のVisioエンジニアほど、`Group`を乱用する傾向がある。しかし、グループは座標計算のオーバーヘッドが大きく、再帰的な構造化においてメモリリークや描画の不整合を招きやすい。
対して`ContainerProperties`は、以下の点で圧倒的な優位性を持つ。
- 動的リサイズ: 子シェイプの増減に応じたコンテナの自動拡張。
- イベント駆動の追従: メンバーシップがIDベースで管理されるため、座標計算からの解放。
- リスト構造のネイティブサポート: 順序制御がプロパティレベルで完結する。
—
2. 実践：動的コンテナ構築のアーキテクチャ
以下は、任意のシェイプ群をコンテナに動的に格納し、構造を最適化する実践的なコードだ。ここでは、COM参照のコストを最小化し、メモリをクリーンに解放するための「チーフアーキテクト流」の流儀を示す。
‘ Visioコンテナ操作のベストプラクティス
Public Sub OrganizeIntoContainer(ByVal targetShapes As Collection, ByVal containerMasterName As String)
Dim vsoPage As Visio.Page
Dim vsoContainer As Visio.Shape
Dim vsoShape As Visio.Shape
Dim vsoContainerProps As Visio.ContainerProperties
‘ 1. エラーハンドリングとメモリ最適化の準備
On Error GoTo Cleanup
Set vsoPage = Application.ActivePage
‘ 2. コンテナの生成（マスターから生成するのが最も安定する）
‘ ※マスター名が不明な場合は、ドキュメント内のステンシルを精査すること
Set vsoContainer = vsoPage.Drop(vsoPage.Document.Masters(containerMasterName), 0, 0)
Set vsoContainerProps = vsoContainer.ContainerProperties
‘ 3. 子シェイプの動的追加
‘ ここで重要なのは、AddMemberメソッドの引数に「visMemberAddOptionNone」を指定し、
‘ 不要な再計算をトリガーさせないことである。
For Each vsoShape In targetShapes
If vsoContainerProps.CanBeMember(vsoShape) Then
vsoContainerProps.AddMember vsoShape, Visio.VisMemberAddOptions.visMemberAddOptionNone
End If
Next vsoShape
‘ 4. コンテナの自動調整を強制実行
‘ 最後に一括でレイアウトを更新することで、API呼び出し回数を減らしパフォーマンスを稼ぐ
vsoContainerProps.FitContainerToContents
Cleanup:
‘ 5. メモリの明示的解放（VBAにおける生存期間管理の鉄則）
Set vsoContainerProps = Nothing
Set vsoContainer = Nothing
Set vsoPage = Nothing
If Err.Number <> 0 Then
Debug.Print “Error: ” & Err.Description
End If
End Sub
—
3. シニアエンジニアが知るべき「メモリと境界」
オブジェクトの生存期間管理（Liveness Management）
VisioのCOMオブジェクトは、参照カウンタが非常に敏感だ。特に`ContainerProperties`を保持したままループ処理を回すと、バックグラウンドでの再描画リクエストがスタックされ、処理速度が指数関数的に低下する。
- 対策: `Application.ScreenUpdating = False`を必ず活用せよ。コンテナの再計算は、全処理の直後に一度だけ行うのが、大規模図面を扱う際の鉄則だ。
Windows APIとの連携（Win32アプローチ）
極稀に、Visioの描画エンジンが追いつかないほど巨大なコンテナを扱う場合、`SendMessage`を用いて`WM_SETREDRAW`を制御し、メッセージキューをフラッシュする必要がある。これは、Visioの標準VBAだけでは制御不能な「描画のスタック」を強制終了するための外科手術的アプローチだ。
—
4. 保守性とシステム間連携
この手法の最大の利点は、データ駆動（Data-Driven）な図面生成が可能であることだ。
JSONやRDBから抽出した階層データを、この`ContainerProperties`を再帰的に呼び出すことで、数百個のノードを数秒で整合性の取れた図面に落とし込める。
もし、貴殿が「手作業でグループを解除しては追加する」という地獄のような作業を自動化しようとしているのであれば、今すぐそのコードを捨て、`ContainerProperties`のインターフェース設計に頭を切り替えるべきだ。
アーキテクトからの提言
Visioは、ただの「お絵かきソフト」ではない。
`ContainerProperties`を極めることは、図面という「静的なドキュメント」を、データと連動する「ライブ・システム」へと昇華させることと同義である。
次のフェーズでは、`Shape.DataItems`との連携による、コンテナごとの動的集計ロジックについて深掘りすることにする。準備はいいか。
