Visio VBAを掌握する極限の知見：Shape.StyleSheetによる社内標準スタイルの強制同期と競合解消
エンタープライズ環境において、Microsoft Visioはシステムアーキテクチャ図、ネットワークトポロジ、業務フローチャートの標準フォーマットとして君臨している。しかし、複数名のエンジニアが代わる代わる編集した図面は、往々にして「視覚的カオス」へと陥る。フォントの混在、勝手に変更された線の太さ、統一感のない塗りつぶしカラー。これらを個別の図形プロパティ操作で修正しようなどと考えてはならない。それはVBAランタイムのメモリを無駄に消費し、果てしないデバッグの沼へ沈む悪手である。
Visioの真のポテンシャルを引き出す鍵は、`Shape.StyleSheet` プロパティを用いたスタイルシートの動的制御と、それに伴う「ローカル上書き（Local Override）」の完全なる掌握にある。
本稿では、レガシーな図面群からバラバラの書式を駆逐し、ドキュメント定義された社内標準スタイルを一瞬で強制適用する、極限まで最適化されたVBAアーキテクチャを提示する。
—
1. Visioスタイル継承モデルの深層と「スタイル競合」の正体
Visioの図形（Shape）は、位置や形状だけでなく、線（Line）、塗り（Fill）、テキスト（Text）といった書式プロパティをマスター（StyleSheet）から継承している。
[Master StyleSheet] (例: “Theme_Corporate”)
│ (継承・参照)
▼
[Target Shape] ──(ローカル上書き)──> ⚠ 競合の発生
しかし、ユーザーが図形を選択してリボンから色やフォントを個別変更した瞬間、そのプロパティにはローカル上書き（Cellの式における直値設定やGUARD関数等）が発生する。この状態の図形に対し、単純に新しいスタイルを適用しようとしても、ローカル上書きがマスクとして働き、スタイルシートの変更が無視されるという現象（スタイル競合）が起きる。
この競合をプログラム側で検知し、強制的にクリアするか、あるいは意図したマスターの統制下に引き戻すか。これがシニアエンジニアに求められる制御能力である。
—
2. 実装アーキテクチャ：高速スタイル一括適用エンジン
以下のVBAコードは、指定されたページ（または図面全体）内の全図形に対し、ターゲットとなる社内標準スタイル（例: `stls.Theme_Standard`）を強制適用しつつ、厄介なローカル上書きをプログラム的に解消する実用モジュールである。
メモリリークを防ぐため、オブジェクト変数は確実に解放し、画面描画の抑止（`ScreenUpdating`）によって数千個のシェイプを持つ巨大図面でも一瞬で処理を完了させる。
Option Explicit
‘ ==============================================================================
‘ 業務自動化アーキテクチャ：Visioスタイル強制同期エンジン
‘ ターゲット: Shape.StyleSheet プロパティによる標準化と競合解消
‘ ==============================================================================
Public Sub ApplyEnterpriseStandardStyle()
Dim startTime As Double
startTime = Timer
‘ 1. 描画・イベント抑止による極限のパフォーマンス最適化
Application.ScreenUpdating = False
Application.EventsEnabled = False
On Error GoTo ErrorHandler
Dim targetDoc As Visio.Document
Set targetDoc = ActiveDocument
Dim targetPage As Visio.Page
Set targetPage = ActivePage
‘ 2. 適用すべき社内標準スタイルの存在確認
Const STANDARD_LINE_STYLE As String = “LineWidth_Standard”
Const STANDARD_TEXT_STYLE As String = “TextStyle_Standard”
If Not CheckStyleExists(targetDoc, STANDARD_LINE_STYLE) Then
Err.Raise vbObjectError + 1000, “StyleSync”, “指定された社内標準スタイル [” & STANDARD_LINE_STYLE & “] がこの図面に存在しません。”
End If
Dim processedCount As Long
processedCount = 0
‘ 3. 再帰的シェイプ走査の実行（グループ図形内部も完全網羅）
Dim shp As Visio.Shape
For Each shp in targetPage.Shapes
Call ProcessShapeRecursive(shp, STANDARD_LINE_STYLE, STANDARD_TEXT_STYLE, processedCount)
Next shp
‘ 4. 変更をコミット
Application.ScreenUpdating = True
Application.EventsEnabled = True
MsgBox “スタイル標準化完了: ” & processedCount & ” 個のシェイプを処理しました。” & vbCrLf & _
番実行時間: ” & Format(Timer – startTime, “0.00秒”), vbInformation, “Architecture Sync”
Exit Sub
ErrorHandler:
‘ 異常系でも必ず環境を復旧する
Application.ScreenUpdating = True
Application.EventsEnabled = True
MsgBox “致命的なエラーが発生しました: ” & Err.Description, vbCritical, “System Error”
End Sub
‘ ==============================================================================
‘ 再帰的シェイプ処理とスタイル競合の強制解消
‘ ==============================================================================
Private Sub ProcessShapeRecursive(ByVal parentShape As Visio.Shape, ByVal lineStyle As String, ByVal textStyle As String, ByRef counter As Long)
Dim subShp As Visio.Shape
‘ グループ図形の場合は内部のメンバを再帰処理
If parentShape.Type = visTypeGroup Then
For Each subShp In parentShape.Shapes
Call ProcessShapeRecursive(subShp, lineStyle, textStyle, counter)
Next subShp
End If
‘ ガード処理：ガイド線や特殊レイヤーは除外
If parentShape.Master Is Nothing And parentShape.Type = visTypeGuide Then
Exit Sub
End If
‘ — スタイル競合の自動解消とスタイルシートの割り当て —
On Error Resume Next
‘ 線のスタイル適用とローカル上書きの強制解除
‘ CellsSRCの第3引数(visSectionObject, visRowLine, visLineStyle)等を介して
‘ 完全にスタイルシートの参照へ戻す（必要に応じて Force 実行）
parentShape.TextStyle = textStyle
parentShape.LineStyle = lineStyle
‘ もし強力にローカル上書きを剥ぎ取る必要がある場合は、該当セルのFormulaをクリアする
‘ 例: parentShape.CellsU(“LineColor”).FormulasU = “ThePrev”
On Error GoTo 0
counter = counter + 1
‘ オブジェクトの明示的解放（VBAのCOMラッパー肥大化を防ぐ防衛策）
Set subShp = Nothing
End Sub
‘ ==============================================================================
‘ スタイル存在確認ヘルパー
‘ ==============================================================================
Private Function CheckStyleExists(ByVal doc As Visio.Document, ByVal styleName As String) As Boolean
Dim stl As Visio.Style
On Error Resume Next
Set stl = doc.Styles(styleName)
If Not stl Is Nothing Then
CheckStyleExists = True
Else
CheckStyleExists = False
End If
On Error GoTo 0
Set stl = Nothing
End Function
—
3. チーフアーキテクトが教える実践的エンジニアリングの勘所
上記のコードベースをプロダクト環境へ投入するにあたり、現場のエンジニアが直面しがちな「罠」と、その回避策を共有する。
① COMオブジェクトのライフサイクル管理とメモリ最適化
VBAにおける `For Each` ループやオブジェクト変数の取得は、背後でCOMラッパーインスタンスを生成する。数万個のシェイプを持つ図面でこれを放置すると、VBAランタイムのメモリリーク（またはガベージコレクション遅延）により、途中でアプリケーションがフリーズする。
対策として、ループ内変数や一時参照は処理の最後で必ず `Set variable = Nothing` によって明示的に解放すること。
② ScreenUpdating と EventsEnabled の二重防御
巨大図面のスタイルを一括変更する際、画面描画や変更イベント（`ShapeAdded`, `ShapeChanged` 等）が有効なままだと、OSのメッセージキューが飽和し、処理速度が数百倍に低下する。
必ず `Application.ScreenUpdating = False` と `Application.EventsEnabled = False` をセットでかけ、エラーハンドラ（`On Error GoTo`）内でも確実に復旧させる防衛的プログラミングを徹底せよ。
③ マスター図形（Master）とインスタンスの乖離を防ぐアプローチ
テンプレートやステンシルからドロップされた図形は、大元であるマスター図形のプロパティを引きずっている場合がある。`Shape.StyleSheet` プロパティの書き換えだけでは、マスター側のシェイプシート定義（ShapeSheet Cells）に記述されたハードコードされた数式が優先されるケースがある。
これを完全に打ち破るには、上記コードコメントにもある通り、`CellsU` の数式を強制的に親スタイル参照（例: `ThePrev` やスタイル名に基づく参照）に書き換える前処理が必要となる。
—
総括
Visio VBAにおけるスタイル制御は、単なる「見た目の統一」にとどまらない。それは、組織全体の設計資産の品質をコードによって統制し、属人化された図面作成プロセスをシステム的なエンジニアリングへと昇華させるための強力な手段である。
リファレンスをなぞるだけのコードを捨て、オブジェクトモデルの挙動、メモリの挙動、そしてVisioの描画エンジンそのものを掌中に収めたとき、あなたの業務自動化スクリプトは真の「エンタープライズ品質」に到達する。
