Visio VBAを掌握する極限の知見：プログラムで図面デザインを制圧する『ApplyTheme』の極意
こんにちは。開発プロジェクトの現場で数々のドキュメント自動化アーキテクチャを構築してきたチーフアーキテクトだ。
Visioを使った自動化において、多くの開発者が陥る罠がある。それは「図面の構造やシェイプの配置だけに気を取られ、デザイン（見た目）の統制を軽視する」という罠だ。
数十枚、数百枚におよぶ社内ネットワーク図やフローチャートをVBAで自動生成したはいいものの、デフォルトの青臭いシェイプが無造作に並び、プレゼンにも耐えない代物が出来上がってしまった――そんな苦い経験はないだろうか？
手動でVisioのリボンから「デザイン」タブを開き、テーマやバリエーションをポチポチと変更するなど、自動化エンジニアの恥だ。
今回は、`Document`オブジェクトの`ApplyTheme`メソッドを完全に手なずけ、一瞬で図面全体のデザインを一新し、社内標準デザインへの準拠やTPOに応じたルック＆フィールをプログラムから完全制御する方法を伝授する。
—
1. Visioテーマ構造の深層：なぜ「ただ適用するだけ」では破綻するのか？
まず、Visioの描画エンジンの裏側の仕様を理解しなければならない。
Visioの見た目は、単なる「色やフォントのベタ塗りの集合」ではない。以下の階層構造で成り立っている。
1. テーマ（Theme）: シェイプの配色パターンや効果（影やグラデーションなど）のベース定義。
2. バリエーション（ThemeVariant）: 選択されたテーマの中でのカラートーンのバリエーション（濃淡やアクセントカラーの切り替え）。
3. クイックスタタイル（QuickStyle）: 各シェイプが持つテーマへの追従インデックス。
ここで問題になるのが、「古い図面や、マスターから切り離された変則的なシェイプにはテーマが適用されない」という事実だ。
世の中に散らばる「とりあえず `ApplyTheme` だけ書いたコード」は、実務の現場では高確率で沈没する。マスターシェイプの構造、既存のオーバライド（個別の色設定など）との衝突を考慮した、堅牢な設計が求められるのだ。
—
2. 堅牢なテーマ適用ロジックの設計思想
プロダクションコードとして耐えうるマクロを書くために、以下の3原則を遵守する。
- エラーハンドリングの徹底: 指定したテーマ名が存在しない場合や、ドキュメントが保護されている場合のクラッシュを防ぐ。
- 適用前後の画面描画ロック: `ScreenUpdating` と `EventsEnabled` を封じ、テーマ変更時の重たい再描画コストを完全に排除する。
- 明示的なマスターの指定: ドキュメント全体（`ActiveDocument`）に対し、確実に適用命令を伝播させる。
—
3. 【プロダクションコード】社内標準テーマ一括適用マクロ
以下のコードは、実務の現場ですぐに組み込めるように最適化したモジュールだ。
指定したテーマ名とバリエーションをアクティブドキュメントに強制適用し、図面全体のトーン＆マナーを統一する。
Option Explicit
‘ =================================================================================
‘ 担当者名: チーフアーキテクト
‘ 処理概要: アクティブドキュメントに対してVisioのテーマとバリエーションを適用し、
‘ 視覚的統一感をプログラムから強制するプロフェッショナル向けルーチン。
‘ =================================================================================
Public Sub ApplyStandardThemeToDocument()
‘ 1. 宣言とパフォーマンス最適化の準備
Dim targetDoc As Visio.Document
Set targetDoc = ActiveDocument
‘ 開発現場の鉄則：描画とイベントを止めろ。テーマ変更は見た目以上に重い処理だ。
Application.ScreenUpdating = False
Application.EventsEnabled = False
On Error GoTo ErrorHandler
‘ 2. 適用するテーマ名とバリエーションの定義
‘ ※環境やVisioのバージョン（2013以降）により利用可能な名称が異なります。
‘ 日本語環境の場合は日本語名、英語環境の場合は英語名（例: “Flow”, “Vibrant” 等）を指定してください。
Const TARGET_THEME_NAME As String = “オーガニック” ‘ 例: 標準テーマの一つ
Const TARGET_VARIANT_NAME As String = “バリエーション 2” ‘ バリエーション番号
Dim themeObj As Visio.Theme
Dim variantObj As Visio.ThemeVariant
Dim isThemeApplied As Boolean
isThemeApplied = False
‘ 3. ドキュメント内の利用可能なテーマを走査し、合致するものを適用
For Each themeObj In targetDoc.Themes
If themeObj.Name = TARGET_THEME_NAME Then
‘ バリエーションの走査と適用
For Each variantObj In targetDoc.ThemeVariants
If variantObj.Name = TARGET_VARIANT_NAME Then
‘ ApplyThemeメソッドの実行
‘ 第1引数: テーマ, 第2引数: バリエーション
targetDoc.ApplyTheme themeObj.Name, variantObj.Name
isThemeApplied = True
Exit For
End If
Next variantObj
Exit For
End If
Next themeObj
‘ 4. 適用結果の検証
If isThemeApplied Then
Debug.Print “【成功】テーマ ‘” & TARGET_THEME_NAME & “‘ の適用が完了しました。”
Else
Err.Raise 9999, “ApplyStandardThemeToDocument”, “指定されたテーマまたはバリエーションが見つかりませんでした。名称を確認してください。”
End If
CleanUp:
‘ 5. 必ず環境を元に戻す（エラー発生時も確実に実行）
Application.ScreenUpdating = True
Application.EventsEnabled = True
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“エラー内容: ” & Err.Description, vbCritical, “Visioテーマ適用マクロ”
Resume CleanUp
End Sub
—
4. データベースやファイル連携における実務上の注意点
この自動化をさらに発展させ、例えば「社内ポータルのデータベースから案件のステータスを取得し、それに合わせて図面の色を動的に切り替える」といったシステムを構築する場合、以下の点に留意してほしい。
1. 言語依存（Local vs Universal Name）の問題
`themeObj.Name` はExcelやVisioの表示言語（日本語版・英語版）に依存する。もしグローバル展開するツールや、多言語が混在するPC環境で動かす場合は、名称ではなくインデックス番号で制御するか、あらかじめエラーハンドリングでフォールバックを用意する設計にすべきだ。
2. カスタムシェイプとの競合
ユーザーが独自にRGB値を直撃させたシェイプ（クイックスタイルを外したシェイプ）は、`ApplyTheme` を実行しても色が上書きされない場合がある。全シェイプを強制的にテーマ追従させたい場合は、適用前に各シェイプの `LineColor` や `FillForegnd` の数式をクリアし、テーマのデフォルトにバインドし直す前処理が必要になる。
—
5. チーフアーキテクトからの総括
「見た目の調整」を人間の手作業に依存しているうちは、真の業務効率化とは言えない。
今回紹介した `ApplyTheme` の制御をマスターすれば、生成するドキュメントの品質を常に一定の基準に保ち、「誰が作っても美しい、プロフェッショナルな成果物」をワンクリック、あるいは完全バックグラウンドで出力することが可能になる。
コードの意図を深く理解し、泥臭い手作業をコードの力で駆逐してほしい。君たちの健闘を祈る。
