Visio VBAを掌握する極限の知見：Shape.Textの罠を断つ！部分書式を死守するCharセクション制御術
業務自動化エンジニアの皆さん、日々のVisio VBA開発でお疲れ様です。
大量の図形生成、動的なステータス変更、データベースからの情報反映――。Visioを使った自動化において、図形内のテキスト操作は避けて通れないコア処理です。
しかし、ここであなたに問いたい。
「`MyShape.Text = “新しいテキスト”` と書いて、図形に設定していたフォントサイズ、色、太字などの部分書式がすべて吹き飛んだ」 という悪夢を、過去に何度経験しただろうか？
Visio VBAの初心者が最初に踏む地雷が、この `Shape.Text` プロパティの仕様だ。
今回は、この「スタイル破壊」のメカニズムをロジカルに解剖し、ShapeSheetの裏側を完全掌握した上で、既存の部分書式を1ミリも崩さずにテキストだけを安全に書き換えるプロダクションコードを授与する。
—
なぜ `Shape.Text = “…”` は愚行なのか？
結論から言おう。`Shape.Text` プロパティへの直接代入は、図形が持つテキスト全体のデータ構造を丸ごと初期化（リセット）する。
Visioの内部アーキテクチャにおいて、図形のテキストは単なる文字列ではない。文字ごとの装飾（フォント、サイズ、カラー、イタリックなど）を保持する「リッチテキスト（RTFに近い概念）」として管理されている。
単純に文字列を代入するということは、「これまでの装飾情報はもう要りません。デフォルトの文字スタイルで上書きしてください」とVisioに命令していると同義なのだ。
例えば、「重要： 処理完了」というテキストがあり、「重要：」だけを赤く太字にしていたとする。ここに `Shape.Text = “重要： 処理中”` とコードを書いた瞬間、そのこだわりは無慈悲に消し去られ、全文字が均一な平坦なテキストと化す。
これを防ぐためには、`Shape.Text` ではなく、`Characters` オブジェクト と ShapeSheet の `Char` セクション を正しく連携させる必要がある。
—
堅牢な設計アプローチ：Charactersオブジェクトの正しい召喚
部分書式を保持したままテキストを変更・追加するには、以下の原則を守らなければならない。
1. 文字列の「置換（Replace）」を使う
テキスト全体を置き換えるのではなく、特定のキーワードや範囲だけを狙い撃ちして書き換える。
2. `Characters` オブジェクトの範囲指定
`Shape.Characters` プロパティに対し、`Begin` と `End` インデックスを指定して操作対象を絞る。
3. ShapeSheetのCharセルへの直接アクセスを避ける
VBAから文字単位の装飾をいじる際、`Characters.Char[X, Y]` プロパティ経由でフォントや色を変更すると、パフォーマンスが著しく低下するか、予期せぬロック現象を引き起こす。したがって、「テキストの流し込み」と「書式の維持・適用」は明確に分離すべし。
—
プロダクションコード：部分書式保持書き換えエンジン
現場のシステム連携（例えば、データベースから取得したステータス名だけを図形名や特定のラベル部分に反映させ、ユーザーが手動で設定した色やフォントサイズを死守するケース）を想定した、実戦投入可能なプロシージャを公開する。
このコードは、指定した図形内の「特定のプレースホルダー文字列（例: `[STATUS]`）」のみを、既存の書式を一切破壊せずに新しい値に置換する最高峰のロジックだ。
Option Explicit
Public Sub SafeUpdateShapeText(ByRef targetShape As Visio.Shape, ByVal targetKeyword As String, ByVal newText As String)
‘ =========================================================================
‘ 処理名: SafeUpdateShapeText
‘ 概要 : 図形内の特定キーワードを、既存の部分書式を破壊せずに置換する
‘ 引数 : targetShape – 対象のVisio.Shapeオブジェクト
‘ targetKeyword – 置き換え対象の文字列（例: “[STATUS]”）
‘ newText – 新しく挿入する文字列
‘ =========================================================================
‘ 1. ガード節：図形がテキストを保持できるか、そもそもキーワードが存在するか検証
If targetShape.Text = “” Then Exit Sub
If InStr(targetShape.Text, targetKeyword) = 0 Then Exit Sub
Dim charObj As Visio.Characters
Set charObj = targetShape.Characters
‘ 2. 対象キーワードの位置を特定
Dim startPos As Long
Dim length As Long
startPos = InStr(targetShape.Text, targetKeyword) – 1 ‘ VisioのCharactersインデックスは0基点
length = Len(targetKeyword)
‘ 3. 該当範囲のオブジェクトを取得
‘ Begin / End を設定することで、その範囲の文字装飾コンテキストをハンドリングする
charObj.Begin = startPos
charObj.End = startPos + length
‘ 4. テキストの置換実行
‘ ここでTextプロパティに代入しても、BeginとEndで挟まれた範囲内のみが置換されるため、
‘ 他の領域（前後の文字列に施された個別書式）は完全に保護される。
charObj.Text = newText
‘ エラーハンドリングとオブジェクト解放
Set charObj = Nothing
End Sub
このコードが「プロ仕様」である理由
- スコープの限定: `Begin` と `End` を明示的に指定することで、影響範囲を置換対象のキーワードだけに極小化している。これにより、図形の先頭や末尾に存在するユーザー定義の部分書式が一切影響を受けない。
- 無駄な再描画の抑制: 余計なShapeSheetの再計算を走らせないため、大規模な図面（数百個の図形を一括処理するようなフローチャート自動生成など）でもパフォーマンスが劣化しない。
—
データベース・外部ファイル連携時の実務上の注意点
このテクニックを実務のデータ連携ツール（ExcelやSQL Serverからの情報吸い上げ等）に組み込む際、以下の罠に注意してほしい。
1. トランザクションと画面描画の停止
大量の図形テキストを書き換える際は、必ず処理の冒頭で `Application.ScreenUpdating = False` をかけ、処理終了後に `True` に戻せ。これを怠ると、Visioが書き換えのたびに画面を描画し、パフォーマンスが10分の1以下に落ちる。
2. 特殊文字と改行コードのハンドリング
データベースから取得したテキストに `vbCrLf` が含まれている場合、Visioのテキストエリア内では改行として正しく処理されるが、`Characters` オブジェクトの長さにズレが生じることがある。テキストを流し込む前に、改行コードの正規化（`vbCrLf` -> `vbVerticalTab` や Visio標準の改行コードへの置換）を行っておくと、予期せぬ位置ズレを防げる。
—
チーフアーキテクトからの総括
Visio VBAにおけるオブジェクト操作は、APIの仕様を表面的になぞるだけでは、すぐに「予期せぬバグ」という名の壁に突き当たる。
今回解説した `Characters` オブジェクトのスコープ制御は、単なるテクニックではなく、「Visioのレンダリングエンジンとデータ構造に敬意を払った堅牢な設計」そのものだ。
安易なプロパティへの直書きを捨て、オブジェクトのライフサイクルと影響範囲をコントロールする――。この知見をあなたの武器に加えれば、どんなに複雑なエンタープライズ向けの図面自動化要件であっても、ビクともしない強靭なツールを構築できるはずだ。
現場の自動化を、次のステージへ引き上げろ。
