Visio VBAの深淵：Characterオブジェクトによる「精密なテキスト描画」の極意
Visioのオートメーションにおいて、`Shape.Text = “…”` と記述するのは初心者の入り口に過ぎない。我々のようなシステムアーキテクトが直面するのは、数百のシェイプに対して動的にデータを流し込み、かつ、特定のキーワードだけを強調表示させ、さらにレイアウトの崩壊を防ぐという「高密度なレンダリング」の要求だ。
本稿では、`Characters`オブジェクトを駆使した部分書式設定の理論と、メモリを浪費せずに大規模な図面を生成するための極限のテクニックを伝授する。
—
1. 文字列操作のパラダイムシフト：TextプロパティからCharactersオブジェクトへ
Visioの`Shape.Text`は便利だが、文字列を上書きするたびに内部でリフレッシュ処理が走り、パフォーマンスを著しく低下させる。部分的な書式設定が必要な場合、`Characters`プロパティを介したオフセット指定が唯一の解となる。
重要なのは、「Visioの文字位置は0始まりのインデックスで管理されている」という点だ。このインデックス管理を誤ると、実行時エラーや文字化けを誘発する。
実装の勘所：部分書式設定のコード例
‘ @brief 指定したシェイプ内の特定文字列を強調表示する
‘ @param shp 対象のShapeオブジェクト
‘ @param targetText 強調対象の文字列
Public Sub HighlightText(ByRef shp As Visio.Shape, ByVal targetText As String)
Dim chrs As Visio.Characters
Dim startPos As Long
‘ 内部キャッシュを保護するため、Setは最小限に
Set chrs = shp.Characters
‘ Instrでインデックスを取得 (戻り値は1ベースのため調整が必要)
startPos = InStr(1, chrs.Text, targetText, vbTextCompare)
If startPos > 0 Then
‘ キャラクター範囲を指定して属性を変更
‘ BeginとEndをインデックスで制御
With chrs
.Begin = startPos – 1
.End = startPos – 1 + Len(targetText)
‘ フォント設定を直接操作
.CharProps(Visio.visCharacterColor) = 2 ‘ 赤色
.CharProps(Visio.visCharacterSize) = 14
End With
End If
‘ オブジェクトの解放（VBAでも明示的なNothingは大規模処理で効く）
Set chrs = Nothing
End Sub
—
2. 大規模描画におけるメモリ最適化と「アンチ・パターンの回避」
数千のシェイプを扱うシステムで最も多い失敗が、ループ内での`Characters`オブジェクトの濫造だ。VisioのCOMインターフェースは、プロパティ呼び出しごとにスタックを消費する。
伝説的エンジニアの知見：メモリ管理の鉄則
- イベントの無効化: `Application.DeferRecalc = True` を活用せよ。これを怠ると、文字列を一文字変更するたびにVisioが再描画（Recalculate）を行い、処理時間が指数関数的に増大する。
- Objectのスコープ: ループ内で`Set chrs = Nothing`を徹底せよ。COM参照カウントの解放を待機するガベージコレクタに頼るな。
‘ パフォーマンスを最大化する一括処理テンプレート
Public Sub BatchUpdateShapes()
Dim app As Visio.Application
Set app = Application
‘ 再計算を抑制し、パフォーマンスを向上させる
app.DeferRecalc = True
On Error GoTo Cleanup
‘ ここでループ処理を行う
Cleanup:
app.DeferRecalc = False
‘ 参照の明示的破棄
Set app = Nothing
End Sub
—
3. レガシー連携：外部データとVisio文字列の同期
社内データベースやAPIから取得したデータをテキストとして流し込む際、改行コードの制御は鬼門だ。Visioの内部改行は `vbCr` (Chr(13)) が標準だが、OSやデータのソースによっては `vbCrLf` が混入し、レイアウトが崩壊する。
極限のテクニック：
外部データを挿入する際は、必ず `Replace(data, vbCrLf, vbCr)` を噛ませ、さらに `Shape.TextFormat` でテキストの折り返し設定（`ParaProps(visParaHorzAlign)`）をハードコーディングではなく、マスターシェイプのプロパティから継承するように設計せよ。
—
4. 総括：Visioは「図形」ではなく「データ構造」である
Visio VBAをただの自動化ツールと侮ってはならない。各シェイプは独自のセル構造を持つ「小さなデータベース」である。`Characters`プロパティを制御するということは、そのデータベースのデータ型を操作することと同義だ。
- APIの境界を理解する: 複雑すぎる書式設定は、VBAでやるべきではなく、Visioの「シェイプシート（ShapeSheet）」側に計算式を追い出し、VBAからは`Cell.Formula`を書き換えるだけに留めるのが、メンテナンス性を担保するアーキテクトの矜持である。
このアプローチこそが、10年後も動く堅牢なシステムを構築するための唯一の道だ。諸君、コードを書く前に、まずシェイプシートを覗き込む習慣を身につけよ。そこには、Visioの真の設計思想が眠っている。
