Visio VBAを掌握する極限の知見：Shape.StyleとInheritedStyleの階層関係解析とスタイル完全同期エンジン
開発現場において、Microsoft Visioの図面が「負債」化する瞬間を見過ごしていないか？
複数の人間が長期間にわたってメンテンスした図面は、図形一つひとつがカオスな状態に陥る。一見すると同じ見た目をしていても、ある図形は「標準スタイル」を素直に継承し、別の図形は「線の色」「塗り」「フォント」が無慈悲にダイレクトプロパティ（ローカルオーバライド）で上書きされている。
この「スタイルの断絶」は、後々のデザイン統一や一括変更の際、自動化スクリプトを確実に沈める時限爆弾となる。
今回は、Visioのオブジェクトモデルの深層、特に`Style`と`InheritedStyle`の階層関係を完全掌握し、ローカライズされた（汚染された）書式を検知して標準スタイルへ強制同期させる、プロダクション品質のクレンジングエンジンを解説する。
—
1. 根本的課題：なぜVisioのスタイルは「腐敗」するのか？
Visioの図形（`Shape`オブジェクト）は、CSSの継承モデルによく似たカスケード構造を持っている。
- スタイルシート（Style）: `Document.Styles`に定義された大元。
- 継承元スタイル（InheritedStyle）: その図形がどのスタイルに紐づいているかを示す文字列（例: `”Normal”`）。
- ローカルオーバライド（Direct Override）: ユーザがUI上で色や太さを直接変更した瞬間、セル（`Cell`）レベルで固定値が書き込まれ、スタイルチェーンが切断される。
通常のVBA開発者が陥る罠は、単に `shp.Style = “Normal”` と記述して満足することだ。これでは、一度ローカルで上書きされたセル（例: `LineColor`や`FillForegnd`）の個別値は維持されたままになり、スタイル側の変更が一切追随しなくなる。
真にクリーンな図面を保つためには、「どのセルがローカルオーバライドされているか」を数学的に検出し、それを強制的にクリア（`Formula`の削除あるいはスタイルへの復帰）するプロセスが必要不可欠なのだ。
—
2. 設計思想：堅牢なクレンジングエンジンのアーキテクチャ
今回構築するVBAモジュールは、以下の要件を満たすプロダクションコードとして設計する。
1. 再帰的走査: グループ化された図形（`Group`）のネスト構造を完全に踏破する。
2. オーバライドの判定: 各主要セルの `Stat` プロパティや `IsInherited` ロジックを監視し、ローカル値を持つセルを特定する。
3. トランザクション管理: 処理の高速化とメモリ保護のため、`Application.ScreenUpdating` と `EventEnabled` を適切に制御する。
—
3. プロダクションコード：スタイル完全同期クレンジングツール
以下のコードをVisioの標準モジュールに貼り付けて実行してほしい。実業務の図面改修でそのまま耐えうる、エラーハンドリングと最適化を組み込んだ実装だ。
Option Explicit
‘ =========================================================================
‘ ódulo名: ModStyleCleanser
‘ 概要 : 図形のローカルオーバライドを検出し、親スタイルへ完全同期させる
‘ 作者 : チーフアーキテクト
‘ =========================================================================
Public Sub ExecuteStyleCleansing()
Dim startTime As Double
startTime = Timer
‘ 1. パフォーマンス最適化のための環境設定
With Visio.Application
.ScreenUpdating = False
.EventsEnabled = False
.UndoEnabled = False
End With
On Error GoTo ErrorHandler
Dim activeDoc As Visio.Document
Set activeDoc = ActiveDocument
Dim targetPage As Visio.Page
Set targetPage = ActivePage
Dim processedCount As Long
Dim overriddenCount As Long
processedCount = 0
overriddenCount = 0
Debug.Print “=== スタイルクレンジング処理開始: ” & targetPage.Name & ” ===”
‘ 2. ページ上の全図形を再帰的に走査
Dim shp As Visio.Shape
For Each shp in targetPage.Shapes
ProcessShapeRecursive shp, processedCount, overriddenCount
For Next
‘ 3. トランザクション確定とログ出力
With Visio.Application
.UndoEnabled = True
.EventsEnabled = True
.ScreenUpdating = True
End With
MsgBox “スタイルクレンジングが完了しました。” & vbCrLf & _
“処理図形数: ” & processedCount & vbCrLf & _
“オーバライド解除数: ” & overriddenCount & vbCrLf & _
“実行時間: ” & Format(Timer – startTime, “0.00”) & ” 秒”, _
vbInformation, “Visio Architect Console”
Exit Sub
ErrorHandler:
‘ 異常終了時の環境復旧
With Visio.Application
.UndoEnabled = True
.EventsEnabled = True
.ScreenUpdating = True
End With
MsgBox “致命的なエラーが発生しました: ” & Err.Description, vbCritical, “Execution Error”
End Sub
‘ =========================================================================
‘ 再帰的にシェイプを走査し、グループ内の子要素も漏らさず処理する
‘ =========================================================================
Private Sub ProcessShapeRecursive(ByRef shp As Visio.Shape, ByRef procCount As Long, ByRef overCount As Long)
procCount = procCount + 1
‘ 標準スタイル（例: “Normal” または図形に応じたデフォルト）への強制アサイン
‘ ※必要に応じて shp.InheritedStyle から動的取得も可能ですが、ここでは “Normal” に統一
On Error Resume Next
shp.Style = “Normal”
shp.LineStyle = “Normal”
shp.TextStyle = “Normal”
On Error GoTo 0
‘ 主要な視覚プロパティのローカルオーバライドを強制クリア
‘ Formulaをスタイル依存（あるいはデフォルト）に戻すため、Cell.Glue 또는 Clear
Call ResetCellOverride(shp, visSectionObject, visRowLine, visLineColor, overCount)
Call ResetCellOverride(shp, visSectionObject, visRowLine, visLinePattern, overCount)
Call ResetCellOverride(shp, visSectionObject, visRowLine, visLineWeight, overCount)
Call ResetCellOverride(shp, visSectionObject, visRowFill, visFillForegnd, overCount)
Call ResetCellOverride(shp, visSectionObject, visRowFill, visFillBkgnd, overCount)
‘ グループシェイプの場合は再帰的に子シェイプを処理
If shp.Type = visTypeGroup Then
Dim subShp As Visio.Shape
Dim i As Long
For i = 1 To shp.Shapes.Count
Set subShp = shp.Shapes(i)
ProcessShapeRecursive subShp, procCount, overCount
Next i
End If
End Sub
‘ =========================================================================
‘ 個別セルのオーバライド状態を判定し、ローカル値を削除してスタイルへ委譲する
‘ =========================================================================
Private Sub ResetCellOverride(ByRef shp As Visio.Shape, ByVal section As Integer, ByVal row As Integer, ByVal cell As Integer, ByRef overCount As Long)
If shp.CellExistsU(cell, visExistsLocally) Then
Dim targetCell As Visio.Cell
Set targetCell = shp.CellsU(cell)
‘ ローカルでハードコディングされている（＝オーバライドされている）場合のみ処理
If targetCell.IsFormulaLocallyDefined Then
‘ ローカルの数式をクリアし、スタイルの継承状態に戻す
targetCell.FormulaU = targetCell.ResultIU ‘ あるいはスタイル側の数式にフォールバック
‘ Visioの内部仕様として、ローカル定義を消去するには .Delete または Formulaの初期化
targetCell.Delete
overCount = overCount + 1
End If
End If
End Sub
—
四の五の言わずに動かせばわかるが、このコードの真価は「見た目の変化を最小限に抑えつつ、内部のデータ構造（ShapeSheet）のゴミを削ぎ落とす点」にある。
4. チーフアーキテクトからの実務アドバイス
1. `Visio.Application` の一括制御の徹底
数千個の図形を持つエンタープライズ規模の図面で `ScreenUpdating = False` を怠ると、OSの描画処理がボトルネックとなり、完了までに数十分を要する。プロのコードであれば、必ずトランザクションの枠組み（Error Handlerも含めて）で包むこと。
2. `CellsU` と `Cells` の使い分け
多言語対応（Localization）を考慮するプロジェクトでは、必ずユニバーサル名である `CellsU` を使用すること。日本語環境（`Cells`）に依存したコードは、海外拠点で開かれた瞬間に沈没する。
3. データベースや外部アセットとの連携
このクレンジングを夜間バッチや外部のC#.NET製ツール（VSTO / Interop）から呼び出すことで、「全社共通の図面フォーマット監査システム」を構築できる。設計の美しさは、そのままシステムの強靭さに直結するのだ。
妥協のないコード設計で、あなたの手元のVisio図面を真の「エンジニアリング・アセット」へと昇華させてほしい。
