テンプレートの品質は「マスター」で決まる：Visio VBAによる属性一括制御の極意
エンジニアリングの現場において、図面の「揺らぎ」は致命的な欠陥だ。
線幅がバラバラな回路図、色指定が統一されていないフローチャート。これらは単なる見た目の問題ではない。情報の読み取り速度を低下させ、誤解を生む「ノイズ」そのものである。
Visioを用いた業務自動化において、真に価値のあるツールとは、個別の図形を操作するものではない。「図形の定義（マスターシェイプ）そのものを正しく制御し、不変のルールを強制する」ツールである。
本稿では、ステンシル内の全マスターシェイプに対して、ShapeSheetのセル値を一括で書き換える、極めて実践的かつ堅牢な設計手法を伝授する。単なるループ処理の解説ではない。プロフェッショナルとして、バグを未然に防ぎ、保守性を担保するための「設計思想」を叩き込む。
1. 凡庸なコードが陥る「3つの罠」
多くの開発者が、マスターシェイプの属性変更を実装しようとして、以下のような初歩的なミスを犯す。
1. 「存在しないセル」へのアクセス: 全てのマスターが同じShapeSheetセクションを持っているとは限らない。存在しないセルに `Formula` を書き込もうとした瞬間、ランタイムエラーでプロセスは停止する。
2. 「読み取り専用」の無視: 開いているステンシルが、書き込み権限のないファイル（読み取り専用）であった場合、処理は無意味なままエラーを吐いて終わる。
3. 「Undo（元に戻す）」の欠如: 数百のマスターを書き換えた後、ユーザーが「やっぱり元に戻したい」と思ったとき、一歩ずつUndoしなければならない設計は、ツールとして三流である。
我々が目指すべきは、これらの例外を完全に制御下に置いた、「原子性（Atomicity）」のある実装だ。
2. アーキテクチャ設計：堅牢な一括置換エンジン
マスターシェイプの書き換えを行う際、設計すべきロジックは以下の4層構造である。
1. Validation層: ステンシルが編集可能か、対象のセルが存在するかを検証する。
2. Transaction層: 処理全体を一つの `Undo` ブロックとしてカプセル化する。
3. Execution層: 効率的なループ処理と、ShapeSheetへのFormula書き込みを実行する。
4. Persistence層: 変更を確実にファイルへ反映、あるいはエラー時にロールバックする準備を行う。
3. プロダクション・コード：MasterAttributeSynchronizer
以下に、実務でそのまま投入可能なレベルのコードを示す。このコードは、単に色を変えるだけでなく、エラーハンドリングとトランザクション管理を完備している。
Option Explicit
''' <summary>
''' ステンシル内の全マスターシェイプの特定の属性を一括更新する。
''' </summary>
Public Sub SynchronizeMasterAttributes()
Dim stencil As Visio.Stencil
Dim master As Visio.Master
Dim targetCellName As String
Dim newValue As String
Dim successCount As Long
Dim errorCount As Long
' --- 設定エリア (本来は外部DBや設定ファイルから取得すべき) ---
targetCellName = "FillForegcolor" ' 変更対象のセル名
newValue = "RGB(0, 112, 192)" ' 設定する値 (ShapeSheet形式)
' -------------------------------------------------------
' 1. アクティブなステンシルを取得
On Error Resume Next
Set stencil = Application.ActiveStencil
On Error GoTo 0
If stencil Is Nothing Then
MsgBox "有効なステンシルが開かれていません。", vbCritical, "Error"
Exit Sub
End If
' 2. 書き込み権限のチェック
' ステンシルが読み取り専用の場合、処理を中断する
If stencil.Protection And visProtectionEdit = visExists Then
MsgBox "ステンシルが保護されているため、変更できません。", vbExclamation, "Access Denied"
Exit Sub
End If
' 3. トランザクションの開始 (Undoを一つの操作にまとめる)
Application.BeginUndoRecord "Master Attribute Synchronization"
successCount = 0
errorCount = 0
' 4. マスターシェイプの反復処理
For Each master In stencil.Masters
On Error GoTo CellUpdateError
' セルの存在確認 (防御的プログラミング)
' Masterオブジェクトに対して直接Cellsにアクセスする前に、存在を検証する
If master.CellExists(targetCellName, visExists) Then
' Formulaプロパティを使用することで、定数だけでなく数式も扱える
master.Cells(targetCellName).Formula = newValue
successCount = successCount + 1
Else
' 対象セルを持たないマスターはスキップ（ログ出力は実務上重要）
Debug.Print "Skip: Master '" & master.Name & "' does not have cell '" & targetCellName & "'"
End If
ContinueLoop:
Next master
' 5. トランザクションの終了
Application.EndUndoRecord
MsgBox "処理が完了しました。" & vbCrLf & _
"成功: " & successCount & " 件" & vbCrLf & _
"失敗/スキップ: " & errorCount & " 件", vbInformation, "Result"
Exit Sub
CellUpdateError:
' 個別のセル更新エラーを捕捉し、全体のプロセスを止めない
errorCount = errorCount + 1
Debug.Print "Error updating master '" & master.Name & "': " & Err.Description
Err.Clear
Resume ContinueLoop
End Sub4. チーフアーキテクトの視点：さらなる高みへ
このコードをベースに、実務レベルのツールへと昇華させるためのアドバイスを贈る。
A. Data-Driven な設計への移行
上記のコードでは、`targetCellName` や `newValue` をコード内にハードコードしている。これはプロトタイプとしては良いが、プロダクション環境では悪手だ。
これらのパラメータを Excel、JSON、あるいはデータベース から読み込むように設計せよ。これにより、「コードを書き換えることなく、ルール（色や線幅）を変更できる」運用が可能になる。
B. ShapeSheetの「数式」と「値」の混同を避ける
`Cells(name).Result` は現在の計算結果を返すだけで、書き込みはできない。また、`Cells(name).Formula` は数式を書き込むためのものだ。
もし、ユーザーが手動で入力した「値」を維持したいのか、それともシステムとして「数式（例: `THEMEGUARD(RGB(255,0,0))`）」を強制したいのかを明確に区別して実装せよ。
C. パフォーマンスの重み
マスターの数が多い場合、一つ一つの書き換えがShapeSheetの再計算（Recalculation）を誘発する。
極めて大規模なステンシルを扱う場合は、処理中に `Application.ScreenUpdating = False` を検討すべきだが、Visioにおいてはそれ以上に「不要なイベント（`DocumentChange` 等）の抑制」がパフォーマンスに直結することを忘れてはならない。
結びに
マスターシェイプの操作は、Visio VBAにおける「破壊的変更」になり得る。だからこそ、我々エンジニアには、単に動くコードを書くことではなく、「失敗しても安全であり、かつルールを厳格に守る」コードを書く責任がある。
この知見を武器に、堅牢な自動化基盤を構築してほしい。以上だ。
