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

こんにちは！ Visio VBAの世界へようこそ。
図面作成の現場で、「プロジェクトごとにレイヤーの色を厳密に分けなければならないのに、何十ページもある図面を手動で変更するのは気が遠くなる…」なんて絶望した経験はありませんか？

マクロの記録ボタンを押して操作をなぞってみたものの、出力されたコードはなんだか複雑で、ページが増えるとうまく動かない――。そんな「マクロの記録の壁」にぶつかっているあなたへ。

今回は、全ページのレイヤーカラーを一瞬で統一方針に書き換え、図面の視認性を劇的に向上させる「カラーテーマ適用」スクリプトの全貌を伝授します。ここをクリアすれば、Visio VBAのドキュメント構造（オブジェクトモデル）の基本はバッチリですよ。さあ、一緒にプロの扉を開きましょう！

—

なぜ「マクロの記録」だけでは実務を突破できないのか？

まず、Visio VBA初学者が最初にハマる罠についてお話させてください。
「マクロの記録」機能は優秀ですが、レイヤー操作を記録すると、決まって「今アクティブな特定のページ・特定のレイヤー名」というハードコーディング（決め打ち）が生成されます。

実務の図面は生き物です。ページ数は増減するし、レイヤーの名称だって図面ごとに微妙に異なるかもしれません。
プロのエンジニアが書くコードは、「現在の図面にある全ページを巡回し、指定したレイヤーが存在すれば、そのプロパティ（色や線種）をスマートに書き換える」という動的なアプローチをとります。

Visioのオブジェクト階層の基本は、こうです。
`Application` ＞ `Document` ＞ `Page` ＞ `Layer`

この構造さえ頭に叩き込んでおけば、どんなに巨大な図面であっても、VBAの掌の上で自在にコントロールできるようになります。

—

実装：レイヤーカラー一括変更スクリプト

それでは、実務でそのままコピペして使える「カラーテーマ適用スクリプト」を公開します。
今回は、例として「設備・配管図」などを想定し、「Mechanical（空調・衛生）」レイヤーを鮮やかなシアン（水色）に統一するシナリオで組み上げていきましょう。

VBAエディタ（`Alt` + `F11`）を開き、標準モジュールに以下のコードを貼り付けてください。

Option Explicit

‘ ==============================================================================
‘ 処理名: ApplyLayerColorTheme
‘ 概要: アクティブな図面の全ページを走査し、指定したレイヤーの色を一括変更する
‘ ==============================================================================
Public Sub ApplyLayerColorTheme()
‘ 1. 変数の宣言（メモリの確保と型定義）
Dim vsoDoc As Visio.Document
Dim vsoPage As Visio.Page
Dim vsoLayer As Visio.Layer

Dim targetLayerName As String
Dim targetColor As OLE_COLOR
Dim layerFoundCount As Long

‘ — 【設定エリア】 ここでテーマのルールを定義します —
targetLayerName = “Mechanical” ‘ 変更対象のレイヤー名
targetColor = RGB(0, 162, 232) ‘ 適用したいカラー（例：鮮やかなシアン）
‘ ——————————————————–

‘ 画面描画をロックして処理速度を爆発的に向上させる（お作法その1）
Application.ScreenUpdating = False

‘ 処理の安全性を担保するため、アクティブドキュメントを変数に格納
Set vsoDoc = ActiveDocument

If vsoDoc Is Nothing Then
MsgBox “有効な図面が開かれていません。”, vbCritical, “エラー”
Exit Sub
End If

layerFoundCount = 0

‘ 2. 全ページをループ（上流から下流へドキュメントを舐め尽くす）
For Each vsoPage In vsoDoc.Pages

‘ 各ページに存在するレイヤーのコレクションを走査
For Each vsoLayer In vsoPage.Layers

‘ レイヤー名が一致するか判定（大文字・小文字を区別しない場合は StrComp を推奨）
If vsoLayer.Name = targetLayerName Then

‘ 3. プロパティの書き換え（ColorプロパティにRGB値を代入）
vsoLayer.Color = targetColor

