Visio VBAを極める：コンテナ・オブジェクトによる「動的構造化」の真髄
世の中の多くのエンジニアは、Visioを単なる「お絵かきツール」と誤解している。しかし、我々のような自動化のプロフェッショナルにとって、Visioは「空間配置データモデル」である。
特に、Visio 2010から導入された「コンテナ（Container）」機能は、単なる視覚的な枠組みではない。それはシェイプ間の親子関係をプログラムで制御し、複雑な図面を「プログラム可能な構造体」へと昇華させるための鍵だ。
今日は、場当たり的なシェイプ配置から脱却し、コンテナを駆使した「堅牢で保守性の高い」図面自動生成のアーキテクチャを伝授する。
—
1. なぜ「グループ化」ではなく「コンテナ」なのか？
初心者はよく「グループ化（Group）」で構造を整理しようとする。だが、グループは破壊的だ。一度グループ化すれば、元のシェイプにアクセスするためのインデックスは変わり、階層構造の深さによってコードの可読性は地獄へと落ちる。
一方、`Shape.ContainerProperties` は以下の点で圧倒的に優れている。
- 非破壊的メンバシップ: シェイプをコンテナに入れても、シェイプ自体の位置やメタデータは独立性を保つ。
- 動的追従: コンテナを移動すれば子シェイプも追従する。これは業務フロー図やシステム構成図の動的生成において、手動修正コストをゼロにするための必須要件だ。
- メンバー管理の可視化: コードから `ContainerProperties.GetMemberShapes` を叩くだけで、そのコンテナに所属する全ての要素を瞬時に抽出できる。
—
2. 堅牢なコンテナ操作のためのプロダクションコード
以下のコードは、指定したシェイプを確実にコンテナへ追加し、かつエラーハンドリングを徹底した実用的な関数である。
‘ @brief コンテナにシェイプを安全に追加する
‘ @param targetShape 対象のシェイプ
‘ @param containerShape コンテナとなるシェイプ
Public Sub AddShapeToContainer(ByRef targetShape As Visio.Shape, ByRef containerShape As Visio.Shape)
‘ 1. コンテナ機能を持っているか厳密にチェック
If Not containerShape.ContainerProperties Is Nothing Then
‘ 2. 既にメンバーであれば二重追加を防ぐ
If Not containerShape.ContainerProperties.ContainsMember(targetShape, False) Then
‘ 3. メンバー追加の実行
‘ ※自動レイアウトが走るとパフォーマンスが落ちるため、必要に応じて画面更新を停止させること
containerShape.ContainerProperties.AddMember targetShape, Visio.VisMemberAddOptions.visMemberAddExpandContainer
End If
Else
Err.Raise vbObjectError + 1001, “AddShapeToContainer”, “指定されたシェイプはコンテナではありません。”
End If
End Sub
【設計のポイント】
- ContainsMemberの活用: `False` を指定することで、孫要素まで辿らず「直下」のメンバーシップのみを高速に判定する。
- エラーハンドリング: Visioオブジェクトは「型」の判定が曖昧になりがちだ。`ContainerProperties` が `Nothing` かどうかを必ず確認せよ。
—
3. 実務で遭遇する「罠」と回避術
A. データベース連携時のID管理
外部DB（SQL ServerやExcel等）から属性を流し込む際、VisioシェイプのID（`Shape.ID`）をキーにするのは最悪の愚策だ。IDは削除・再生成で容易に変わる。
解決策: `User.DatabaseID` のようなカスタムプロパティを定義し、そこに一意のキーを持たせること。`ContainerProperties` との併用で、データ駆動型の図面更新が可能になる。
B. 描画パフォーマンスの最適化
数千個のシェイプをコンテナに放り込む際、`Application.ScreenUpdating = False` を忘れてはならない。Visioの描画エンジンは、シェイプが追加されるたびにレイアウト計算を試みる。大量処理時は、最後に一度だけ `ContainerProperties.UpdateMembership` を呼び出すのが定石だ。
—
4. 運用保守を見据えた「リスト化」の思想
コンテナを制御する際、特定の種類のシェイプだけを抽出して処理したい場面は多い。その際は、以下のようにメンバーを走査するイテレータパターンを構築せよ。
Public Sub ProcessContainerMembers(ByVal containerShape As Visio.Shape)
Dim memberShapes() As Long
memberShapes = containerShape.ContainerProperties.GetMemberShapes(Visio.VisMemberNavigator.visMemberNavigatorContainer)
Dim i As Long
For i = LBound(memberShapes) To UBound(memberShapes)
Dim shp As Visio.Shape
Set shp = ActivePage.Shapes.ItemFromID(memberShapes(i))
‘ ここでメタデータの更新や書式設定を行う
Debug.Print “Processing: ” & shp.Name
Next i
End Sub
—
最後に：エンジニアとしての矜持
Visio VBAは「レガシーな技術」ではない。「可視化を自動化する唯一無二のプラットフォーム」だ。
コンテナを使いこなすということは、図面という「静的な成果物」の中に「動的な論理構造」を埋め込むことに他ならない。コードをコピペして動かすだけでなく、なぜこの設計が必要なのかを考え抜いてほしい。
君が組むその自動化ツールが、誰かの無駄な手作業を根絶し、エンジニアとしての価値を証明することを期待している。
実装で壁にぶつかったら、また戻ってこい。Visioの深淵は、まだまだ深い。
