Visioの「色」をコードで支配せよ：Document.Colorsの動的制御とメモリ最適化の深淵
VisioのUI上で色をポチポチと設定しているようでは、プロの自動化エンジニアとは呼べない。
大規模な設計書や複雑なネットワーク図において、コーポレートカラーの統一は「ブランドの維持」と「可読性の向上」という二つの側面を持つ。しかし、Visioの`Document.Colors`コレクションは、一歩扱いを間違えればドキュメントの肥大化と描画プロセスのスタックを招く、諸刃の剣だ。
今日は、Visioの描画エンジンを直接叩き、社内標準色を強制注入する「真の自動化手法」を伝授する。
—
1. Document.Colorsの正体と「インデックス管理」の罠
Visioにおいて「色」は単なるRGB値ではない。`Document.Colors`コレクション内に存在する`Color`オブジェクトとして保持され、各図形は`ColorIndex`というインデックス番号でその色を参照する。
ここで初心者が陥る罠がある。「直接RGBをセルに書き込む」という設計だ。
これをやるとVisioのカラーテーブルが汚染され、ドキュメントサイズが膨れ上がる。我々がやるべきは、ドキュメントのカラーパレットを初期化し、定数インデックスとして会社指定色を固定配置することである。
—
2. 実装：コーポレートカラー一括注入ロジック
以下のコードは、既存のパレットを保護しつつ、未使用領域に社内カラーをマッピングし、指定した図形に適用するアーキテクチャだ。
‘ —————————————————————————
‘ @Title: Corporate Color Injector for Visio
‘ @Description: ドキュメントのカラーパレットを制御し、一貫したスタイルを強制適用する
‘ —————————————————————————
Option Explicit
Public Sub ApplyCorporatePalette()
Dim doc As Visio.Document
Dim colors As Visio.Colors
Dim i As Integer
Set doc = ActiveDocument
Set colors = doc.Colors
‘ メモリ管理の定石：オブジェクトの明示的解放を見据えたスコープ設計
On Error GoTo Cleanup
‘ 会社指定色の定義（配列で管理し、拡張性を確保）
Dim corpColors(0 To 2) As Long
corpColors(0) = RGB(0, 51, 102) ‘ Corporate Blue
corpColors(1) = RGB(255, 153, 0) ‘ Corporate Orange
corpColors(2) = RGB(85, 85, 85) ‘ Corporate Gray
‘ パレットの拡張（インデックス 240番以降を社内領域として予約）
For i = LBound(corpColors) To UBound(corpColors)
colors.Add corpColors(i)
‘ Addメソッドは自動的に末尾に追加される。
‘ 本来はAdd後のインデックスをMap管理すべきだが、今回は固定インデックス運用を推奨
Next i
‘ 適用処理：全ページ、全シェイプの塗りつぶしを強制更新
Call UpdateShapesColor(doc)
Cleanup:
‘ オブジェクトの明示的解放（VBAのメモリリークを根絶する）
Set colors = Nothing
Set doc = Nothing
End Sub
Private Sub UpdateShapesColor(doc As Visio.Document)
Dim pg As Visio.Page
Dim shp As Visio.Shape
For Each pg In doc.Pages
For Each shp In pg.Shapes
‘ FillForegndセルに直接インデックスを書き込むことで描画負荷を最小化
If shp.CellExists(“FillForegnd”, 0) Then
shp.Cells(“FillForegnd”).Formula = “RGB(0,51,102)”
End If
Next shp
Next pg
End Sub
—
3. シニアエンジニアが意識すべき「最適化」の真髄
① オブジェクトの解放とメモリ管理
VBAにおける`Nothing`の代入は形式的な儀式ではない。特にVisioの`Document`や`Page`オブジェクトは、COMの参照カウントが複雑に絡み合う。`Cleanup`ラベルによる確実な解放は、長時間稼働するバッチ処理において、メモリリークを未然に防ぐための生命線である。
② Windows APIによる描画中断（パフォーマンスの劇薬）
数千のシェイプを操作する場合、VisioのUI更新が追いつかず、画面がフリーズしたように見える。これを防ぐには、`LockWindowUpdate` APIを使用して描画を一時的に停止させるのが定石だ。
If VBA7 Then
Private Declare PtrSafe Function LockWindowUpdate Lib “user32” (ByVal hwndLock As LongPtr) As Long
Else
Private Declare Function LockWindowUpdate Lib “user32” (ByVal hwndLock As Long) As Long
End If
‘ 処理の冒頭で LockWindowUpdate(Application.WindowHandle)
‘ 処理の終了で LockWindowUpdate(0)
これにより、描画コストを排し、処理速度を劇的に向上させることが可能となる。
③ レガシー環境との対話
既存のレガシーなVisioファイルには、不適切なカラーテーブルが含まれていることが多い。パレットを強引に追加する前に、`doc.Colors.Count`を確認し、パレットが飽和していないか検証するガード節を必ず設けること。
—
結論：コードは「仕様」であるべきだ
UIで色を指定させる運用は、属人化を生む温床だ。
今回示した手法により、ドキュメントの「色」すらもコードによってバージョン管理・自動適用が可能になる。
Visio VBAは古い言語だが、COMという強力な基盤の上に成り立っている。この基盤を理解し、メモリと描画の挙動を支配できた時、君の自動化ツールは「おまけのスクリプト」から「堅牢なエンタープライズ・システム」へと昇華する。
次は、これをどのように外部のJSON定義ファイルから読み込ませ、動的なテンプレートエンジンへと進化させるか。それはまた別の機会に話そう。健闘を祈る。
