マクロ記録の先へ。レイヤー概念で図面を支配する「カラーテーマ適用」の極意
こんにちは。Visio VBAの世界へようこそ。
「マクロの記録」機能を使って、色を変えたり図形を動かしたりするコードは書けるようになった。でも、いざ「図面全体の色を一括で、ブランドカラーに合わせて変更したい」と思ったとき、記録されたコードの山を見て、途方に暮れたことはありませんか？
マクロの記録は、あくまで「あなたの操作をなぞる」だけのものです。それは「レシピを書き写している」状態に過ぎません。プロのエンジニアは、レシピを書き写すのではなく、「食材（オブジェクト）の性質を理解し、調理法（ロジック）を組み立てる」のです。
今日は、マクロ記録の壁を突破し、Visioの「レイヤー」という概念を使いこなして、図面全体を瞬時にデザイン変更する「カラーテーマ適用スクリプト」の書き方を伝授します。これが書ければ、あなたももう「初学者」卒業ですよ。
1. なぜ「図形」ではなく「レイヤー」を操作するのか？
ここが、設計思想の分かれ目です。
初心者は、こう考えがちです。
「図形の色を変えたいんだから、図形（Shape）を全部探して、一つずつ色を変えればいいよね」
もちろん、それは間違いではありません。しかし、図面が数百、数千の図形で構成されていたらどうでしょう？ 処理速度は落ち、コードは複雑怪奇になります。
そこで登場するのが「レイヤー（Layer）」です。
プロフェッショナルな図面設計では、図形を「電気系統」「配管」「構造物」といった具合に、論理的なグループ（レイヤー）に分けて管理します。
「レイヤーの色を変える」とは、正確には「特定のレイヤーに属する図形すべてに対して、一括で色を適用する」という戦略的なアプローチを指します。
この考え方を持つだけで、あなたのコードの「重み」と「美しさ」は劇的に変わります。
2. 実践：カラーテーマ適用スクリプト
それでは、実際に使えるコードを見てみましょう。このスクリプトは、指定したレイヤー名に基づいて、プロジェクトのブランドカラーを適用するものです。
Option Explicit
''' <summary>
''' 図面内の特定のレイヤーに属する図形の色を一括変更する
''' </summary>
Sub ApplyLayerColorTheme()
Dim vsoPage As Visio.Page
Dim vsoLayer As Visio.Layer
Dim vsoShape As Visio.Shape
Dim targetColor As Long
' --- 設定エリア：ここを書き換えるだけでテーマが変わります ---
' 例：ブランドカラー（RGBで指定）
Const COLOR_PRIMARY As Long = 16711680 ' 赤系 (RGB: 255, 0, 0)
Const COLOR_SECONDARY As Long = 65536 ' 青系 (RGB: 0, 255, 0)
Const COLOR_ACCENT As Long = 16776960 ' 緑系 (RGB: 0, 0, 255)
' ---------------------------------------------------------
' パフォーマンス向上のための魔法の言葉：描画更新を停止
' これをしないと、色が変わるたびに画面がチラつき、処理が激重になります。
Application.ScreenUpdating = False
On Error GoTo ErrorHandler
' アクティブなドキュメントの全ページをループ
For Each vsoPage In ActiveDocument.Pages
' 各ページ内の全レイヤーをループ
For Each vsoLayer In vsoPage.Layers
' レイヤー名に応じて適用する色を決定する（条件分岐）
Select Case vsoLayer.Name
Case "Electrical" ' 電気レイヤー
targetColor = COLOR_PRIMARY
Case "Plumbing" ' 配管レイヤー
targetColor = COLOR_SECONDARY
Case "Structural" ' 構造レイヤー
targetColor = COLOR_ACCENT
Case Else
' 該当しないレイヤーは何もしない
targetColor = 0
End Select
' 色が決まった場合のみ、そのレイヤーに属する図形を処理
If targetColor <> 0 Then
' ページ内の全図形をチェック
For Each vsoShape In vsoPage.Shapes
' 図形がそのレイヤーに属しているかを確認
If vsoShape.LayerNames.Exists(vsoLayer.Name) Then
' 図形の塗りつぶし色を変更
vsoShape.Cells("FillForegnd").Formula = "RGB(" & ColorToRGBComponents(targetColor) & ")"
' ※注意：より高度な制御には、直接RGB値を計算して代入する手法が推奨されます
End If
Next vsoShape
End If
Next vsoLayer
Next vsoPage
' 処理が終わったら描画更新を再開
Application.ScreenUpdating = True
MsgBox "カラーテーマの適用が完了しました！", vbInformation
Exit Sub
ErrorHandler:
Application.ScreenUpdating = True
MsgBox "エラーが発生しました: " & Err.Description, vbCritical
End Sub
''' <summary>
''' VisioのLong型カラーをRGB成分に分解するヘルパー関数
''' </summary>
Private Function ColorToRGBComponents(ByVal colorVal As Long) As String
' 簡易的な実装例（実際にはより厳密なビット演算が望ましい）
' ここでは概念を示すための簡略化した戻り値を想定
' 実際には、RGB(r, g, b)形式の文字列を返す設計にします
Dim r As Integer, g As Integer, b As Integer
r = colorVal Mod 256
g = (colorVal \ 256) Mod 256
b = (colorVal \ 65536) Mod 256
ColorToRGBComponents = r & "," & g & "," & b
End Function3. コードの解剖：ここが「プロ」の設計
このコードには、単なる自動化を超えた「エンジニアの知恵」が詰まっています。
① `Application.ScreenUpdating = False` の重要性
これは、業務自動化における「鉄則」です。
Visioは、プロパティが一つ変わるたびに「画面を書き直そう」とします。数千個の図形の色を変えるとき、この書き直しが走ると、PCのファンが唸りを上げ、処理に数分かかることもあります。これを `False` にすることで、「裏で黙々と作業を終わらせ、最後にパッと結果を見せる」という、高速でスマートな動きが可能になります。
② `Select Case` による戦略的分岐
`If…ElseIf…` を並べるのではなく、`Select Case` を使うことで、どのレイヤーにどの色を割り当てるのかという「ルール（仕様）」がひと目で分かるようになっています。これは、後から別のエンジニアがコードをメンテナンスする際の「優しさ」です。
③ レイヤー名によるフィルタリング
`vsoShape.LayerNames.Exists(vsoLayer.Name)`
ここが心臓部です。図形が「どのレイヤーに所属しているか」を判定しています。これにより、特定の役割を持った図形だけを狙い撃ちでリデザインできるのです。
4. 陥りやすい罠（エラー回避の知見）
罠1：レイヤー名の不一致
「Electrical」と書いたのに、実際のレイヤー名が「Electrical 」（最後にスペースが入っている）だと、プログラムは「そんなレイヤーはない」と判断してスルーしてしまいます。
対策: レイヤー名は慎重に管理するか、コード内で `Trim(vsoLayer.Name)` を使って空白を除去する工夫をしましょう。
罠2：図形が「ロック」されている
保護されている図形の色を変えようとすると、実行時エラーが発生します。
対策: `On Error GoTo ErrorHandler` を入れ、エラーが起きてもプログラムが強制終了せず、安全に終了するように設計するのがプロの作法です。
おわりに
いかがでしたか？
マクロの記録から一歩踏み出し、「オブジェクトの階層構造（Document > Page > Layer > Shape）」を意識してコードを書くことができれば、Visio VBAはあなたの強力な武器になります。
最初は難しく感じるかもしれません。でも、大丈夫。一つひとつのオブジェクトが持つプロパティを理解していけば、必ず「図面を自由自在に操る感覚」が掴めるようになります。
ここをクリアすれば、Visio VBAの基本はバッチリですよ。
さあ、次はどんな自動化に挑戦しましょうか？応援しています！
