「マクロの記録」を卒業しよう。Excelを「真実のソース」にするVisioページ同期術
こんにちは。現場の設計と自動化の荒波を渡り歩いてきた、あなたの先輩エンジニアです。
「マクロの記録」を使って、ボタン一つで図形を配置したり色を変えたり。それは素晴らしい第一歩です。でも、もしあなたが今、「Excelで管理している目次と、Visioのページ名がズレていて、手動で直すのが苦痛だ……」と感じているなら、それはあなたが「自動化エンジニア」へと脱皮する準備が整ったという合図です。
今日お伝えするのは、単なるリネームのコードではありません。「Excelをマスター（正解）とし、Visioをその投影（反映先）とする」という、設計思想に基づいた同期システムの実装です。
ここをクリアすれば、Visio VBAの基本はバッチリですよ。さあ、一緒に深淵を覗いてみましょう。
1. なぜ「手動リネーム」はプロの現場で忌避されるのか
ドキュメント管理において、最も恐ろしいのは「情報の不整合」です。
- Excelの構成図リストには「01_基本設計」とあるのに、Visioのページ名は「Page-1」になっている。
- ページを増やした際、Excelの番号を更新し忘れた。
これらは、大規模なプロジェクトになればなるほど、致命的な手戻りを生みます。
私たちが目指すべきは、「Excelを書き換え、ボタンを押せば、Visioが自動的にその通りに変貌する」という、一方向の信頼できるデータフロー（Single Source of Truth）の構築です。
2. 設計図：同期のロジック
今回のプログラムは、以下のような「照合プロセス」で動かします。
1. Excelを開き、リスト（連番とページ名）を読み込む。
2. Visioのページを順番に走査する。
3. 「Excelの行番号」と「Visioのページインデックス」を突き合わせる。
4. 名前が違えばリネームし、足りなければ新しくページを作る。
ここで重要なのは、「オブジェクトのライフサイクル」を意識することです。Excelという外部アプリケーションを操作する場合、メモリ上にExcelのインスタンスをどう保持し、使い終わった後にどう解放するか。これが、プロのコードと素人のコードを分ける境界線です。
3. 実装：Excel同期型リネーム・エンジン
それでは、魂を込めたコードを見ていきましょう。このコードは、ExcelのA列に「連番」、B列に「ページ名」が入っていることを前提としています。
' =================================================================
' Module: PageSynchronizer
' Description: Excelのリストに基づいてVisioのページ名を自動同期する
' Author: Legendary Architect
' =================================================================
Option Explicit
Sub SynchronizePagesWithExcel()
Dim xlApp As Object ' Excel.Application
Dim xlWB As Object ' Excel.Workbook
Dim xlSheet As Object ' Excel.Worksheet
Dim targetFilePath As String
Dim i As Integer
Dim visioPage As Visio.Page
Dim excelPageName As String
Dim excelIndex As String
Dim pageCount As Integer
' --- 設定エリア ---
' 同期したいExcelファイルのパスを指定してください
targetFilePath = "C:\Users\YourName\Documents\DocumentList.xlsx"
' ------------------
' 高速化と画面更新の制御（パフォーマンスへの配慮）
' Visioでは画面の再描画を抑えることで処理速度が劇的に向上します
On Error GoTo ErrorHandler
' 1. Excelへの接続（Late Bindingを使用し、参照設定のトラブルを回避）
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = False ' 処理中はExcelを見せない（ユーザー体験の向上）
Set xlWB = xlApp.Workbooks.Open(targetFilePath)
Set xlSheet = xlWB.Sheets(1) ' 1番目のシートを対象とする
' 2. Visioのページ数を確認
pageCount = ThisDocument.Pages.Count
Debug.Print "--- 同期処理開始 ---"
' 3. メインループ：Excelのリストを基準にループを回す
' Excelの2行目から最終行までを走査（1行目はヘッダーと想定）
For i = 2 To xlSheet.Cells(xlSheet.Rows.Count, 1).End(-4162).Row ' -4162 = xlUp
' Excelからデータを取得
excelIndex = CStr(xlSheet.Cells(i, 1).Value) ' A列: 連番
excelPageName = CStr(xlSheet.Cells(i, 2).Value) ' B列: ページ名
' 名前が空の場合はスキップ
If excelPageName <> "" Then
' Visio側に該当するページが存在するか判定
' ここでは「Excelの行数 = Visioのページ番号」として扱うシンプルなロジック
' (実務ではIDなどで紐付けるのが理想的ですが、まずは基本から)
If i - 1 <= ThisDocument.Pages.Count Then
' 【既存ページの更新】
Set visioPage = ThisDocument.Pages(i - 1)
' 名前が異なる場合のみリネーム（無駄な書き込み操作を避ける）
If visioPage.Name <> excelPageName Then
Debug.Print "Rename: " & visioPage.Name & " -> " & excelPageName
visioPage.Name = excelPageName
End If
Else
' 【新規ページの追加】
' Excelのリストの方がページ数が多い場合、新しいページを作成
Debug.Print "Add New Page: " & excelPageName
Set visioPage = ThisDocument.Pages.Add
visioPage.Name = excelPageName
End If
End If
Next i
' 4. 余剰ページの削除（オプション）
' ExcelのリストよりVisioのページが多い場合、不要なページを削除する処理
' ※ 誤削除防止のため、実務では慎重に設計してください
Do While ThisDocument.Pages.Count > (xlSheet.Cells(xlSheet.Rows.Count, 1).End(-4162).Row - 1)
Debug.Print "Delete Extra Page: " & ThisDocument.Pages(ThisDocument.Pages.Count).Name
ThisDocument.Pages(ThisDocument.Pages.Count).Delete
Loop
MsgBox "同期が完了しました！", vbInformation, "Success"
CleanUp:
' 5. 後処理（ここがエンジニアの腕の見せ所）
' オブジェクトを明示的に解放し、Excelプロセスが残らないようにする
On Error Resume Next
If Not xlWB Is Nothing Then xlWB.Close SaveChanges:=False
If Not xlApp Is Nothing Then xlApp.Quit
Set xlSheet = Nothing
Set xlWB = Nothing
Set xlApp = Nothing
Exit Sub
ErrorHandler:
MsgBag "エラーが発生しました: " & Err.Description, vbCritical, "Error"
Resume CleanUp
End Sub4. コードの深層解説：ここが「プロ」のポイント
単に動くだけではなく、なぜこのように書くのか。その理由を解説します。
① Late Binding（遅延結合）の採用
コード内で `Dim xlApp As Object` と宣言していますね。これは「Late Binding」と呼ばれる手法です。
もし `Dim xlApp As Excel.Application` と書いてしまうと、実行するPCに特定のバージョンのExcelが入っていないだけでエラーになります。`Object` として扱うことで、実行時にExcelを探しに行くため、「環境が変わっても動く」堅牢なツールになります。
② 無駄な書き込みを避ける「ガード節」
If visioPage.Name <> excelPageName Then
visioPage.Name = excelPageName
End Ifここが重要です。たとえ同じ名前であっても、毎回 `Name = …` を実行すると、Visioは「ページが変更された」と判断し、再描画や再計算を走らせます。ページ数が多い場合、これがパフォーマンスを著しく低下させます。「変更が必要な時だけ動く」。これが、リソースを最適化する極意です。
③ 後処理（CleanUp）の徹底
`Set xlApp = Nothing` や `xlApp.Quit` を忘れると、マクロが終わった後もタスクマネージャーに `Excel.exe` が残り続けます。これを繰り返すと、PCのメモリが枯渇し、最悪の場合システムが不安定になります。「使い終わったリソースを確実に返却する」。これはエンジニアとしての最低限の礼儀です。
5. 陥りやすいエラーと対策
このツールを使う際に、あなたが直面するかもしれない壁を先回りして教えておきましょう。
1. 「ページ名に使用できない文字」エラー
Visioのページ名には、特定の記号（`/` や `\` など）が使えません。Excel側にこれらの文字が入っていると、リネーム時にエラーで止まります。
- *対策:* Excel側で入力規則を設定するか、VBA内で `Replace` 関数を使って記号を除去する処理を追加しましょう。
2. 「ページが隠れている」問題
非表示（Hidden）に設定されているページを操作しようとすると、予期せぬ挙動をすることがあります。
- *対策:* `visioPage.Visible = msoTrue` で可視化してから操作するか、非表示ページを考慮したロジックにしましょう。
3. 「インデックスのズレ」
Excelの行番号とVisioのページ番号は、常に一致するとは限りません。
- *対策:* 今回のコードは「順番」で同期していますが、より高度なツールにするなら、Excelに「Visio上の固有ID」を持たせ、それで検索（Match）するように設計するのがベストです。
最後に
「マクロの記録」から一歩踏み出し、このように「データの整合性を保つための仕組み」を考え始めたあなたは、もう立派な自動化エンジニアの入り口に立っています。
コードは一度書いて終わりではありません。現場の運用に合わせて、少しずつ、筋肉のように鍛え上げていくものです。もしエラーが出ても、それはコンピュータからの「もっとこうしてほしい」という対話のサインです。
大丈夫、一歩ずつ進んでいきましょう。応援していますよ！
