Visio VBAを極める：Characterオブジェクトによる「動的テキスト制御」の極意
多くのエンジニアが、Visioの自動化において`Shape.Text = “文字列”`という単純な代入で満足している。だが、それは「Visioの可能性の1%」に触れているに過ぎない。
実務で求められるのは、データベースから抽出したデータを、条件に応じて色分けし、かつレイアウトを崩さずにシェイプへ流し込むという「高度な動的描画」だ。本稿では、`Character`プロパティを使いこなし、堅牢で保守性の高いコードを書くための秘訣を伝授する。
—
1. なぜ「Text代入」ではいけないのか
`Shape.Text` プロパティへの直接代入は、シェイプ内の既存の書式設定（フォント、サイズ、カラー）をすべて破壊する。一度代入すれば、過去の努力は霧散し、すべての文字がデフォルトのスタイルにリセットされるからだ。
真の自動化エンジニアは、「既存の書式を維持しつつ、必要な箇所だけをインジェクションする」というアプローチを取る。ここで登場するのが `Characters` オブジェクトである。
—
2. 実践：Charactersオブジェクトによる部分制御の設計
`Characters`オブジェクトは、文字の開始位置と終了位置を指定して操作を行う。ここで重要なのは、「文字を挿入・置換する際は、常にインデックス（位置）を再計算せよ」という鉄則だ。
プロダクションコード例：動的テキスト挿入のベストプラクティス
以下は、シェイプ内の文字列を維持しつつ、特定のキーワードを赤色に強調し、動的に値を差し込む関数である。
‘ @brief シェイプ内の特定のテキストを置換し、部分的に色を変更する堅牢な関数
‘ @param shp 操作対象のVisio Shapeオブジェクト
‘ @param targetText 置換対象のプレースホルダー
‘ @param replacementValue 差し込む値
Public Sub UpdateShapeTextDynamic(ByRef shp As Visio.Shape, _
ByVal targetText As String, _
ByVal replacementValue As String)
Dim chrs As Visio.Characters
Dim startPos As Long
‘ 1. 文字列操作を開始
Set chrs = shp.Characters
‘ 2. 対象文字列の開始位置を検索（見つからない場合は終了）
startPos = InStr(1, chrs.Text, targetText)
If startPos = 0 Then Exit Sub
‘ 3. 置換実行
‘ Begin/Endを指定して範囲を特定
chrs.Begin = startPos – 1
chrs.End = startPos + Len(targetText) – 1
chrs.Text = replacementValue
‘ 4. 部分書式設定：ここが重要
‘ 置換した後の範囲に対して色を設定
chrs.Begin = startPos – 1
chrs.End = startPos + Len(replacementValue) – 1
‘ ColorプロパティはRGB値を受け取る
chrs.CharProps(visCharacterColor) = RGB(255, 0, 0)
chrs.CharProps(visCharacterSize) = 12 ‘ 必要に応じてサイズ変更
‘ 【重要】パフォーマンスと安定性のためのクリーンアップ
Set chrs = Nothing
End Sub
—
3. 実務で「詰む」ポイント：3つの回避策
① ファイル・DB連携時の文字化けと改行コード
外部ソース（CSVやDB）から文字列を取得する際、OSの改行コード（`vbCrLf`）とVisioの内部コード（`vbCr`）の不一致がレイアウト崩壊を招く。
- 対策: データを流し込む前に、`Replace(data, vbCrLf, vbCr)` を介してVisioが解釈可能な形式に必ず正規化すること。
② 文字列挿入後のインデックスずれ
`Characters`オブジェクトの `Begin` と `End` は、テキストを書き換えるたびに再計算が必要になる。
- 設計のヒント: 複雑なレイアウトを行う場合は、文字列を一度に組み立ててから代入するのではなく、「後ろの文字から先に操作する」か、「操作のたびに文字列長を計測して変数を更新する」というイテレーティブな設計を徹底せよ。
③ パフォーマンスの罠
シェイプ数千個に対してループ処理で `Characters` を操作すると、Visioのレンダリングが追いつかず、処理時間が倍増する。
- 究極の回避策: `Application.ScreenUpdating = False` を利用するのは基本だが、さらに `Shape.Cells(“LockTextEdit”).Formula = True` で編集をロックしてから操作し、最後に解除することで、描画負荷を劇的に低減できる。
—
最後に：エンジニアとしての矜持
VisioのVBAは、一見すると古い技術に見えるかもしれない。しかし、複雑なシステム構成図や設備レイアウトを、人間が手作業で修正するのは非効率の極みだ。
今回紹介した `Characters` オブジェクトの操作は、単なる文字列操作ではない。「情報の構造を壊さずに、必要な文脈だけを上書きする」という、データドリブンな設計思想そのものだ。
このコードをただコピペするだけでなく、あなたの抱える業務の「ボトルネック」を見極め、この手法でどう自動化するかを考えてほしい。その一歩が、あなたのエンジニアリングを次のレベルへ押し上げるはずだ。
何か技術的な壁にぶつかったら、またここへ戻ってきなさい。次の最適解を準備しておこう。
