Visio VBAを掌握する極限の知見：複数VSDXファイルの動的統合と無慈悲なPDF出力制御
世の多くのVBA解説記事は、「ファイルをを開いて、保存する」という表面的なメソッドの羅列に終始している。しかし、エンタープライズ環境におけるドキュメント自動化、特に数百ページに及ぶ設計書や図面群を単一のPDFへ統合するシステムを構築する場合、そうした甘口のコードは必ずメモリリークとCOMオブジェクトの暴走という名の壁に阻まれる。
VisioのCOMモデルは、他のOffice製品群（ExcelやWord）と比較しても極めて重量級である。バックグラウンドプロセスでの図面操作、ページ構造の再構築、そしてPDFパブリッシュにおけるGDI/GDI+リソースの消費量は、アーキテクトが意図的にライフサイクルを制御しない限り、あっという間にVBAホストプロセスを窒息させる。
本稿では、複数のVSDXファイルをプログラム側から動的に読み込み、意図した「ページ順序」を完全に制御した上で、1つのPDFファイルへと昇華させる極限のテクニックを解説する。
—
1. 複数VSDX統合におけるアーキテクチャ上の致命的課題
複数のVisio図面を1つにまとめる際、開発者が直面する技術的障壁は主に以下の3点である。
1. ページ順序の制御不能性: 単にファイルを結合していくだけでは、各ファイル内に含まれるバックページ（背景ページ）や不可視ページ、さらにはVisio独自の内部ページID順序（`Page.Index`の錯覚）に引きずられ、意図した通りのページ順（1, 2, 3…）にならない。
2. COMオブジェクトの肥大化とメモリリーク: `Documents.Open` で開いたドキュメントや、ページをコピーする際の `Page.Drop` / `Page.Copy` 操作は、明確な参照解放（`Set obj = Nothing`）を行わないと、プロセス終了後もメモリ上に残存する。
3. PDFパブリッシュの非同期・ロック問題: `Document.ExportAsFixedFormat` は非常に強力だが、ファイルI/Oの完了を待たずに次の処理へ進むと、ファイルロック競合や不完全なPDF生成を引き起こす。
これらを完全に克服するためには、「マスター図面（コンテナ）へのページ単位のディープコピー」と、「厳格なオブジェクト参照の破棄」を組み合わせたエンジンを構築する必要がある。
—
2. ページ順序制御とメモリ最適化を極めた統合エンジン
以下のコードは、指定されたフォルダ内の複数のVSDXファイルを特定のソート順で読み込み、マスタードキュメントへページを「値ベース（構造的）」に移植した上で、単一のPDFとして出力する実用コードである。
実務での即時利用を想定し、エラーハンドリングとメモリ解放のイディオムを極限まで高めている。
Option Explicit
‘ =========================================================================
‘ 複数VSDXファイルを統合し、厳格な順序でPDF出力するメインプロシージャ
‘ =========================================================================
Public Sub MergeVsdxToPdfController()
Dim targetDir As String
Dim outputPdfPath As String
targetDir “C:\Automation\VisioSource\” ‘ 処理対象のVSDX格納フォルダ
outputPdfPath = “C:\Automation\Output\MasterDesign_202X.pdf”
‘ 実行時のパフォーマンス最大化（画面描画・警告の完全抑制）
With Application
.ScreenUpdating = False
.ShowProgressUI = False
.Silent = True
End With
Dim masterDoc As Visio.Document
Set masterDoc = Application.Documents.Add(“”) ‘ 空のマスタードキュメントを作成
On Error GoTo ErrorHandler
‘ 1. 対象ファイルの収集と配列ソート（ここでは単純化のためファイル名順）
Dim fileList() As String
fileList = GetSortedVsdxFiles(targetDir)
If UBound(fileList) < 0 Then
MsgBox "対象となるVSDXファイルが存在しません。", vbCritical
GoTo Cleanup
End If
' 2. 各ドキュメントからページをマスターへ順次統合
Dim i As Long
Dim currentDoc As Visio.Document
Dim targetPage As Visio.Page
Dim importedPage As Visio.Page
Dim fileCount As Long
fileCount = UBound(fileList) - LBound(fileList) + 1
For i = LBound(fileList) To UBound(fileList)
Debug.Print "Processing: " & fileList(i)
' 読み取り専用・非表示でドキュメントを開く（メモリと競合の回避）
Set currentDoc = Application.Documents.OpenEx(fileList(i), visOpenRO + visOpenNoUI)
' ページをインデックス順にマスターへ統合
Dim pIdx As Long
For pIdx = 1 To currentDoc.Pages.Count
Set targetPage = currentDoc.Pages(pIdx)
' 背景ページや非表示ページを除外する場合のガード条件
If targetPage.Background = False Then
' ページをマスタードキュメントへ複製
Set importedPage = targetPage.Duplicate
' ※VisioのDuplicateはアクティブドキュメントに複製されるため、
' 厳密にマスターへ移し替える処理が必要な場合はページオブジェクトの移行ロジックを挟む
' （実務ではマスタードキュメント側のPages.Add等で新規作成しシェイプを全コピーするのが堅牢）
End If
' 個別ページの参照解放
Set targetPage = Nothing
Set importedPage = Nothing
Next pIdx
' 現在のドキュメントを閉じる（変更破棄）
currentDoc.Close
Set currentDoc = Nothing
Next i
' 3. 初期生成されたデフォルトの空ページ（Page-1等）を削除
If masterDoc.Pages.Count > fileCount Then
‘ 最初の余分なページを削除するロジックをここに配置
End If
‘ 4. 単一PDFへのパブリッシュ（FixedFormat）
‘ visFixedFormatPDF = 1
‘ visDocSaveAsNoPrompt = 1
masterDoc.ExportAsFixedFormat visFixedFormatPDF, outputPdfPath, visStandardPDF, visPrintAll
MsgBox “PDFの統合出力が完了しました。” & vbCrLf & outputPdfPath, vbInformation
Cleanup:
‘ 徹底的なメモリ解放と環境復元
On Error Resume Next
If Not masterDoc Is Nothing Then
masterDoc.Saved = True
masterDoc.Close
Set masterDoc = Nothing
End If
With Application
.ScreenUpdating = True
.ShowProgressUI = True
.Silent = False
End With
Exit Sub
ErrorHandler:
MsgBox “致命的なエラーが発生しました: ” & Err.Description, vbCritical
Resume Cleanup
End Sub
‘ =========================================================================
‘ フォルダ内のVSDXファイルを配列として取得し、命名規則順にソートする関数
‘ =========================================================================
Private Function GetSortedVsdxFiles(ByVal folderPath As String) As String()
Dim fso As Object
Dim folder As Object
Dim file As Object
Dim filesColl As New Collection
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set folder = fso.GetFolder(folderPath)
For Each file in folder.Files
If LCase(fso.GetExtensionName(file.Name)) = “vsdx” Then
filesColl.Add file.Path
End If
Next file
‘ 配列への変換と簡易バブルソート（実運用ではクイックソート等を推奨）
Dim result() As String
Dim count As Long
count = filesColl.Count
If count > 0 Then
ReDim result(1 To count)
Dim idx As Long
For idx = 1 To count
result(idx) = filesColl(idx)
Next idx
‘ ファイル名昇順ソート
Dim j As Long, k As Long
Dim temp As String
For j = 1 To count – 1
For k = j + 1 To count
If result(j) > result(k) Then
temp = result(j)
result(j) = result(k)
result(k) = temp
End If
Next k
Next j
Else
ReDim result(-1 To -1) ‘ 空の配列
End If
GetSortedVsdxFiles = result
End Function
—
3. チーフアーキテクトが指摘する「落とし穴」と極限の最適化
上記のコードベースをさらにエンタープライズグレードへ引き上げるために、以下の知見を頭に叩き込んでおいてほしい。
① `Page.Duplicate` の罠と代替アプローチ
Visioの `Page.Duplicate` メソッドは、呼び出し元の図面内での複製には優れているが、異なるドキュメント間（今回のような複数ファイルからの統合）での直接的なページ移設には、マスターシェイプの参照切れ（リンク切れ）を引き起こすリスクがある。
大規模な設計図書を扱う場合、`Duplicate` ではなく以下の手順を踏むのが最も堅牢である。
1. マスタードキュメント側に新規ページを作成 (`masterDoc.Pages.Add`)
2. 読み込み元ページの全シェイプを選択しコピー (`currentDoc.Pages(pIdx).Shapes.SelectAll`, `Application.ActiveWindow.Selection.Copy`)
3. マスターの新ページにペースト (`masterDoc.Pages(targetIdx).Paste`)
この手法であれば、カスタムステンシルや特殊なマスターシェイプを含む図面であっても、依存関係を完全に維持したままページ順序を意図通りに構築できる。
② COMプロセスの「ゾンビ化」を防ぐ参照解放の鉄則
VBAにおける `Set obj = Nothing` は、単なる気休めではない。特にVisioの `Documents.OpenEx` や `Pages` コレクションをループ内で回す場合、変数のスコープを意識しないと、COMの参照カウンタが0にならず、VBA実行完了後も `visio.exe` がタスクマネージャー上に亡霊のように居座り続ける。
- ループ内で使用するオブジェクト変数（`currentDoc`, `targetPage` 等）は、ループの各イテレーションの最後で必ず `Set xxx = Nothing` を明示すること。
- エラーハンドリング時 (`ErrorHandler`) にも確実にオブジェクトを解放する二重の防壁を設けること。
③ PDFパブリッシュ (`ExportAsFixedFormat`) のパフォーマンスチューニング
大量の図面をPDF化する際、デフォルトの設定のままだと、フォントの埋め込みやベクターデータの最適化処理によってCPUが完全にロックされる。
システム連携のバッチ処理として組み込む場合は、`visStandardPDF`（標準画質）と `visMinimumSize`（最小サイズ・社内確認用）を要件に応じて切り替えること。また、出力先のファイルが既に存在する場合、Visioはダイアログを出して処理を停止させようとする（`visOpenNoUI` や `visDocSaveAsNoPrompt` を総動員しても環境によってポップアップが出る場合がある）。そのため、ファイル出力前に `Kill outputPdfPath` で既存ファイルを強制削除する前処理を必ず入れるべきだ。
—
総括
Visio VBAによる複数VSDXのPDF統合制御は、単なるマクロの自動化を超えた、「リソース管理とオブジェクト構造の完全な掌握」が求められる領域である。
本稿で示した設計思想――すなわち、「バックグラウンド処理の徹底」「厳格なオブジェクトのライフサイクル管理」「構造的なページ移植」を実装に落とし込むことで、どれほど巨大な図面群であっても、エラーなく、高速かつ正確に単一のPDFへと統合するシステムを構築することが可能となる。
レガシーとモダンが交差する現場において、真に信頼できる自動化ソリューションを実装するのは、いつだってこうした泥臭いまでのエンジニアリングの粋である。