‘ （おまけ）確実に視覚的変更を反映させるための再描画トリガー
vsoLayer.CellsC(visLayerColor).FormulaU = “RGB(” & _
CStr(RedFromColor(targetColor)) & “,” & _
CStr(GreenFromColor(targetColor)) & “,” & _
CStr(BlueFromColor(targetColor)) & “)”

layerFoundCount = layerFoundCount + 1
Exit For ‘ 同一ページ内に同名レイヤーは通常1つのため、見つかったら次のページへ
End If

Next vsoLayer

Next vsoPage

‘ 画面描画のロックを解除（お作法その2）
Application.ScreenUpdating = False
Application.ScreenUpdating = True

‘ 4. 完了報告（ユーザーへのフィードバック）
MsgBox “カラーテーマの適用が完了しました！” & vbCrLf & _
“対象レイヤー: ” & targetLayerName & vbCrLf & _
“更新されたページ数: ” & layerFoundCount & ” 箇所”, _
vbInformation, “処理成功”

End Sub

—

コードの核心：プロが仕込んだ3つの「キモ」

上記のコードには、ただ動くだけでなく、実務の現場で耐えうるための3つのエンジニアリング知見が組み込まれています。

1. `Application.ScreenUpdating = False` による高速化

Visioは、VBAから図形やレイヤーのプロパティを1つ変更するたびに、画面の再描画（画面の書き換え）を行おうとします。ページ数が100を超えるような巨大図面でこれをやると、完了するまでに何分もかかり、フリーズしたかと冷や汗をかくことになります。
処理の最初に画面描画を止め、最後に一気に描き戻す。これだけで実行速度が何倍にも跳ね上がります。プロの常識です。

2. レイヤーの `Color` プロパティと `CellsC` の二段構え

Visioのレイヤーの色を制御する場合、単純に `vsoLayer.Color = targetColor` と指定するだけでは、図面のバージョンや設定によって図形側の線色が追従しないケースがあります。
そのため、コード内ではレイヤーオブジェクトのセル（`visLayerColor`）に対して直接数式（Formula）を流し込む処理を併用しています。これにより、Visioの内部エンジンに「今、強制的に色を書き換えたぞ」と正確に認識させることができます。

3. `Option Explicit` による厳格な変数管理

コードの最上部に書かれているこの一行。これが抜けているコードはプロの仕事ではありません。変数の型を明確に定義し、スペルミスによるバグをコンパイル段階で完全に排除するための、エンジニアの命綱です。

—

陥りやすいエラーと回避のテクニック

このスクリプトを運用する際、現場でよくある「落とし穴」とその対策をシェアしておきます。

• エラー：「インデックスが有効範囲にありません」 または Nothingエラー
• 原因: 図面が開かれていない状態、あるいはマスターページ（ステンシル側）などを誤って走査しようとしたときに発生します。
• 対策: 今回のコードのように `vsoDoc.Pages` を使って通常の図面ページだけを安全にループさせることが重要です。
• 「あれ？ 色が変わらない図面があるぞ？」
• 原因: 図面側の図形が、レイヤーの色に従う設定（By Layer）になっておらず、個別に直接色が塗られている（ハードコーディングされている）場合があります。
• 対策: 大前提として、図面の図形は「線の色」「塗りつぶし」ともにレイヤー連動（または「色：白黒なし（By Layer）」）に設定しておく運用ルールが不可欠です。VBAはあくまでルールが整った土台の上で真価を発揮します。

—

おわりに：ここをクリアすれば、あなたはもう中級者

お疲れ様でした！
今回のスクリプトをマスターすれば、単なる「操作の自動化」を超えて、「図面データ全体のメタデータを一元管理する」というVBAの本当の醍醐味に触れたことになります。

「毎回の面倒な色調整がワンクリックで終わった！」
その感動を味わえたなら、あなたのVisio VBAスキルは確実に次のステージへとステップアップしています。

業務の自動化に終わりはありません。次は「レイヤーの新規一括作成」や「不要レイヤーのパージ（削除）」など、自分の手で機能を拡張してみてください。
あなたの自動化ライフが、より快適で知的になりますように。チーフアーキテクトの私から、エールを送ります！