Visioオートメーションの深淵：CellsUによるシェイプデータ操作の流儀
Visioを単なる「お絵描きツール」と見なす人間は、このツールの本質を見誤っている。Visioは、幾何学的な位置情報とビジネスロジックを結びつける、極めて強力な「グラフィカル・データベース」だ。
シニアエンジニア諸君、ExcelのデータをVisioへ流し込む際、`Shape.Cells`プロパティを安易に使っていないか？ その「U」の欠落こそが、将来的な言語ロケール依存のバグを生む温床となる。
今回は、堅牢なデータ連携の第一歩として、`CellsU`を用いたシェイプデータ（旧カスタムプロパティ）の極致を解説する。
—
1. なぜ「CellsU」でなければならないのか
VisioのCellオブジェクトには `Cells` と `CellsU` が存在する。
- Cells: ローカル言語（OSの言語設定）に依存する。日本語環境で書いたコードが英語環境で動かない主な原因だ。
- CellsU: ユニバーサル名（英語定義名）。グローバルな開発環境ではこれ一択である。
シェイプデータにアクセスする際、セクション名 `Prop` と行名（例: `Row_1`）を正確に指定する必要がある。UI上のラベル名に惑わされてはいけない。ShapeSheetを確認し、背後にあるユニバーサル名で叩くのがアーキテクトの矜持だ。
—
2. 極限のコード：メモリリークを許さない実装
VBAは、オブジェクトのライフサイクル管理を怠ると、すぐにゾンビプロセスを残す。特にVisioの巨大なドキュメントを扱う際、COMオブジェクトの解放を怠れば、メモリ消費は雪だるま式に増大する。
以下は、Excelから図形へデータを注入する際、必ず守るべき「メモリ解放の作法」を取り入れたコードだ。
Option Explicit
‘ @brief 指定した図形のシェイプデータに値を書き込む
‘ @param shp 対象のVisio.Shapeオブジェクト
‘ @param propName シェイプデータの行名（ユニバーサル名）
‘ @param value 書き込む値
Public Sub SetShapeData(ByVal shp As Visio.Shape, ByVal propName As String, ByVal value As String)
Dim cell As Visio.Cell
‘ セクション名: Prop, プロパティ名: propName, フィールド: Value
‘ “Prop.” & propName & “.Value” というユニバーサルなパスを指定
If shp.CellExistsU(“Prop.” & propName & “.Value”, 0) Then
Set cell = shp.CellsU(“Prop.” & propName & “.Value”)
‘ 文字列のセット。数式として処理されるため、値が文字列ならクォートで囲む必要がある
cell.FormulaU = “””” & value & “”””
‘ コンパイルエラーやメモリ残滓を防ぐための明示的解放
Set cell = Nothing
Else
Debug.Print “Error: Property ” & propName & ” not found on shape ” & shp.Name
End If
End Sub
—
3. アーキテクトからの助言：パフォーマンスと堅牢性
① オブジェクトの明示的解放は「呪文」ではない
VBAのGC（ガベージコレクション）に期待してはいけない。`Set obj = Nothing` を行うことは、参照カウントを減らし、早期解放を促すための「規律」である。特にループ処理内で大量のシェイプを回す際は、この一手間が数分間の処理時間を数秒に短縮する鍵となる。
② CellExistsUによる事前チェック
`CellsU` を呼び出す前には、必ず `CellExistsU` を噛ませろ。存在しないセルにアクセスしようとすれば、Visioは例外を投げる。この例外を放置することは、バッチ処理の停止を意味する。
③ Windows APIの活用（発展的知見）
もし、Visioの処理中にExcel側のダイアログを制御したり、特定のメモリ領域に高速アクセスする必要がある場合は、`Declare PtrSafe` を用いてWindows APIを叩くことになるだろう。しかし、Visio VBAにおいて最も重要なのは「Visioの再描画を止めること」だ。
‘ 処理速度を劇的に向上させる魔法
Application.ScreenUpdating = False
‘ … 処理本体 …
Application.ScreenUpdating = True
この一行を書かないだけで、処理時間は10倍に跳ね上がる。画面描画の更新は、Visioにとってもっとも高コストなタスクの一つなのだから。
—
まとめ：レガシーを制御下に置くために
Visioのデータ連携は、単なる「値の代入」ではない。それは、シェイプという「オブジェクト」の内部状態を、論理的なデータベースの状態と同期させる「整合性維持の戦い」である。
初心者はコードを書き、シニアは構造を考える。
シェイプデータという小さな窓口から、Visioという巨大なエンジンの深層に触れてほしい。この基礎をマスターした諸君であれば、次はイベントハンドリングや、独自のShapeSheet関数への拡張へとステップアップできるはずだ。
準備はいいか。次の自動化は、完璧なものに仕上げろ。
