Visio VBAの深淵：CellsSRCによる「名前依存」からの脱却と、極限のパフォーマンスチューニング
Visioのオートメーションにおいて、`Cells(“Width”)`や`CellsU(“Prop.Manufacturer”)`といった文字列指定のプロパティアクセスに頼り切っていないか？
もしそうなら、君のコードは「低速」かつ「言語環境依存」という二重の足枷を負っている。大規模な図面処理や、リアルタイム性が求められるシステム連携において、文字列解析を伴うアクセスは、本来不要なオーバーヘッドだ。
今日は、Visioの心臓部であるShapeSheetへダイレクトにアクセスする、最もプリミティブかつ強固な手法「`CellsSRC`」について語る。これは、プロフェッショナルが避けては通れない、最適化の極致だ。
—
1. なぜ「文字列指定」を捨てるのか？
`CellsU(“Width”)`などを呼ぶ際、Visioのエンジンは内部で「文字列のパース」と「該当セルの検索」を行っている。数千、数万のシェイプを反復処理する際、このコストは無視できない。
対して、`CellsSRC`はセクション・行・列のインデックス（数値）を直接指定する。これはOSのシステムコールに近い感覚だ。
- 言語非依存: ユーザーのOS言語や設定に左右されない（”Width”が”Breite”になる環境でも不変）。
- 高速性: 文字列照合をスキップし、メモリアドレスのオフセットに近い物理的な位置を直接叩く。
- 堅牢性: 名前変更による事故を防ぐ。
—
2. CellsSRCによる実装の極意
`CellsSRC`の基本形は以下の通りだ。
‘ visSectionObject = 1, visRowLock = 1, visLocLockWidth = 0
shp.CellsSRC(visSectionObject, visRowLock, visLocLockWidth).FormulaU = “TRUE”
これを実務レベルで使いこなすには、Visioの内部定数表と向き合う覚悟が必要だ。以下に、シェイプの幅を強引に書き換える実用的なコードを示す。
実装例：最適化されたシェイプ操作
Public Sub ForceSetWidth(shp As Visio.Shape, widthValue As Double)
‘ 厳密なエラーハンドリングとオブジェクトの生存確認
If shp Is Nothing Then Exit Sub
‘ CellsSRCは高速だが、無効なインデックスは即座に例外を吐く。
‘ 事前にGuardを設定するなど、守りを固めるのがアーキテクトの矜持だ。
On Error Resume Next
Dim cell As Visio.Cell
‘ Section: visSectionObject (1)
‘ Row: visRowXForm (3)
‘ Column: visXFormWidth (2)
Set cell = shp.CellsSRC(visSectionObject, visRowXForm, visXFormWidth)
If Err.Number = 0 Then
‘ FormulaUを用いることで、ロケールを無視した数値代入を強制する
cell.FormulaU = CStr(widthValue)
End If
On Error GoTo 0
‘ オブジェクトの明示的解放（VBAではスコープ終了時にGCが働くが、
‘ 大規模ループ内では明示的なNothing代入がメモリ断片化を防ぐ）
Set cell = Nothing
End Sub
—
3. レガシーシステムを掌握する：メモリ管理の鉄則
Visio VBAで最も多くのバグとメモリリークを生むのは、「アプリケーションオブジェクトの掴み方」と「イベントの連鎖」だ。
1. Applicationオブジェクトをキャッシュせよ: ループ内で `Visio.Application` を何度も参照するのは罪だ。プロシージャの先頭で参照を固定せよ。
2. `Application.BeginUndoScope` / `EndUndoScope` の活用: 何万ものセル書き換えを行う際、これを使わないと、Visioは全ての操作をUndoスタックに積み上げ、メモリを食いつぶし、処理速度が指数関数的に低下する。
3. `EventEnabled` の一時的停止: 多数のセルを更新する際、`ShapeSheet`が変更されるたびにイベントが発火しては計算コストが跳ね上がる。処理の前後で `Application.EventEnabled = False` を検討せよ。
—
4. 伝説のアーキテクトからの提言
君たちが構築しているそのシステムが、もし「10年後も動いている必要がある」ならば、`CellsU`のような甘美だが不安定なインターフェースに依存してはならない。
`CellsSRC`を使いこなすことは、Visioという巨大なブラックボックスの内部構造を理解しているという証明だ。
- 定数テーブルの定数化: `visSectionObject`といった数値をハードコードせず、Enum定義を別モジュールにまとめよ。
- Windows APIとの連携: もしシェイプのレンダリングや描画の遅延が問題になるなら、`LockWindowUpdate`（user32.dll）を呼び出し、画面描画を停止させてから一括更新をかける。これがプロの領域だ。
Visioのオートメーションは、単なるマクロの集合体ではない。それは、グラフィカルなデータ構造を操作する「エンジニアリング」そのものだ。今日から文字列指定の記述を一つずつ見直し、数値による直接制御へとコードを昇華させてほしい。
それが、レガシーを支配する唯一の道だ。
