Visio VBAを掌握する極限の知見：Shape.Charactersによるテキスト動的装飾の深層
シニアエンジニアおよびエンタープライズ領域のシステム管理者各位。
日々の業務自動化において、Microsoft Visioのドキュメント生成や帳票出力の自動化に挑んだ者であれば、一度は「テキストの動的制御」の壁に直面したはずだ。
「シェイプ内の特定の数値やキーワードだけを赤字にし、フォントサイズを変更したい」
GUIであれば数クリックの作業だが、これをVBAで、しかも数千個のシェイプを含む巨大なネットワーク図やプラント図に対して動的に実行する場合、素朴なコードでは深刻なパフォーマンス低下、あるいはメモリリークを引き起こす。
今回は、Visioオブジェクトモデルの隠された挙動と、`Shape.Characters`プロパティを極限まで使い倒すための実践的アーキテクチャを解説する。
—
1. Visioテキストエンジンの構造と `Shape.Characters` の正体
多くの開発者が犯す最初の誤謬は、`Shape.Text` プロパティに対して文字列を代入し、その後に何とかしようとするアプローチだ。
‘ 【アンチパターン】これではテキスト全体の書式がリセットされる
shp.Text = “接続ステータス: 異常 (Error Code: 503)”
`Shape.Text` への代入は、シェイプ内の既存のテキストストリームおよびアトリビュート（文字ごとのフォント、サイズ、カラー）を完全に破壊し、マスターシェイプまたはデフォルトのスタイルで再構築する。
ここで登場するのが `Shape.Characters` プロパティ である。
`Characters` オブジェクトは、テキスト全体、あるいは文字列の「範囲（レンジ）」を抽象化したものであり、OLEオートメーションの境界線上で文字列と書式プロパティを仲介する極めて重いオブジェクトだ。
オブジェクトのライフサイクルとメモリ管理の鉄則
VBAのランタイムはCOMオブジェクトの参照カウントを裏で管理しているが、Visioのドキュメント構造（特にテキストのラン＝Runと呼ばれる書式保持ブロック）は非常に複雑である。
ループ内で `Shape.Characters` を何度も暗黙的に呼び出すと、COMのインターフェースポインタがリークし、Visioプロセスのメモリ消費量が肥大化する。
極限の最適化ルール:
1. ループ内での `Characters` オブジェクトの多重取得を避ける。
2. 処理完了後は、ローカル変数として取得したオブジェクトは速やかに `Nothing` を代入して解放を促す。
3. 画面描画の更新（`Application.ScreenUpdating`）を必ず明示的にオフにする。
—
2. 実践：特定キーワードの部分装飾アルゴリズム
以下のコードは、指定したシェイプ内の特定のキーワード（例: `”CRITICAL”` やエラーコード）を検出し、その部分だけを抽出して赤字・太字に動的変換するプロダクションレベルのプロシージャである。
レガシー環境や大規模図面の自動生成においても耐えうるよう、エラーハンドリングとパフォーマンスチューニングを施している。
Option Explicit
Public Sub HighlightKeywordInShape(ByVal targetShape As Visio.Shape, ByVal keyword As String)
‘ —————————————————————-
‘ 処理名: HighlightKeywordInShape
‘ 概要: シェイプ内の文字列から特定キーワードを検索し、部分的に赤字・太字にする
‘ —————————————————————-
‘ 画面描画を停止し、Visioのレンダリングエンジン負荷を極限まで削減
Dim originalScreenUpdating As Boolean
originalScreenUpdating = Visio.Application.ScreenUpdating
Visio.Application.ScreenUpdating = False
On Error GoTo ErrorHandler
Dim fullText As String
fullText = targetShape.Text
If Len(fullText) = 0 Or Len(keyword) = 0 Then GoTo Cleanup
‘ キーワードの出現位置を検索 (大文字小文字を区別しない場合は InStr を適宜調整)
Dim startPos As Long
startPos = InStr(1, fullText, keyword, vbTextCompare)
Do While startPos > 0
Dim charObj As Visio.Characters
Set charObj = targetShape.Characters
‘ Charactersオブジェクトの範囲を対象キーワードの位置に絞り込む
‘ ※Visioの文字位置インデックスは 1基底 (1始まり) であり、末尾は (開始位置 + 文字数 – 1)
charObj.Begin = startPos – 1
charObj.End = startPos + Len(keyword) – 1
‘ フォントスタイルの適用
charObj.CharProps(visCharacterColor) = RGB(255, 0, 0) ‘ 赤色
charObj.CharProps(visCharacterStyle) = 1 ‘ 太字 (Bold)
‘ COMオブジェクトの参照解放（メモリ最適化の極意）
Set charObj = Nothing
‘ 次のキーワードを検索
startPos = InStr(startPos + Len(keyword), fullText, keyword, vbTextCompare)
Loop
Cleanup:
Visio.Application.ScreenUpdating = originalScreenUpdating
Exit Sub
ErrorHandler:
‘ 異常系：ログ出力や例外処理をここに記述
MsgBox “Error ” & Err.Number & “: ” & Err.Description, vbCritical, “Visio VBA Engine”
Resume Cleanup
End Sub
—
3. チーフアーキテクトが教える現場の知見とトラブルシューティング
① 改行コードとインデックスの罠
Visioのシェイプ内テキストには、ユーザーが入力した改行（`vbCr` や `vbLf`）や、オートサイズ機能によって挿入された暗黙の改行コードが含まれている場合がある。
`InStr` で得られた位置をそのまま `Characters.Begin` / `End` に渡すと、改行文字を跨いだ際に位置がズレる、あるいは `Visio Error -2032 (Unexpected end of file/string)` のようなCOM例外が発生する。
対策:
テキスト処理を行う前に、対象文字列から制御文字をサニタイズするか、`Characters` オブジェクトの範囲指定を行う直前に文字列長とインデックスの境界値チェックを厳密に行うこと。
② 大規模図面におけるパフォーマンス劣化の回避
数百のネットワーク機器アイコン（マスターシェイプのインスタンス）に対してこの処理を一斉に行う場合、個々のシェイプのテキストスタイルを変更するたびにVisio内部のジオメトリ再計算が走り、極端に処理が遅くなる。
実践的なアプローチ:
ドキュメント全体を一括処理する場合は、以下の三点を徹底せよ。
1. `Visio.Application.ScreenUpdating = False` のスコープをトランザクション単位で囲む。
2. 自動計算モードの一時停止（可能であれば `Application.AutoRecover` やイベントハンドラの無効化 `Application.EventsEnabled = False` を併用）。
3. シェイプのイテレーションは、`ActivePage.Shapes` に対する遅延バインディングを避け、あらかじめ配列にキャッシュしてから処理する。
—
総括
`Shape.Characters` は、使いこなせば図面の視認性を劇的に向上させる強力な武器となる。しかし、その背後にあるCOMのメモリ管理モデルとVisioのテキストレンダリングの仕組みを理解していない者にとっては、システムを不安定にするパンドラの箱でもある。
正確なオブジェクトライフサイクルの管理と、徹底的な描画最適化。これらを実装に組み込むことこそが、真のプロフェッショナルエンジニアの仕事である。次回のアーキテクチャ解説にも期待してほしい。
