状態同期の極意：VisioページとExcel目次を「完全一致」させる堅牢なアーキテクチャ
業務自動化の現場において、最も「脆い」コードは何か？
それは、「現在の状態」を無視して、「命令」だけを垂れ流すコードだ。
「ExcelのA列にある名前を、Visioのページ名に書き換えろ」――。この単純な要求に対して、素人は単純な `For` ループを書き、プロは「状態の差分（Delta）」を計算する。
もし君が、ループの途中でページを削除して「インデックスがズレてエラー」になったり、Excelのリストが増えた際に古いページが残ったままになったりするコードを書いているなら、それは自動化ではなく、単なる「バグの自動生成器」に過ぎない。
本記事では、VisioとExcelという、本来は疎結合であるべき二つのオブジェクトを、「状態ベースの同期（State-based Synchronization）」という設計思想に基づき、いかにして堅牢に結合させるかを伝授する。
1. なぜ「単純なループ」では失敗するのか
多くの開発者が陥る致命的なミスは、以下の3点に集約される。
① コレクションのインデックス・シフト
`For i = 1 To Pages.Count` というループの中で、条件に合致したページを `Pages(i).Delete` してみろ。次のループで `i` が進んだ瞬間、本来参照すべき次のページはスキップされる。これはコレクション操作における「古典的かつ回避不能な罠」だ。
② 計算量の爆発（O(n²) の罠）
Visioのページ数が増えた際、Excelの行ごとにVisioの全ページを走査するようなコードを書くと、計算量は指数関数的に増大する。大規模な構成図では、処理が止まったように見えるほどの遅延を招く。
③ 冪等性（Idempotency）の欠如
「何度実行しても同じ結果になるか？」という問いに対し、多くのスクリプトは「No」と答えるだろう。一度実行するとページが増え続けたり、名前が重複したりする。真のプロダクションコードには、何度実行しても常に「Excelの状態」と「Visioの状態」が一致する冪等性が求められる。
2. 勝利の方程式：三段階の同期アルゴリズム
堅牢な同期エンジンを設計するには、以下の3つのフェーズを論理的に分離しなければならない。
1. Map Phase: Excelの「あるべき姿（Desired State）」を、高速検索可能な `Dictionary` オブジェクトに格納する。
2. Sync Phase (Update/Add):
- ExcelにあるがVisioにないページ $\rightarrow$ 新規作成
- ExcelにあるがVisioの名前と異なる $\rightarrow$ リネーム
3. Cleanup Phase (Delete): VisioにあるがExcelにないページ $\rightarrow$ 削除
この設計により、要素の追加、変更、削除のすべてを、矛盾なく、かつ計算量を抑えて処理することが可能になる。
3. 実装：プロダクショングレードの同期エンジン
以下に、実務でそのまま利用できるレベルのコードを提示する。
このコードを動かすには、VBAエディタの [ツール] $\rightarrow$ [参照設定] から 「Microsoft Scripting Runtime」 にチェックを入れておくこと。これが高速な辞書型操作の鍵だ。
Option Explicit
' ==============================================================================
' Module: PageSynchronizer
' Description: Excelの目次データに基づき、Visioのページ構成を完全同期させる
' Author: Chief Architect
' ==============================================================================
Sub SynchronizePagesWithExcel()
Dim excelApp As Excel.Application
Dim wb As Excel.Workbook
Dim ws As Excel.Worksheet
Dim dictDesiredState As Scripting.Dictionary
Dim visioDoc As Visio.Document
Dim pg As Visio.Page
Dim targetExcelPath As String
' --- 設定エリア ---
targetExcelPath = "C:\Path\To\Your\IndexList.xlsx" ' Excelファイルのパス
Set visioDoc = ActiveDocument
' ------------------
On Error GoTo ErrorHandler
' 1. Excelデータの読み込み (Desired Stateの構築)
' Dictionaryを使用することで、検索コストを O(1) に抑える
Set dictDesiredState = GetExcelPageList(targetExcelPath)
If dictDesiredState Is Nothing Then Exit Sub
' 画面更新等の停止（パフォーマンス向上とチラつき防止）
' ※VisioにはExcelのようなScreenUpdatingがないため、処理の論理的順序で制御する
Debug.Print "--- Synchronization Started ---"
' 2. 【Update & Add Phase】
' Excelにある名前を走査し、Visio側の状態を更新または新規作成する
Dim key As Variant
Dim newPg As Visio.Page
Dim foundPg As Visio.Page
For Each key In dictDesiredState.Keys
Set foundPg = Nothing
' 既存のページを検索
For Each pg In visioDoc.Pages
If pg.Name = CStr(key) Then
Set foundPg = pg
Exit For
End If
Next pg
If foundPg Is Nothing Then
' 【Add】ExcelにはあるがVisioにない場合、新規作成
Set newPg = visioDoc.Pages.Add
newPg.Name = CStr(key)
Debug.Print "[ADD] Created page: " & key
Else
' 【Update】名前は一致している（既存の状態維持）
' ここに、ページ内の特定のプロパティ（図形の位置など）の同期ロジックを拡張可能
Debug.Print "[KEEP] Page exists: " & key
End If
Next key
' 3. 【Cleanup Phase】
' VisioにあるがExcelにないページを削除する
' ※削除時はインデックスがずれるため、必ず「後ろから」ループを回すのが鉄則
Dim i As Integer
For i = visioDoc.Pages.Count To 1 Step -1
Set pg = visioDoc.Pages(i)
' デフォルトの "Page-1" などのシステムページを保護する場合はここで除外ロジックを入れる
If Not dictDesiredState.Exists(pg.Name) Then
' 削除対象の確認（誤削除防止の安全装置）
' 本番環境では、いきなりDeleteせず、ログ出力に留める設計も検討せよ
Debug.Print "[DELETE] Removing orphan page: " & pg.Name
pg.Delete
End If
Next i
Debug.Print "--- Synchronization Completed Successfully ---"
MsgBox "同期が完了しました。", vbInformation
Exit Sub
ErrorHandler:
MsgBox "致命的なエラーが発生しました。" & vbCrLf & _
"Error No: " & Err.Number & vbCrLf & _
"Description: " & Err.Description, vbCritical
Debug.Print "Error: " & Err.Description
End Sub
''' <summary>
''' Excelファイルからページ名のリストを取得し、Dictionaryとして返す
''' </summary>
Private Function GetExcelPageList(ByVal filePath As String) As Scripting.Dictionary
Dim xlApp As New Excel.Application
Dim wb As Excel.Workbook
Dim ws As Excel.Worksheet
Dim dict As New Scripting.Dictionary
Dim lastRow As Long
Dim i As Long
Dim pageName As String
On Error GoTo ExcelError
Set wb = xlApp.Workbooks.Open(filePath, ReadOnly:=True)
Set ws = wb.Sheets(1) ' 最初のシートを対象とする
lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
' 1行目はヘッダーと想定し、2行目から取得
For i = 2 To lastRow
pageName = Trim(CStr(ws.Cells(i, 1).Value))
If pageName <> "" Then
If Not dict.Exists(pageName) Then
dict.Add pageName, i ' 値として行番号を保持しておくとデバッグに便利
End If
End If
Next i
wb.Close SaveChanges:=False
xlApp.Quit
Set GetExcelPageList = dict
Exit Function
ExcelError:
MsgBox "Excelの読み込みに失敗しました。パスが正しいか、ファイルが開かれていないか確認してください。", vbCritical
If Not xlApp Is Nothing Then xlApp.Quit
Set GetExcelPageList = Nothing
End Function4. アーキテクトの視点：保守性と堅牢性を高めるためのアドバイス
このコードをベースに、君が実務へ投入する際には以下の「設計判断」を自問自答してほしい。
データの整合性（Data Integrity）
上記のコードでは、Excelのリストに重複がある場合、最初のものだけを採用している。しかし、業務要件によっては「重複があったらエラーとして処理を中断する」という厳格なバリデーションが必要な場合もある。
削除の安全性（Safety Net）
`pg.Delete` は強力すぎる。誤って重要なページを消去しないよう、設計段階で「削除対象のページを隠蔽（Hide）するだけにする」のか、「ゴミ箱用のレイヤーに移動させる」のか、あるいは「完全に削除する」のか、ビジネスルールに基づいた決定を下せ。
エラーハンドリングの階層化
`On Error GoTo` を使うのは基本だが、重要なのは「どこでエラーが起きたか」を呼び出し元に正確に伝えることだ。今回のように、Excel操作（外部リソース）とVisio操作（内部リソース）を関数として分離しておくことは、エラーの切り分け（Isolation）において極めて重要である。
結論
Visio VBAによる自動化の本質は、単に「操作を自動化すること」ではない。「複雑なオブジェクト間の状態を、定義された正解（Source of Truth）へと、いかに正確に、かつ副作用なく導くか」にある。
この「状態同期」の考え方をマスターすれば、君が書くコードは単なるスクリプトから、信頼に値する「システム」へと昇華するだろう。
