Visio VBAの深淵：AddNamedRowによる動的コンテキスト定義と生存戦略
VisioのShapeSheetは、単なるプロパティの格納庫ではない。それは、シェイプという「個体」に与えられた独立したOSであり、思考回路である。
多くのエンジニアは、Visioの右クリックメニューやカスタム属性を追加する際、GUIでの手動操作や、決め打ちのインデックス指定によるセクション操作で満足する。だが、大規模な自動化システムや、ライフサイクルの長い社内ツールを構築する際、それは「死」を意味する。
今日語るのは、`AddNamedRow`メソッドを駆使し、セクションの衝突を避けつつ、シェイプのコンテキストを安全かつ動的に拡張する「アーキテクトのための作法」だ。
—
なぜ `AddRow` ではなく `AddNamedRow` なのか
標準的な `AddRow` メソッドは、指定したセクションの末尾に行を追加する。しかし、既存の行が存在するかどうかの確認ロジックを毎回記述するのは冗長であり、かつ非効率だ。
`AddNamedRow` は、指定した行名が存在しない場合にのみ生成し、存在する場合はそのインデックスを返す。この「冪等性（Idempotency）」こそが、大規模なVBAソリューションにおいてメモリリークや予期せぬShapeSheetの破壊を防ぐ唯一の盾となる。
極限の知見：User-defined Cellsの管理
ユーザー定義セル（Userセクション）や右クリックメニュー（Actionsセクション）を動的に操作する際、行名をハードコードしてはならない。定数管理を行い、必ず `AddNamedRow` の戻り値としてインデックスを取得せよ。
—
実装：安全に右クリックメニューを動的追加する
以下は、シェイプに「独自の操作」を右クリックメニューへ注入する汎用プロシージャだ。
‘ @description: シェイプのActionセクションに安全にメニューを追加する
‘ @param shp: 対象のShapeオブジェクト
‘ @param menuName: 追加するメニュー名（行名）
‘ @param menuLabel: 右クリック時に表示されるラベル
‘ @param actionFormula: 実行されるVBAプロシージャやShapeSheet関数
Public Sub AddSafeActionMenu(ByVal shp As Visio.Shape, _
ByVal menuName As String, _
ByVal menuLabel As String, _
ByVal actionFormula As String)
Dim sec As Visio.Section
Dim rowIdx As Integer
‘ 1. セクションの存在確認と取得
Set sec = shp.Section(Visio.VisSectionIndices.visSectionAction)
‘ 2. AddNamedRowによる行の確保（冪等性の担保）
‘ 既に存在すれば既存の行インデックスが返る。なければ作成される。
rowIdx = sec.AddNamedRow(Visio.VisRowIndices.visRowAction, menuName, 0)
‘ 3. ShapeSheetセルへの書き込み
‘ メモリ最適化のため、必要最低限のセルのみを更新する
With sec.Row(rowIdx)
.Cell(Visio.VisCellIndices.visActionMenu).Formula = “””” & menuLabel & “”””
.Cell(Visio.VisCellIndices.visActionAction).Formula = actionFormula
End With
‘ 4. オブジェクトの明示的解放（VBAのメモリ管理の鉄則）
Set sec = Nothing
End Sub
—
エンジニアが守るべき3つの鉄則
1. オブジェクトのライフサイクルを制御せよ
Visioのオブジェクトモデルは、参照カウントに非常に敏感だ。ループ内で `shp.Section` を繰り返すと、バックグラウンドで不要なオブジェクトがスタックされ、複雑な図面ではパフォーマンスが劇的に低下する。必ずループの外で親オブジェクトをキャッシュし、使い終わったら `Nothing` を代入する。
2. ShapeSheetのキャッシュ戦略
`Cell.Formula` へのアクセスは、Visioの計算エンジンを起動させる重い操作だ。頻繁な更新が必要な場合は、`Application.ScreenUpdating = False` を利用して再計算を一時停止させろ。また、値が変更されていない場合は更新処理をスキップするガード節を必ず設けること。
3. API連携時の例外処理
この手法で外部システム（Web APIやDB）と連携する場合、`Actions` セクションの `Action` セルに `RUNADDON(“…”)` を仕込むのが定石だ。この際、パスが長くなると文字列のクォート処理で事故が多発する。`Chr(34)` を活用し、確実にエスケープされた文字列を注入せよ。
—
結論：システムは「壊れない」のではなく「壊せないように設計する」
我々のような自動化エンジニアにとって、コードは完成した瞬間がスタートラインである。数年後に仕様変更が入った時、昨日書いたコードが「地雷」になっていないか。`AddNamedRow` は、その問いに対する我々の回答だ。
Visioという巨大なレガシー環境において、オブジェクトの動的定義は最も強力な武器であり、同時に諸刃の剣でもある。だが、この「行レベルの冪等性」を理解した君なら、もうシェイプの混乱に怯える必要はない。
さあ、コードを書き、システムを制御し、図面という名の無秩序に秩序を刻み込め。それが、真のアーキテクトの仕事だ。
