【Visio VBA極限解説】テーマに頼るな！Styleオブジェクトを完全掌握し、図面の見た目をコードで完全に統御する技術
開発プロジェクトのリーダーである君なら、こんな経験はないだろうか。
「Visioの標準『テーマ』機能を使ったら、別バージョンのVisioで開いたときに謎の崩れ方をした」
「担当者が勝手に図形個別の色やフォントを変更し、ドキュメント全体の統一感が完全に崩壊した」
「修正のたびに全図形を手動でポチポチクリックして色を変える地獄のような作業が発生している」
Visioのデフォルトのテーマ機能は、一見便利に見えて実務の現場では「百害あって一利なし」だ。環境によってレンダリングが変わり、意図しないデザイン崩壊を引き起こす。プロの自動化エンジニアが選ぶべき道は一つ。VBAによる「Styleオブジェクト」の完全制御である。
今回は、Visioの描画エンジンを知り尽くした私が、テーマ機能に依存せず、コードで独自のスタイルを定義・一括適用して図面の品質を担保する「要塞のような堅牢なスタイル管理ロジック」を伝授する。
—
1. なぜ「テーマ」を捨て、`Style` オブジェクトを使うべきなのか
Visioの奥底には、形状（Shape）そのもののプロパティ（線、塗り、文字）とは別に、「スタイル（Style）」というマスター定義が存在する。
多くの開発者が陥るアンチパターンがこれだ：
‘ 【絶対やってはいけない非効率な書き方】
‘ ループのたびに直接プロパティを書き換える
For Each shp In ActivePage.Shapes
shp.LineColor = RGB(0, 120, 215)
shp.FillForegnd = RGB(240, 240, 240)
shp.CellsU(“Char.Size”).FormulaU = “10pt”
Next shp
このアプローチがなぜダメか？
1. パフォーマンスの劣化: 図形シェイプの数だけCell（セル）への書き込みが発生し、描画負荷が跳ね上がる。
2. 保守性の欠如: 後からデザイン変更（例：「やっぱり青みを少し変えて」）があった場合、コードのあちこちのRGB値を書き直す羽目になる。
一方、`Style` オブジェクトをマスターとして定義し、各シェイプに `Shape.Style` プロパティ経由で「参照（リンク）」させるとどうなるか。
スタイル定義を1箇所変えるだけで、それを参照している数千のシェイプが一瞬で同期・更新される。さらに、Visioのファイルサイズ肥大化を防ぎ、描画処理も圧倒的に軽快になるのだ。
—
2. 堅牢なスタイル設計のアーキテクチャ
実務で使えるツールを作るためには、以下のライフサイクルをコードに組み込む必要がある。
1. ドキュメントの存在確認: 処理対象の `Document` オブジェクトが有効か。
2. スタイルの有無チェック: すでに同名のカスタムスタイルが存在するか（存在しない場合は新規作成、存在する場合はプロパティを上書き更新）。
3. 安全な一括適用: ページ内の全シェイプ（グループ化された子シェイプ含む）に対し、再帰的にスタイルを適用する。
—
3. 実装：プロダクション品質のVBAコード
以下のコードは、コピペしてそのままプロジェクトに組み込める実用コードだ。独自の「Enterprise_Box」というスタイルを定義し、アクティブページの全図形に強制適用する。
Option Explicit
Public Sub ApplyStandardEnterpriseStyle()
Dim doc As Visio.Document
Set doc = ActiveDocument
On Error GoTo ErrorHandler
‘ 画面描画を停止し、処理速度を極限まで引き上げる（鉄則）
Application.ScreenUpdating = False
Application.Settings.EventBufferEnabled = False
‘ 1. 独自スタイルの作成または更新
Dim targetStyle As Visio.Style
Set targetStyle = GetOrCreateStyle(doc, “Enterprise_Box”)
‘ スタイルの詳細設定（線・塗り・文字書式をマスターに焼き付ける）
With targetStyle
‘ 塗りつぶし（淡いグレー）
.CellsC(visStyleFillForegnd).FormulaU = “RGB(245,247,250)”
.CellsC(visStyleFillBkgnd).FormulaU = “RGB(255,255,255)”
.CellsC(visStyleFillPattern).FormulaU = “1”
‘ 線の設定（シャープな濃いグレー）
.CellsC(visStyleLineColor).FormulaU = “RGB(70,80,95)”
.CellsC(visStyleLinePattern).FormulaU = “1”
.CellsC(visStyleLineWidth).FormulaU = “0.75 pt”
‘ 文字書式（メイリオ / 9pt / 濃いチャコール）
.CellsC(visStyleCharFont).FormulaU = “MEIRIO”
.CellsC(visStyleCharSize).FormulaU = “9 pt”
.CellsC(visStyleCharColor).FormulaU = “RGB(30,30,30)”
End With
‘ 2. アクティブページの全シェイプへスタイルを一括適用（再帰処理）
Dim pg As Visio.Page
Set pg = ActivePage
Dim shp As Visio.Shape
For Each shp in pg.Shapes
ApplyStyleRecursive shp, “Enterprise_Box”
Next shp
‘ 終了処理
Application.ScreenUpdating = True
Application.Settings.EventBufferEnabled = True
MsgBox “スタイルの適用が正常に完了しました。”, vbInformation, “デザイン標準化ツール”
Exit Sub
ErrorHandler:
‘ 異常終了時も画面描画フラグを必ず戻す
Application.ScreenUpdating = True
Application.Settings.EventBufferEnabled = True
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “致命的なエラー”
End Sub
‘ ==========================================
‘ スタイルの取得、または存在しない場合は新規作成するヘルパー関数
‘ ==========================================
Private Function GetOrCreateStyle(doc As Visio.Document, styleName As String) As Visio.Style
Dim stl As Visio.Style
On Error Resume Next
Set stl = doc.Styles(styleName)
On Error GoTo 0
If stl Is Nothing Then
‘ 新規作成（テキストと塗りと線の両方の性質を持つスタイルとして作成）
‘ 引数: 名称, 継承元(なし=”), 塗り含有, 線含有, テキスト含有
Set stl = doc.Styles.Add(styleName, “”, True, True, True)
End If
Set GetOrCreateStyle = stl
End Function
‘ ==========================================
‘ グループ化された子シェイプにも漏れなく適用するための再帰プロシージャ
‘ ==========================================
Private Sub ApplyStyleRecursive(shp As Visio.Shape, styleName As String)
On Error Resume Next
‘ ガイドや一部の特殊シェイプでStyleプロパティを持たないものをガード
shp.Style = styleName
On Error GoTo 0
‘ グループ図形の場合、内部のシェイプ（SubShapes）にも再帰的に適用
If shp.Type = visTypeGroup Then
Dim subShp As Visio.Shape
For Each subShp In shp.Shapes
ApplyStyleRecursive subShp, styleName
Next subShp
End If
End Sub
—
4. プロジェクトリーダーからの実践的アドバイス
1. 画面描画のロック (`ScreenUpdating = False`) は絶対に入れろ
Visio VBAで最もやってはいけないのが、シェイプのプロパティを触るたびに画面が再描画されることだ。数百のシェイプを処理する場合、描画を止めるだけで処理時間が 1/10以下 に短縮される。上のコードにある通り、エラーハンドラー内でも確実にフラグを戻す堅牢な構造にすること。
2. 外部DBやExcel連携への応用
この設計を極めれば、たとえば「Excelのマスター定義から企業のブランドカラー（RGB）を動的に読み込み、Visioの `Style` オブジェクトの数値を書き換えてから図形に適用する」といった、完全自動化されたCI/CDパイプラインならぬ「ドキュメント自動デザイン統制システム」が構築できる。
3. エラー対策 (`On Error Resume Next` の正しい使い方)
Visioの図面には、コネクタやガイドラインなど「文字を持たない」「線しか持たない」特殊なシェイプが混ざっている。これらに無理やり文字スタイルを適用しようとするとVBAはエラーを吐いて停止する。そのため、上記の `ApplyStyleRecursive` のように、意図的にエラーをハンドリングしてスキップする「実務的な耐性」が不可欠だ。
—
総括
テーマ機能に頼る開発は、他力本願であり、長期的な保守において必ず破綻する。
`Style` オブジェクトをプログラムから直接支配下置き、図面の見た目を完全にコードでコントロールすること。これこそが、プロの業務自動化エンジニアが備えるべき「真のスキル」である。
明日からの開発現場で、ぜひこのアーキテクチャを導入してみてほしい。圧倒的な処理速度と、揺るぎない品質の美しさに酔いしれるはずだ。
