【実務・中級編】【上級者向け】レイヤーのカラー設定を一括変更し、図面の視認性を向上させる「カラーテーマ適用」スクリプト – Visio VBA解析バイブル

【極限の設計】Visio VBAによるレイヤー・カラーテーマ・エンジンの構築：視覚的階層を制御するデータ駆動型アプローチ

「とりあえず色が変わればいい」――もし君がそんな思考でコードを書いているとしたら、そのツールは実務の現場で必ず破綻する。

業務自動化エンジニアとして、我々が作るのは単なる「便利ツール」ではない。それは、複雑な情報を整理し、意思決定を加速させるための「情報のインターフェース」である。Visioにおける図面の視認性は、単なる「見た目」の問題ではなく、情報の優先順位（Information Hierarchy）そのものだ。

今回は、Layerオブジェクトの`Color`プロパティをマスターし、プロジェクトのブランドカラーや業務上の重要度に基づいた「カラーテーマ」を、堅牢かつスケーラブルに適用するための設計思想と実装手法を伝授する。

1. なぜ、あなたのスクリプトは「現場」で通用しないのか

多くの開発者が陥る罠がある。それは、「形状（Shape）をループして、一つずつ色を塗り替える」という非効率なアプローチだ。

凡庸な設計の欠陥

1. パフォーマンスの欠如: 数千のシェイプを持つ大規模図面において、全シェイプを走査するのは計算資源の無駄遣いだ。Visioのオブジェクトモデルへのアクセスはコストが高い。
2. 保守性の崩壊: 色の指定をコード内にハードコーディング（直書き）してしまうと、ブランドカラーが変更された瞬間に、すべてのソースコードを修正して再デプロイすることになる。これは「エンジニアリング」ではない。
3. ロジックの混濁: 「どのレイヤーが、何色であるべきか」という定義（Data）と、「どのように色を適用するか」というロジック（Logic）が分離されていない。

アーキテクトが目指すべき姿

我々が構築すべきは、「レイヤーを制御の軸とし、設定を外部データから注入する（Dependency Injectionに近い考え方）」設計である。

2. 設計指針：データ駆動型カラーテーマ・エンジン

プロフェッショナルな実装には、以下の3つの要素を分離して設計する。

1. Theme Definition (定義層): レイヤー名とカラーコード（RGB）の対応表。これは将来的にExcelやJSON、データベースから取得可能にする。
2. Application Engine (実行層): 定義に基づき、Visioの`Layer`オブジェクトを操作する純粋なロジック。
3. Error Handling & Validation (防護層): 指定されたレイヤーが存在しない場合や、不正なカラー値が渡された場合に、システムを停止させず、かつエラーを検知する仕組み。

3. プロダクション・グレードのコード実装

以下に、実務でそのまま利用可能な、堅牢な設計に基づいたVBAコードを示す。ここでは、`Scripting.Dictionary`を使用して、レイヤー名と色のマッピングを高速に管理する手法を採用している。

> 注意: このコードを動かすには、VBAエディタの [ツール] -> [参照設定] から “Microsoft Scripting Runtime” にチェックを入れてください。

Option Explicit

