Visio VBAの深淵：Charactersオブジェクトによる「動的テキスト装飾」の極致
Visioの自動化において、`Shape.Text = “Hello”` と書くのは初心者だ。システム間連携や動的なドキュメント生成において、真のエンジニアが直面するのは「テキストの一部だけを強調したい」「特定のキーワードにのみ色をつけたい」という、UIの制約を超えた要求である。
Visioの `Characters` オブジェクトは、一見すると地味な存在だが、適切に操れば強力なレンダリングエンジンと化す。今日は、メモリを浪費せず、かつ堅牢にテキストを制御する極意を伝授する。
—
1. Charactersオブジェクトのライフサイクルと罠
多くのエンジニアが陥る罠は、`Characters` オブジェクトを安易に変数へ格納し、適切に解放しないことだ。Visioのオブジェクトモデルにおいて、`Characters` は親シェイプのテキストストリームを直接参照する。
ループ処理内で不用意にインスタンスを生成し続ければ、COMランタイムのメモリリークを招き、大規模な図面データでは確実にVisioがフリーズする。
極限のパフォーマンスを実現する作法
- `Set` を最小限にする: 可能な限り `Shape.Characters` を直接参照し、スコープを閉じる。
- Begin/Endの意識: `Characters.Begin` と `Characters.End` を利用し、適用範囲を厳密に定義する。
—
2. 特定キーワードへの部分装飾：実践コード
以下のコードは、シェイプ内の特定の文字列を検索し、その部分だけを赤字かつ太字にするためのプロトタイプだ。泥臭い検索ロジックだが、これこそがAPIの挙動を掌握したアーキテクトの書き方である。
‘ @brief シェイプ内の特定文字列を検索し、部分的にスタイルを変更する
‘ @param targetShape 対象のVisio Shapeオブジェクト
‘ @param keyword 検索キーワード
Public Sub ApplyStyleToKeyword(ByRef targetShape As Visio.Shape, ByVal keyword As String)
Dim chars As Visio.Characters
Dim startPos As Long, endPos As Long
If targetShape.Text = “” Then Exit Sub
‘ テキスト全体への参照を取得
Set chars = targetShape.Characters
‘ 文字列検索：InStrは1ベースのインデックスを返す
startPos = InStr(1, chars.Text, keyword, vbBinaryCompare)
Do While startPos > 0
‘ 検索対象の範囲を指定
chars.Begin = startPos – 1
chars.End = startPos + Len(keyword) – 1
‘ スタイルの適用
With chars.CharProps(Visio.VisCellIndices.visCharacterColor)
.Formula = “RGB(255,0,0)” ‘ 赤色
End With
‘ 太字設定
chars.CharProps(Visio.VisCellIndices.visCharacterStyle) = 17 ‘ 17は太字(Bitwise)
‘ 次の出現箇所を検索
startPos = InStr(startPos + Len(keyword), chars.Text, keyword, vbBinaryCompare)
Loop
‘ メモリ解放：明示的なNothing代入はCOMの寿命管理に寄与する
Set chars = Nothing
End Sub
—
3. レガシー環境とWindows API連携の視点
VisioのVBAは、古いアーキテクチャであるがゆえに、描画の同期タイミングに癖がある。大量のシェイプを処理する場合、`Application.ScreenUpdating = False` を利用するのは基本中の基本だ。
さらに、複雑なテキスト解析が必要な場合、VBA単体で完結させようとせず、Windows API (`kernel32`) を利用してマルチバイト文字の処理を最適化したり、外部のDLLを呼び出して正規表現エンジンを組み込むのが、「レガシーを飼い慣らす」ための正攻法である。
安定稼働のための注意点
- イベントの抑制: 大量更新時は `Application.EventEnabled = False` を併用し、不要な再描画イベントのスタックを防ぐこと。
- エラーハンドリング: `Characters` は、対象シェイプがテキスト編集モードにある場合や、保護されている場合に例外を投げる。`On Error Resume Next` で逃げるのではなく、`Shape.Protection` プロパティを事前にチェックする堅牢なガード句を必ず実装せよ。
—
4. 最後に：アーキテクトからの一言
Visioのテキスト制御は、文字列をただのデータとして扱うのではなく、「プロパティの集合体」として捉える必要がある。`Characters` オブジェクトを操作することは、Visioの描画エンジンの深層に触れることと同義だ。
コードは美しく、そして何より「予測可能」でなければならない。今日伝えた手法は、どんなに巨大な図面であっても、あなたの自動化ツールを止めることのない堅牢な基盤となるはずだ。
次は、`Field` オブジェクトを用いた「動的プロパティリンク」の世界で会おう。そこでは、テキストはただの文字列ではなく、データソースと同期する生き物へと進化する。
