Visio VBAを掌握せよ：User-Defined Cellsを操る「防御的設計」の極意
多くのエンジニアがVisio VBAに挫折する理由は、オブジェクトモデルの不透明さにある。特に「ShapeSheet」という強力かつ魔窟のような領域を、コードからどう安全に制御するか。これは自動化の成否を分ける境界線だ。
今回は、Visio図形に独自のメタデータを埋め込むための生命線、「User-Defined Cells（ユーザー定義セル）」の動的構築について、実務の最前線で通用する堅牢な実装論を授ける。
—
1. なぜ「力技」がシステムを破壊するのか
多くの初心者は、何も考えずに `Shape.AddRow` を連発する。しかし、存在を確認せずに同じ名前のセルを追加しようとすれば、Visioは即座に例外を投げ、処理は中断される。
また、データベースや外部ファイルから取得した値を直接書き込む際、セルの存在確認を怠ることは「技術的負債」を即時発行する行為だ。「あるはずだ」という甘えを捨て、「ないかもしれない」という前提で設計する。 これがプロのコードだ。
—
2. 堅牢な実装のための黄金則：RowExistsとAddRowの連携
VisioのShapeSheet操作において、最も重要なメソッドは `RowExists` である。これに尽きる。
以下のコードは、指定した名前のユーザー定義セルが存在しなければ作成し、存在すれば既存の値を更新する。この「冪等性（べきとうせい）」の確保こそが、何度も実行される業務自動化ツールの鉄則だ。
実践：安全なセル構築プロシージャ
‘ @brief 指定したShapeにユーザー定義セルを動的に追加・更新する
‘ @param shp 対象のVisio Shapeオブジェクト
‘ @param cellName セル名（例: “ConfigID”）
‘ @param cellValue 格納する値
Public Sub SetUserDefinedCell(ByRef shp As Visio.Shape, ByVal cellName As String, ByVal cellValue As String)
Dim rowIdx As Integer
Dim secIdx As Integer
‘ ユーザー定義セクション（visSectionUser）のインデックスを取得
secIdx = Visio.VisSectionIndices.visSectionUser
‘ セルが既に存在するか確認（RowExistsの真価はここにある）
‘ 引数：セクション, 行名, フラグ（0は既存の行を探す）
If shp.RowExists(secIdx, cellName, 0) Then
‘ 既存の場合はその行のインデックスを取得
rowIdx = shp.CellsRowIndex(secIdx, cellName)
Else
‘ 存在しない場合は新規作成
rowIdx = shp.AddRow(secIdx, cellName, Visio.VisRowTags.visTagDefault)
End If
‘ 値を書き込む（FormulaUを使うのが定石：ローカライズの影響を受けない）
‘ 文字列を格納する場合はダブルクォーテーションで囲む必要がある
shp.CellsSRC(secIdx, rowIdx, 0).FormulaU = “””” & cellValue & “”””
End Sub
—
3. アーキテクトの視点：なぜこの書き方なのか
このコードには、単なる「動くコード」以上の意図が隠されている。
1. `FormulaU` の採用:
`Formula` ではなく `FormulaU` を使う理由は、言語設定や地域設定（ロケール）に依存しないためだ。グローバルな環境で配布するツールにおいて、これは必須の作法である。
2. ダブルクォーテーションの処理:
VisioのShapeSheet内での文字列は、常に `”` で囲まれている必要がある。VBA側で値を渡す際、`”””” & value & “”””` と書くことで、ShapeSheet側では `”value”` として解釈される。このエスケープ処理の不備は、データ読み込み時のバグの温床となる。
3. 引数の `ByRef` 明示:
Shapeオブジェクトはメモリを消費する。参照渡し（`ByRef`）にすることで、無駄なオブジェクトコピーを防ぎ、パフォーマンスを最適化する。
—
4. プロダクション環境における注意点
業務自動化ツールとして運用する場合、以下の3点を意識してほしい。
- データベース連携:
外部DBから取得した値をセルに埋め込む際は、必ず `Replace(value, “”””, “‘”)` のように、ShapeSheetの文法を破壊する文字をサニタイズすること。さもなくば、ある日突然「数式エラー」が図形を襲うことになる。
- イベントハンドリング:
セルを大量に書き換えると、Visioの再描画が発生しパフォーマンスが著しく低下する。`Application.ScreenUpdating = False` を活用し、処理の最後で一気に更新を反映させるのが「伝説のエンジニア」の嗜みだ。
- 保守性の確保:
ハードコーディングは避け、セル名は定数（`Const`）としてモジュールの冒頭で管理すること。将来的な仕様変更に対して、コード全体を書き換えるような愚行は避けるべきだ。
—
結びに代えて
Visio VBAは、古臭い言語だと思われがちだ。しかし、この「ShapeSheet」という強力なエンジンを制御下に置くことができれば、それは単なる図形描画ソフトではなく、データとロジックを統合した「ビジュアル・データベース」へと変貌する。
今回伝授した「安全なセル追加」は、その入り口に過ぎない。この設計思想を武器に、誰が触っても壊れない、極めて堅牢な自動化ツールを作り上げてほしい。
君たちのコードが、現場の無駄を削ぎ落とし、価値ある時間を生み出すことを期待している。
