Visio VBAを掌握する極限の知見：ParagraphおよびTabsセルによる図形内テキストの超精密制御
Microsoft Visioにおけるテキスト処理は、GUI操作の延長線上で行う限り、いかに熟練したオペレーターであっても限界が存在する。数十、数百のシェイプ群に対して、仕様書形式のインデント、厳密な行間設定、そしてミリ単位のタブ位置（TabStops）を均一に適用する作業は、手動では悪夢のような時間浪費であり、非効率の極みである。
我々シニアエンジニアが対峙すべきアプローチは、`Character`オブジェクトの安易な走査ではない。あちらは文字装飾の変更の都度、COM境界を跨ぐ無駄なラウンドトリップが発生し、大規模な図面では致命的なパフォーマンス低下を招く。
真の解決策は、ShapeSheetの `Paragraph` セクションおよび `Tabs` セクションのセル群をVBAからダイレクトに一括制御することにある。この領域を制することが、Visio自動化アーキテクチャの分水嶺となる。
—
1. Visioテキストエンジンの内部構造とセルの重み
Visioの図形内テキストは、単なる文字列のコンテナではない。内部的にはCharacter（文字）、Paragraph（段落）、Tabs（タブ）という3つのレイヤーがShapeSheetの数式ツリーと密接に結びついている。
特に段落制御において、VBAから直接アクセスすべき主要なセル群は以下の通りだ：
- `Paragraph.IndFirst`：初行インデント
- `Paragraph.IndLeft`：左インデント（ぶら下がりインデントの起点）
- `Paragraph.IndRight`：右インデント
- `Paragraph.SpLine`：行間（正の値はポイント指定、負の値は倍率指定）
- `Paragraph.SpBefore`：段落前間隔
- `Paragraph.SpAfter`：段落後間隔
- `Paragraph.Align`：水平揃え（0:左, 1:中央, 2:右, 3:両端）
これらを `CellsSRC` メソッドを用いて直接叩くことで、イベント発火を最小限に抑えつつ、一瞬で形状のテキストレイアウトをプログラムの支配下に置くことができる。
—
2. パフォーマンスの極限：COMオブジェクトの解放とイベント抑制
数千個のシェイプを処理する際、VBAのランタイムとVisioのCOMサーバー間で発生するオーバーヘッドは、システム全体の寿命を縮める要因となる。
以下の鉄則を遵守せよ。
1. 画面描画の完全停止：`Application.ScreenUpdating = False`
2. イベントの遮断：`Application.EventEnabled = False`
3. オブジェクト変数の徹底的な開放：参照カウントを残さない。特に `Page` や `Shape` のループ内では、一時変数も含めて確実に `Nothing` を代入する。
—
3. 実践コード：仕様書形式レイアウトを自動構築するチーフ級モジュール
以下のコードは、選択されたシェイプ、あるいは指定ページの全シェイプに対し、ぶら下がりインデント、カスタム行間、および精密なタブ位置（TabStops）を動的に注入する実用的なプロシージャである。
レガシーな環境や巨大な図面データであってもメモリリークを起こさないよう、厳格なオブジェクトライフサイクル管理を実装している。
Option Explicit
‘ =========================================================================
‘ モジュール名: MdlTextLayoutEngine
‘ 概要: Visio ShapeSheetのParagraph/Tabsセルのダイレクト操作による
‘ 超精密テキストレイアウト制御エンジン
‘ =========================================================================
Public Sub ApplyAdvancedParagraphLayout()
Dim appVisio As Visio.Application
Set appVisio = Application
‘ パフォーマンス最大化のための環境設定
Dim oldScreenState As Boolean
Dim oldEventState As Boolean
oldScreenState = appVisio.ScreenUpdating
oldEventState = appVisio.EventEnabled
appVisio.ScreenUpdating = False
appVisio.EventEnabled = False
On Error GoTo ErrorHandler
Dim vsoSelection As Visio.Selection
Set vsoSelection = appVisio.ActiveWindow.Selection
If vsoSelection.Count = 0 Then
MsgBox “対象となるシェイプが選択されていません。”, vbExclamation, “レイアウトエンジン”
GoTo Cleanup
End If
Dim i As Long
Dim vsoShape As Visio.Shape
For i = 1 To vsoSelection.Count
Set vsoShape = vsoSelection(i)
‘ テキストを持つシェイプのみを処理対象とする
If vsoShape.CellExists(“Char.Size”, VisExistsFlags.visExistsAnywhere) Then
Call ConfigureParagraphAndTabs(vsoShape)
End If
‘ ループごとの参照解放
Set vsoShape = Nothing
Next i
Cleanup:
‘ 環境の復元
appVisio.ScreenUpdating = oldScreenState
appVisio.EventEnabled = oldEventState
‘ 選択セットの解放
Set vsoSelection = Nothing
Set appVisio = Nothing
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “致命的エラー”
Resume Cleanup
End Sub
Private Sub ConfigureParagraphAndTabs(ByRef vsoShape As Visio.Shape)
On Error GoTo ProcError
‘ 1. 段落（Paragraph）セルの設定
‘ 複数段落に対応するため、先頭段落（Row 0）を操作
‘ 初行インデント: 0 mm
vsoShape.CellsSRC(visSectionParagraph, 0, visParagraphIndFirst).FormulaU = “0 mm”
‘ 左インデント（ぶら下がり用のベース）: 15 mm
vsoShape.CellsSRC(visSectionParagraph, 0, visParagraphIndLeft).FormulaU = “15 mm”
‘ 右インデント: 5 mm
vsoShape.CellsSRC(visSectionParagraph, 0, visParagraphIndRight).FormulaU = “5 mm”
‘ 行間設定: 1.2倍（負の値は倍率を表す）
vsoShape.CellsSRC(visSectionParagraph, 0, visParagraphSpLine).FormulaU = “-1.2”
‘ 段落後間隔: 4 pt
vsoShape.CellsSRC(visSectionParagraph, 0, visParagraphSpAfter).FormulaU = “4 pt”
‘ 水平揃え: 両端揃え (3)
vsoShape.CellsSRC(visSectionParagraph, 0, visParagraphAlign).FormulaU = “3”
‘ 2. タブ位置（Tabs）セルの設定
‘ VisioのTabsセクションは動的に行を追加・制御する必要がある
Dim tabRowIndex As Integer
‘ 既存のタブ行が存在するか確認し、なければ追加、あればクリアして再設定
‘ ※簡易的にRow 0が存在するかチェック
On Error Resume Next
tabRowIndex = vsoShape.AddRow(visSectionTabs, 0, visRowTab)
If Err.Number <> 0 Then
‘ 既に存在する場合はRow 0を直接叩く
Err.Clear
tabRowIndex = 0
End If
On Error GoTo ProcError
‘ タブ位置の絶対座標を設定 (例: 35mmの位置に左揃えタブを設定)
‘ Visio Tabs セル構造:
‘ visTabPosition: 位置, visTabAlign: 揃え位置 (0:左, 1:中央, 2:右, 3:小数)
vsoShape.CellsSRC(visSectionTabs, tabRowIndex, visTabPosition).FormulaU = “35 mm”
vsoShape.CellsSRC(visSectionTabs, tabRowIndex, visTabAlign).FormulaU = “0” ‘ 左揃え
Exit Sub
ProcError:
‘ 個別シェイプのエラーは全体の停止を防ぐためイミディエイトに吐き出して継続
Debug.Print “Shape ID ” & vsoShape.ID & ” の設定に失敗しました: ” & Err.Description
Resume Next
End Sub
—
4. チーフアーキテクトからの実務的助言
このコードを実務の基幹システムや自動ドキュメント生成パイプラインに組み込む際、以下の点に留意せよ。
- 単位系の罠：Visioの内部計算単位は基本的にインチ（`IN`）である。コード内で `mm` や `pt` と明示的に単位文字列を渡しているのは、Visioの式パーサーに自動換算させるための極めて有効な手法である。これを怠ると、ドキュメントを開くPCのロケール（単位系設定）によってレイアウトが崩壊する致命的なバグを生む。
- Tabsセクションの動的行管理：`AddRow` メソッドは、既に該当インデックスに行が存在する場合にエラーを返す。実運用においては、`RowCount(visSectionTabs)` を事前に評価し、既存行の有無に応じた分岐を入れるか、あるいは既存行を一度すべて削除して再構築するロジック（トランザクショナルなアプローチ）を採用するのが堅牢である。
表形式の仕様書や、複雑なマルチカラム風のテキスト構造をVisio上で完全に制御したいのであれば、GUIのツールバーに頼る時代は終わっている。ShapeSheetをコードで掌握することこそが、真の自動化エンジニアに許された唯一の特権である。