''' <summary>
''' レイヤーのカラーテーマを適用するメインエンジン
''' </summary>
Public Sub ApplyLayerColorTheme()
    Dim themeMap As Scripting.Dictionary
    Dim targetPage As Visio.Page
    Dim vsoLayer As Visio.Layer
    Dim layerName As Variant
    Dim errorCode As Long
    
    On Error GoTo ErrorHandler

    ' 1. 【定義層】カラーテーマの構築
    ' 本来はここをExcelやDBから読み込む設計にする。
    ' 色の指定はRGB関数を使用し、Long型として保持する。
    Set themeMap = New Scripting.Dictionary
    themeMap.Add "Critical_Path", RGB(255, 0, 0)      ' 赤：最優先事項
    themeMap.Add "Logic_Flow", RGB(0, 112, 192)      ' 青：標準フロー
    themeMap.Add "Background_Info", RGB(220, 220, 220) ' グレー：背景情報
    themeMap.Add "Security_Layer", RGB(0, 176, 80)    ' 緑：セキュリティ境界

    ' 2. 【コンテキスト取得】
    Set targetPage = ActivePage
    
    Debug.Print "--- Theme Application Started ---"

    ' 3. 【実行層】レイヤーへの適用
    ' Shapeをループするのではなく、Page内のLayerコレクションを走査する。
    ' これにより、計算量を劇的に削減できる。
    For Each layerName In themeMap.Keys
        errorCode = ApplyColorToLayer(targetPage, CStr(layerName), themeMap(layerName))
        
        If errorCode = 0 Then
            Debug.Print "Success: Layer [" & layerName & "] updated."
        Else
            ' エラーを無視せず、ログに記録して続行する（堅牢な設計）
            Debug.Print "Warning: Layer [" & layerName & "] skipped. Error Code: " & errorCode
        End If
    Next layerName

    Debug.Print "--- Theme Application Completed ---"
    MsgBox "カラーテーマの適用が完了しました。", vbInformation
    Exit Sub

ErrorHandler:
    MsgBox "致命的なエラーが発生しました: " & Err.Description, vbCritical, "System Error"
End Sub

''' <summary>
''' 特定のレイヤーに対して色を適用する低レベル関数
''' </summary>
''' <param name="pg">対象ページ</param>
''' <param name="lName">レイヤー名</param>
''' <param name="colorValue">適用するRGB値</param>
''' <returns>0:成功, 1:レイヤー不在, 2:その他のエラー</returns>
Private Function ApplyColorToLayer(ByRef pg As Visio.Page, ByVal lName As String, ByVal colorValue As Long) As Integer
    Dim vsoLayer As Visio.Layer
    
    On Error Resume Next
    ' レイヤーの取得を試みる
    Set vsoLayer = pg.Layers.Item(lName)
    On Error GoTo 0
    
    If vsoLayer Is Nothing Then
        ApplyColorToLayer = 1 ' レイヤーが存在しない
        Exit Function
    End If
    
    On Error GoTo InternalError
    ' LayerオブジェクトのColorプロパティを直接操作
    ' これにより、レイヤーに関連付けられた視覚的属性を一括制御する
    vsoLayer.Color = colorValue
    
    ApplyColorToLayer = 0
    Exit Function

InternalError:
    ApplyColorToLayer = 2
End Function

4. アーキテクトの視点：さらなる高度化への道

このスクリプトを「プロダクション環境」へ投入する際、君が考慮すべきは以下の3点だ。

① 外部データとの連携 (External Configuration)

実務では、色をVBA内に書くのは禁物だ。

• Excel連携: `Worksheets(“Config”).Range(“A1:B10”)` からレイヤー名とRGB値を読み込むように拡張せよ。これにより、非エンジニア（プロジェクトマネージャー等）がコードを触らずにデザインを変更できるようになる。
• データベース連携: 大規模なエンタープライズ環境であれば、SQL Server等のマスターテーブルから「プロジェクトID」に応じたカラーパレットを取得する設計に昇華させよ。

② 冪等性（Idempotency）の確保

「何度実行しても、同じ結果が得られる」ことは、自動化における鉄則だ。
今回のコードは、既存の状態に関わらず指定した色を上書きするため、冪等性が保たれている。もし「特定の条件の時だけ色を変える」というロジックを入れる場合は、現在の色を判定するロジックを組み込み、二重適用による意図しない色の変化を防がなければならない。

③ パフォーマンスの極限

もし、レイヤーの色変更だけでなく、そのレイヤーに属するShapeの塗りつぶし色（FillForeColor）まで連動させたい場合はどうするか？
その場合は、`Shape.Layer` プロパティを使用して、レイヤー所属のシェイプをフィルタリングする手法をとる。ただし、その際も `Application.ScreenUpdating = False` （Visioでは `Application.Refresh` の制御）を意識し、描画更新のコストを最小限に抑える工夫が必要だ。

結論

優れた自動化エンジニアは、コードの「動き」だけでなく、コードの「寿命」と「管理コスト」に責任を持つ。
`Layer.Color` プロパティを単なる色の変更手段としてではなく、「情報の構造を定義するための制御レバー」として捉え直せ。それが、君の作るツールを「ただのスクリプト」から「プロフェッショナルな製品」へと変貌させる。