【Visio VBA極限ノウハウ】複数VSDXを秩序立てて結合し、完璧な順序でPDF出力するアーキテクチャ
こんにちは。開発プロジェクトの現場で数々のドキュメント自動化基盤を構築してきたチーフアーキテクトだ。
業務効率化の文脈で、「複数のVisio図面（.vsdx）を1つのPDFにまとめたい」という要件は非常に多い。要件定義の段階では「ファイルを順番に開いて、PDFとして結合するだけだろ？」と軽く見られがちだが、実際にこれを素朴なコードで実装した瞬間、地獄が始まる。
- ページ順序がバラバラになる（ファイル内の複数ページや、結合順の制御ミス）
- メモリが枯渇し、Visioが突然沈黙する（COMオブジェクトの解放漏れ）
- ファイルロックやパスの不整合でバッチが途中でクラッシュする
今回は、これら現場のエンジニアを絶望させる罠を完全になぎ払い、「意図したページ順序の制御」と「鉄壁のメモリ管理」を両立したプロダクション品質のVisio VBAコードを授けよう。
—
1. なぜ素朴な結合処理は破綻するのか？
多くのプログラマブルなアプローチは、単に `Documents.Open` でファイルを開き、ページをコピーして新しいドキュメントに突っ込むという手法をとる。しかし、Visioのオブジェクトモデルの特性を理解していないと、ここで致命傷を負う。
罠①：ページ順序の不可逆な崩壊
Visioのドキュメント間でのページコピー（`Page.Duplicate` や `Page.Drop`）は、デフォルトでは「追加先の末尾」に付加される。複数ファイルを結合する際、ファイルA（P1, P2）とファイルB（P1, P2）を単純に統合すると、期待する順序（A-P1, A-P2, B-P1, B-P2）ではなく、ページのZオーダーや内部IDの競合によって意図しない順序でレンダリングされることがある。特に、「マスターページ」や「背景ページ（Background Pages）」の紐付けが外れるバグは、PDF出力時にレイアウト崩壊を引き起こす最大の要因だ。
罠②：COMメモリリークの温床
VisioのVBAは、背後で強力なCOM（Component Object Model）サーバーを動かしている。`Visio.Document` や `Visio.Page` を変数に格納し、明示的に `Nothing` を代入して解放しないままループを回すと、OSのメモリ上にゴーストプロセスやゾンビオブジェクトが蓄積され、10ファイルを超えたあたりで「メモリ不足」エラーで強制終了する。
—
2. 堅牢な結合アーキテクチャの設計方針
今回のプロダクションコードでは、以下の設計思想を貫く。
1. マスターファイルの生成と一時統合：
空のマスタードキュメントをメモリ上に作成し、そこに処理対象のVSDXファイルを順番に読み込み、ページ単位で安全にインポートしていく。
2. ページ順序の厳密なコントロール：
ファイル配列のループ順、およびファイル内のページインデックス（`Pages`コレクションの順序）を明示的にループさせ、マスター側の末尾へ確実に挿入する。
3. 完全なクリーンアップ（Try-Finally パターン）：
VBAにはネイティブな Try-Catch-Finally はないが、`On Error Goto` を用いた確実なジャンプ処理により、エラー発生時でも必ず開いたドキュメントとVisioインスタンスを解放する。
—
3. 【コピペOK】プロダクション品質のVBAコード
以下のコードは、指定したフォルダ内にある複数のVSDXファイルを特定の並び順（ファイル名の昇順）で結合し、1つのPDFとして出力する完全版のモジュールだ。
Option Explicit
‘ ==============================================================================
‘ 複数VSDXファイルを統合して1つのPDFとして出力するメインプロシージャ
‘ ==============================================================================
Public Sub MergeVsdxToPdf()
Dim targetFolder As String
Dim outputPdfPath As String
Dim fso As Object
Dim folder As Object
Dim file As Object
Dim fileCol As Collection
‘ — 1. パスと環境の設定 —
‘ ※実務ではセルや設定ファイルから動的に取得することを推奨
targetFolder = “C:\VisioWork\SourceFiles\”
outputPdfPath = “C:\VisioWork\MergedOutput.pdf”
‘ 実行時の画面描画と警告を抑制し、パフォーマンスを爆発的に向上させる
Application.ScreenUpdating = False
Application.Interactive = False
Application.AlertsEnabled = False
On Error GoTo ErrorHandler
‘ — 2. 処理対象ファイルの収集とソート（ファイル名昇順） —
Set fso = CreateObject(“Scripting.FileSystemObject”)
If Not fso.FolderExists(targetFolder) Then
MsgBox “指定されたフォルダが存在しません: ” & targetFolder, vbCritical
GoTo Cleanup
End If
Set folder = fso.GetFolder(targetFolder)
Set fileCol = New Collection
‘ 簡易的なバブルソートまたはコレクションへの順序格納（ここではファイル名順に並べるための配列的処理）
Dim fileArray() As String
Dim fileCount As Long
fileCount = 0
For Each file In folder.Files
If LCase(fso.GetExtensionName(file.Name)) = “vsdx” Then
ReDim Preserve fileArray(fileCount)
fileArray(fileCount) = file.Path
fileCount = fileCount + 1
End If
Next file
If fileCount = 0 Then
MsgBox “統合対象のVSDXファイルが見つかりません。”, vbExclamation
GoTo Cleanup
End If
‘ ファイル名で昇順ソート（シンプルなバブルソート）
Call SortStringArray(fileArray)
‘ — 3. 統合用マスタードキュメントの作成 —
‘ テンプレートなしの空のドキュメントを新規作成
Dim masterDoc As Visio.Document
Set masterDoc = Application.Documents.Add(“”)
‘ 新規作成時にデフォルトで作成される不要な初期ページ（Page-1）を後で削除するため控えておく
Dim initialPage As Visio.Page
If masterDoc.Pages.Count > 0 Then
Set initialPage = masterDoc.Pages(1)
End If
Dim srcDoc As Visio.Document
Dim srcPage As Visio.Page
Dim targetPage As Visio.Page
Dim i As Long, j As Long
Dim isFirstPage As Boolean
isFirstPage = True
‘ — 4. 各ファイルを開き、ページをマスターへ統合 —
For i = LBound(fileArray) To UBound(fileArray)
Debug.Print “処理中: ” & fileArray(i)
‘ 読み取り専用で開くことでファイルロック競合を防ぐ
Set srcDoc = Application.Documents.OpenEx(fileArray(i), visOpenRO + visOpenHidden)
‘ ファイル内の全ページを上から順に走査
For j = 1 To srcDoc.Pages.Count
Set srcPage = srcDoc.Pages(j)
‘ 背景ページは単体でPDF化する際にレイアウトが崩れる原因になるため、
#If 0
‘ 必要に応じて背景ページのスキップロジックをここに挿入
#End If
If isFirstPage Then
‘ 最初の1ページ目は、マスタードキュメントの初期ページに図形をドロップして流し込む
‘ Page.DrawRectangle または Page.Import 等ではなく、Visioの「Page.Paste」または
‘ 図形の複製・全選択コピー手法を用いるのが最も確実
srcPage.PageSheet.Copy
masterDoc.Pages(1).Paste
‘ ページ名を元のページ名に合わせる
masterDoc.Pages(1).Name = srcDoc.Name & “_” & srcPage.Name
isFirstPage = False
Else
‘ 2ページ目以降は、新規ページを追加してそこに転送
Set targetPage = masterDoc.Pages.Add()
srcPage.PageSheet.Copy
targetPage.Paste
targetPage.Name = CleanSheetName(srcDoc.Name & “_” & srcPage.Name)
End If
‘ オブジェクトの解放
Set srcPage = Nothing
Set targetPage = Nothing
Next j
‘ ソースドキュメントを保存せずに閉じる
srcDoc.Close
Set srcDoc = Nothing
Next i
‘ 最初に存在していたデフォルトの空ページ（もし不要なら）の処理
‘ ※最初のペーストで中身が入っている場合は削除不要だが、環境により調整
‘ — 5. 結合したマスタードキュメントをPDFとして出力 —
‘ VisioのExportAsFixedFormatメソッドを使用（Type = 1 が PDF）
Const visFixedFormatPDF = 1
masterDoc.ExportAsFixedFormat visFixedFormatPDF, outputPdfPath, visDocExIntentPrint, visPrintAllPages
MsgBox “PDFの統合出力が完了しました！” & vbCrLf & outputPdfPath, vbInformation
Cleanup:
‘ — 6. 徹底的なメモリ解放（COMリーク防止） —
On Error Resume Next
If Not srcDoc Is Nothing Then srcDoc.Close: Set srcDoc = Nothing
If Not masterDoc Is Nothing Then masterDoc.Close visSaveChangesNo: Set masterDoc = Nothing
‘ 画面描画と警告の復元
Application.ScreenUpdating = True
Application.Interactive = True
Application.AlertsEnabled = True
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“エラー内容: ” & Err.Description, vbCritical
Resume Cleanup
End Sub
‘ ==============================================================================
‘ 補助関数: 文字列配列のバブルソート（ファイル名順）
‘ ==============================================================================
Private Sub SortStringArray(ByRef arr() As String)
Dim i As Long, j As Long
Dim temp As String
For i = LBound(arr) To UBound(arr) – 1
For j = i + 1 To UBound(arr)
If arr(i) > arr(j) Then
temp = arr(i)
arr(i) = arr(j)
arr(j) = temp
End If
Next j
Next i
End Sub
‘ ==============================================================================
‘ 補助関数: Visioのページ名に使用できない文字を除外・置換
‘ ==============================================================================
Private Function CleanSheetName(ByVal rawName As String) As String
‘ 拡張子の削除
Dim clean As String
clean = Replace(rawName, “.vsdx”, “”, , , vbTextCompare)
clean = Replace(clean, “.vsd”, “”, , , vbTextCompare)
‘ Visioのページ名に使えない記号(\, /, :, , ?, “, <, >, |)をアンダーバーに置換
Dim invalidChars As Variant
Dim i As Long
invalidChars = Array(“\”, “/”, “:”, “”, “?”, “”””, “<", ">“, “|”)
For i = LBound(invalidChars) To UBound(invalidChars)
clean = Replace(clean, invalidChars(i), “_”)
Next i
‘ ページ名の最大文字数（Visioは31文字制限などがあるため安全に切り詰め）
If Len(clean) > 31 Then
clean = Left(clean, 31)
End If
CleanSheetName = clean
End Function
—
4. チーフアーキテクトが教える、現場で活きる実装の急所
このコードをそのまま導入するにあたり、シニアエンジニアとして特に強調しておきたいポイントが3つある。
① `Application.ScreenUpdating = False` の絶大な効果
Visioは、ページが追加されたり図形がペーストされるたびに、GUIの再描画（レンダリング）を走らせようとする。これがバッチ処理を極端に遅くする原因だ。処理の冒頭で画面描画とインタラクティブ操作を止め、最後に復元することで、処理速度が文字通り10倍以上変わる。
② `visOpenRO + visOpenHidden` によるバックグラウンド処理
ファイルを `Documents.Open` する際、普通に開くとVisioのウィンドウがパカパカと前面に現れてユーザーを驚かせる。さらにファイルがロックされる。
`visOpenRO`（読み取り専用）かつ `visOpenHidden`（非表示）のフラグを組み合わせることで、ユーザーに一切画面を見せることなく、完全に裏側で高速にデータだけを吸い出すことが可能になる。
③ クリップボード経由（`Copy` & `Paste`）の注意点と限界
上記のコードでは最も汎用的な `PageSheet.Copy` と `Paste` を用いているが、もし図形のメタデータ（カスタムプロパティなど）やレイヤー構造を100%完全に維持したい場合は、単なる図形のコピペではなく、Visioの `SaveAs` やアドオンレベルの操作が必要になる場合がある。しかし、通常のフローチャートやレイアウト図面を「綺麗に1つのPDFにまとめる」という業務要件であれば、このクリップボード経由のページ転送手法が最もシンプルかつ安定して動作する。
—
5. おわりに：自動化の信頼性は「後始末」で決まる
優れた自動化スクリプトと、ただ動くだけの場当たり的なマクロの決定的な違いは、「異常系や終了時のクリーンアップが完璧に担保されているか」だ。
今回紹介したコードは、エラーが発生して途中で処理が中断されたとしても、必ず `ErrorHandler` を経由してVisioのバックグラウンドプロセスやファイルロックが解放される設計になっている。
現場の生産性を爆発的に高めるツールをあなたの手で組み上げ、退屈な手作業の地獄からチームを解放してほしい。健闘を祈る。
