Visio VBAを掌握する極限の知見：Document.Colorsで図面固有のカスタムパレットを完全統御せよ
業務自動化エンジニアの皆さん、日々のVisio図面作成において「色」の管理に頭を悩ませたことはないだろうか。
社内ニッチな標準カラーコード（例えば、コーポレートカラーのディープレッド `#C00000` や、システム連携図用の特定グレー `#595959` など）を、図形を描画するたびにRGB値を手入力していないか？ あるいは、誰が作ったか分からない図面を開くたびに色味がバラバラで、成果物のクオリティが担保できないと嘆いていないか。
アマチュアは図形（Shape）の `CellsU(“FillForegnd”)` に直接RGB値を叩き込む。しかし、真のプロフェッショナルは `Document.Colors` コレクションを支配し、図面ファイル（.vsdm / .vsdx）単位でカラーパレットをコードから一括定義する。
今回は、Visioのオブジェクトモデルの深淵を紐解き、堅牢かつ実務で即座に使えるカスタムパレット自動生成エンジンの構築手法を伝授する。
—
1. なぜ「直接RGB指定」は悪手なのか？
多くのVBAプログラマが最初に陥る罠がこれだ。
‘ 【アンチパターン】絶対にやってはいけない実装
Dim shp As Visio.Shape
Set shp = ActivePage.DrawRectangle(1, 1, 3, 2)
‘ 直接RGBを指定する
shp.CellsU(“FillForegnd”).FormulaU = “RGB(192, 0, 0)”
このコードの何が問題か。
1. 保守性の欠如: コーポレートカラーが変更になった際、図面内の数千個の図形や複数のマスターシェイプを走査して書き換える地獄のようなメンテ作業が発生する。
2. インデックスの肥大化: Visioのカラーインデックスを無視した場当たり的な指定は、ファイル容量の無駄遣いや、将来的なテーマ機能とのコンフリクトを生む。
Visioのカラーパレット構造の真実
Visioの図面（`Document` オブジェクト）は、内部に独自のカラーパレット（`Colors` コレクション）を保持している。インデックス番号（通常 0 から 23、またはカスタム拡張領域）に対してRGB値をバインドする仕組みだ。
図形側からは、RGBを直接持つのではなく、「パレットの何番の色を参照するか（例：Index 24）」というインデックスを持たせる。これにより、パレットの定義を1箇所変更するだけで、図面全体のカラーテーマが一瞬で同期・更新される。このアーキテクチャを利用しない手はない。
—
2. 設計思想：データベース/外部ファイル連携を見据えた堅牢な構造
プロダクション環境において、カラーコードはハードコーディングすべきではない。JSON、CSV、あるいはRDBから動的に読み込む設計が必須だ。
今回は、実務への応用性を高めるため、「設定データ（名前とRGB値）を配列または外部定義から受け取り、`Document.Colors` に安全に流し込む」汎用モジュールとして設計する。
堅牢性を担保する設計ポイント
1. エラーハンドリング: 無効なRGB値（0〜255の範囲外）や重複インデックスの排除。
2. トランザクション的思考: 処理中の画面描画（ScreenUpdating）とイベントの抑制によるパフォーマンス爆速化。
3. 既存パレットの保護: 標準のシステムパレットを破壊せず、カスタム領域（Index 24以降）へ安全にアドオンする。
—
3. 実装コード：カスタムカラーパレット一括定義エンジン
以下のコードは、アクティブなVisio図面に対して、社内標準のカスタムカラーパレットを強制的に適用し、指定した図形群にその色を割り当てるプロダクションコードである。
標準モジュールにそのまま貼り付けて実行してほしい。
Option Explicit
‘ ==============================================================================
ビスio VBA プロフェッショナル・テンプレート
テーマ: Document.Colors によるカスタムカラーパレットの一括定義と適用
==============================================================================
Public Sub ApplyCorporatePaletteAndStyle()
‘ パフォーマンス向上のための定石
Dim originalScreenUpdating As Boolean
originalScreenUpdating = Application.ScreenUpdating
Application.ScreenUpdating = False
Application.ShowChanges = False
On Error GoTo ErrorHandler
Dim targetDoc As Visio.Document
Set targetDoc = ActiveDocument
‘ 1. 社内標準カスタムカラーの定義 (名称, Red, Green, Blue)
‘ ※実務ではここでCSVやDBからデータを動的配列にロードすることを推奨
Dim colorMap(0 To 3) As Variant
colorMap(0) = Array(“Corp_PrimaryRed”, 192, 0, 0) ‘ #C00000
colorMap(1) = Array(“Corp_AccentBlue”, 0, 112, 192) ‘ #0070C0
colorMap(2) = Array(“Corp_DarkGray”, 89, 89, 89) ‘ #595959
colorMap(3) = Array(“Corp_LightGray”, 242, 242, 242) ‘ #F2F2F2
‘ 2. Document.Colors へのパレット登録
‘ Visioのカスタムカラーは通常 Index 24 以降を使用する
Const START_INDEX As Integer = 24
Dim i As Long
For i = LBound(colorMap) To UBound(colorMap)
Dim currentIndex As Integer
currentIndex = START_INDEX + i
Dim colName As String, r As Integer, g As Integer, b As Integer
colName = colorMap(i)(0)
r = colorMap(i)(1)
g = colorMap(i)(2)
b = colorMap(i)(3)
‘ 核心部: Document.ColorsコレクションへのRGB設定
‘ 既存のインデックスが存在しない場合は拡張される
targetDoc.Colors(currentIndex) = RGB(r, g, b)
Debug.Print “Registered Color [” & colName & “] to Index: ” & currentIndex & ” (RGB: ” & r & “,” & g & “,” & b & “)”
Next i
‘ 3. 登録したカスタムカラーを図形に適用するテスト（アクティブページの全シェイプ）
Dim shp As Visio.Shape
Dim appliedCount As Long
appliedCount = 0
For Each shp in ActivePage.Shapes
‘ ガード節: ガイドや特殊な図形を除外
If shp.Type = visTypeShape Then
‘ 例として、図形の塗りつぶしにカスタムインデックス (START_INDEX = 24) を設定
‘ 直接RGBを入れるのではなく、PalColorN プロパティまたは Index を指定する
shp.CellsU(“FillForegnd”).FormulaU = CStr(START_INDEX) ‘ Corp_PrimaryRed
appliedCount = appliedCount + 1
End If
Next shp
‘ 正常終了処理
Application.ScreenUpdating = originalScreenUpdating
Application.ShowChanges = True
MsgBox “カスタムパレットの定義と ” & appliedCount & ” 個の図形への適用が完了しました。”, vbInformation, “処理成功”
Exit Sub
ErrorHandler:
‘ 異常終了時も画面描画フラグを必ず復旧させる（無限フリーズ防止の鉄則）
Application.ScreenUpdating = originalScreenUpdating
Application.ShowChanges = True
MsgBox “致命的なエラーが発生しました。” & vbCrLf & _
“Error No: ” & Err.Number & vbCrLf & _
“Description: ” & Err.Description, vbCritical, “エラー”
End Sub
—
4. チーフアーキテクトからの実務アドバイス
1. 無限フリーズを防ぐエラーハンドリングの徹底
Visio VBAで最も恐ろしいのは、ループ処理中にエラーが発生し、`ScreenUpdating = False` のままスクリプトが停止することだ。UIが固まり、最悪の場合はVisioごと強制終了する。上記のコードのように、`On Error GoTo` を必ず記述し、例外時でも描画フラグが戻る担保を実装すること。
2. パレットの永続性
`Document.Colors` で定義したカスタムパレットは、そのVisioファイル（.vsdm / .vsdx）内部に保存される。つまり、一度このマクロを実行して保存した図面をテンプレートとして配れば、他のユーザーがVBAを実行しなくても、図面を開いた瞬間から社内標準パレットが利用可能になる。これがファイル配布における最大のメリットである。
3. 外部連携への拡張
今回はコード内に配列として直書きしたが、本番環境ではこれを外部の `Settings.json` や社内DBから読み込むようにラップすべきだ。そうすることで、コーポレートカラーの変更にもVBAのコードを一文字も変更することなく、設定ファイルの差し替えだけで対応可能になる。
設計の美しさと堅牢性を両立させ、手作業の無駄をコードで駆逐せよ。あなたの作るツールが、組織の生産性を次のステージへと引き上げる。
