こんにちは！Visio VBAの自動化の世界へようこそ。
マクロの記録ボタンを押して「なんだか動いたけれど、中身のコードは呪文のようだ……」と途方に暮れていませんか？
大丈夫です。ここをクリアすれば、Visio VBAの基本はバッチリですよ。
今回は、実務で本当によくある「複数ファイルに散らばった図面から、特定のページだけを引っこ抜いて、1つのマスターファイルに美しく統合する『ページ集約ツール』」の作り方を、世界最高峰の知見を交えて徹底解説します。
単なるコードのコピペではなく、Visio特有のオブジェクトのクセや、実務で絶対にハマる落とし穴をクリアしながら、プロのエンジニアとしての設計思想を一緒に身につけていきましょう。
—
1. なぜVisioのページ統合は難しいのか？（本質を知る）
ExcelやWordであれば、シートやセクションのコピーは直感的です。しかし、Visioには「ページ（Page）」と「マスターシェイプ（Master）」という独特のライフサイクルが存在します。
何も考えずにページを別ファイルへコピーしようとすると、次のような悲劇が起きます。
- シェイプが参照していたマスター（ステンシルの定義）が見つからず、見た目が崩れる。
- ページのサイズや向き（A4縦、A3横など）がバラバラになり、統合ファイルがぐちゃぐちゃになる。
- メモリリークを起こし、途中でVisioがフリーズする。
これらを綺麗に解決するのが、今回の実務直結型マクロです。
—
2. 実装の全体像とアプローチ
今回のツールは、次のようなステップで動作します。
1. 統合元フォルダを指定し、中にあるVisioファイル（`.vsdx`）を全自動でスキャンする。
2. マスターファイルを新規作成（または既存を開く）。
3. 各ファイルを開き、「特定の名前（例: “Summary”）」を持つページを探す。
4. そのページをマスターファイルへ「複製（Page.Drop または Page.Copy）」する。
5. 事故を防ぐため、裏側で静かにファイルを開閉する（画面描画の抑制）。
—
3. 実務仕様の完全版VBAコード
それでは、開発環境（VBE）の標準モジュールにそのまま貼り付けて使える、プロ仕様のコードを公開します。コード内のコメントをしっかりと読みながら、動きを確認してください。
Option Explicit
‘ ==============================================================================
‘ 処理名: 複数Visioファイルからの特定ページ集約ツール
‘ 概要: 指定フォルダ内の全Vsdxから、特定名のページをマスターファイルに集約する
‘ ==============================================================================
Sub AggregateSpecificPages()
‘ 1. 変数の宣言と初期化
Dim targetFolder As String
Dim fileName As String
Dim masterDoc As Visio.Document
Dim sourceDoc As Visio.Document
Dim targetPage As Visio.Page
Dim newPage As Visio.Page
Dim pageFound As Boolean
‘ 抽出したいページ名（必要に応じて変更してください）
Const TARGET_PAGE_NAME As String = “Summary”
‘ 画面描画と警告をオフにして爆速化＆安定化を図る（超重要テクニック）
Application.ScreenUpdating = False
Application.AlertsEnabled = False
On Error GoTo ErrorHandler
‘ 2. 処理対象のフォルダを選択させる
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = “統合したいVisioファイルが入っているフォルダを選択してください”
If .Show = -1 Then
targetFolder = .SelectedItems(1) & “\”
Else
GoTo Cleanup ‘ キャンセルされたら終了
End If
End With
‘ 3. 集約先のマスターファイル（新規ドキュメント）を作成
Set masterDoc = Application.Documents.Add(“”)
‘ 4. フォルダ内のVisioファイルをループ処理
fileName = Dir(targetFolder & “.vsd”) ‘ .vsd, .vsdx, .vsdm に対応
Do While fileName <> “”
‘ 自分自身や一時ファイルを除外
If fileName <> masterDoc.Name Then
‘ ファイルをバックグラウンド（非表示に近い状態）で開く
Set sourceDoc = Application.Documents.OpenEx(targetFolder & fileName, visOpenRO + visOpenHidden)
pageFound = False
‘ 5. 該当ファイル内から目的のページを探す
For Each targetPage In sourceDoc.Pages
If targetPage.Name = TARGET_PAGE_NAME Or targetPage.NameU = TARGET_PAGE_NAME Then
pageFound = True
Exit For
End If
Next targetPage
‘ 6. ページが見つかった場合、マスターファイルに複製
If pageFound Then
‘ Visio VBAの真骨頂：Page.Duplicate は存在しないため、
‘ ページを別ドキュメントへコピーするには Page.Copy を使用する
targetPage.Copy
‘ マスター側にペースト（新しいページとして追加される）
Set newPage = masterDoc.Pages.Add()
masterDoc.Paste
‘ ペースト直後のページ名を整理（重複回避のためファイル名を付与）
On Error Resume Next
newPage.Name = Left(fileName, InStrRev(fileName, “.”) – 1) & “_” & TARGET_PAGE_NAME
On Error GoTo ErrorHandler
End If
‘ 7. 元ファイルを閉じる（変更保存なし）
sourceDoc.Close visDoNotSaveChanges
End If
‘ 次のファイルへ
fileName = Dir()
Loop
‘ 完了メッセージ
Application.ScreenUpdating = True
Application.AlertsEnabled = True
MsgBox “ページの集約が正常に完了しました！”, vbInformation, “処理成功”
Exit Sub
ErrorHandler:
‘ エラーハンドリング：異常終了時も描画設定を戻さないとVisioが固まる
Application.ScreenUpdating = True
Application.AlertsEnabled = True
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical, “エラー”
Cleanup:
Set sourceDoc = Nothing
Set masterDoc = Nothing
End Sub
—
4. チーフアーキテクトが教える「コードの急所」
上記のコードには、現場で生き残るための「プロの知見」がいくつも詰め込まれています。特に重要なポイントを解説します。
① `ScreenUpdating = False` と `AlertsEnabled = False`
Visioはファイルを開閉したりページをペーストしたりするたびに、画面の再描画や「名前が重複しています」といったダイアログを出そうとします。これを放置すると、処理速度が10分の1以下に落ちるだけでなく、マクロが予期せぬポップアップで停止してしまいます。
「処理の最初に切り、エラー時も含めて絶対に最後に元に戻す」これが鉄則です。
② `Visio.Documents.OpenEx` の引数
ファイルを読み込む際、普通に `Open` を使うとVisioの画面上に次々と図面が開いてしまい、目に優しくありません（かつ動作が重い）。
ここでは `visOpenRO + visOpenHidden`（読み取り専用 ＋ 非表示）を指定することで、メモリ消費を抑えながら高速に裏側でデータを抜き取っています。
③ `Name` と `NameU` の二刀流チェック
Visioには、ユーザーに見える「ローカル名（`Name`）」と、言語に依存しない「ユニバーサル名（`NameU`）」があります。
多言語対応や、Excel等で自動生成された図面を扱う場合、`NameU` をも網羅しておかないと「ページがあるのに見つからない」というバグを生みます。このコードでは両方をチェックするため、どんな環境でも確実に対象をキャッチできます。
—
5. まとめ：ここをクリアすれば、もう怖くない！
今回は、複数のVisioファイルから特定のページを抽出・集約する実務ツールをご紹介しました。
- 画面描画の抑制によるパフォーマンスの劇的向上
- 非表示オープンによるUXと安定性の確保
- `Page.Copy` と `Paste` を組み合わせた安全なページ移設
これらを理解したあなたなら、単なるマクロの記録者ではなく、立派な「Visio自動化エンジニア」です。ぜひ自分の業務データに合わせてフォルダパスやページ名（`Summary`の部分）を書き換え、明日からの業務を爆速化させてください。
それでは、次回の高度なVBA解説でお会いしましょう！
