【テクニカル・上級編】【全対象】複数のVisio図面を結合して1つのPDFにするためのVBA連携術 – Visio VBA解析バイブル

Visio VBAを掌握する極限の知見：複数VSDXの無敗のPDF結合アーキテクチャ

Visio VBAの領域において、単一の図面を操作するコードを書くことは初心者への通過儀礼に過ぎない。しかし、複数の独立した`.vsdx`ファイルを秘匿された順序で処理し、それらを美しく統合された1つのPDFへと昇華させる自動化パイプラインを構築するとなると、話は別だ。

現場で幾度となくシステム破綻を引き起こしてきた「メモリリーク」「Acrobat Interopのプロセス残留」「Visioの裏死（バックグラウンドプロセスのゾンビ化）」。これらを完全に見出し、圧倒的なパフォーマンスで完遂するためのアーキテクチャをここに開示する。

—

1. アーキテクチャの全体像と直面する技術的壁

複数VSDXのPDF結合における最大の障壁は、Visio自体に「複数図面を1つのPDFにマルチページ出力するネイティブな統合機能が乏しい（あるいはCOM経由では制御が不安定）」という点にある。

したがって、以下の3ステップを厳密な順序とリソース管理の元で実行するパイプラインを構築する必要がある。

1. Visioセッションの隔離とサイレントオープン: GUIを描画せず、メモリ効率を最大化した状態でVSDXをロードする。
2. 個別PDFの精密レンダリング: ページサイズやスケーリングを崩さずに、一時ディレクトリへ高精度出力する。
3. Acrobat OLE/API（または外部ライブラリ）による不可逆な結合: 生成されたPDF群をメモリ上でスマートに連結し、最終成果物を得る。

—

2. 実装コード：堅牢性を極めたVisio-PDF結合モジュール

以下に提示するのは、エラーハンドリング、オブジェクトの明示的解放、そしてWindows環境での競合を防ぐための排他制御を組み込んだ、プロダクション品質のVBAコードである。

Option Explicit

‘ Windows API: 一時フォルダパス取得用
Private Declare PtrSafe Function GetTempPath Lib “kernel32” Alias “GetTempPathA” ( _
ByVal nBufferLength As Long, _
ByVal lpBuffer As String) As Long

Private Const MAX_PATH As Long = 260

”’

Public Sub MergeVsdxToSinglePdf(ByRef targetFiles() As String, ByVal outputPdfPath As String)
Dim appVisio As Visio.Application
Dim docVisio As Visio.Document
Dim tempPdfPaths() As String
Dim i As Long
Dim fileCount As Long

fileCount = UBound(targetFiles) – LBound(targetFiles) + 1
ReDim tempPdfPaths(1 To fileCount)

‘ 1. Visioアプリケーションのインスタンスを完全制御下で起動（UI非表示でオーバーヘッド削減）
On Error GoTo ErrorHandler
Set appVisio = New Visio.Application
appVisio.Visible = False
appVisio.ScreenUpdating = False
appVisio.AlertsEnabled = False

‘ 2. 各VSDXを個別のPDFへ変換（一時ファイル群の生成）
For i = 1 To fileCount
tempPdfPaths(i) = GetTemporaryFilePath(“vso_”)

‘ ドキュメントのオープン（ReadOnly, 隠しモード）
Set docVisio = appVisio.Documents.OpenEx(targetFiles(i), visOpenRO + visOpenHidden)

‘ PDFエクスポート実行（VisioのネイティブExport機能を使用）
‘ 注: ExportFormat.visPDF は Visio 2010以降で標準サポート
docVisio.ExportAsFixedFormat visFixedFormatPDF, tempPdfPaths(i), visPrintAllPages, visAlertPromptNever

‘ 【極限の知見】ドキュメントオブジェクトはループ内で即座に解放し、ヒープを枯渇させない
docVisio.Close
Set docVisio = Nothing
Next i

‘ Visioの早期シャットダウン（PDF変換フェーズの完了）
appVisio.Quit
Set appVisio = Nothing

‘ 3. Acrobat Automation等を利用したPDFの結合処理
Call MergePdfFilesWithAcrobat(tempPdfPaths, outputPdfPath)

MsgBox “PDFの統合が正常に完了しました。”, vbInformation, “チーフアーキテクチャ通知”
GoTo CleanUp

ErrorHandler:
MsgBox “致命的なエラーが発生しました: ” & Err.Description, vbCritical, “VBA Error”

CleanUp:
‘ 【極限の知見】異常系・正常系を問わず、COMオブジェクトの残骸を確実に消去する
On Error Resume Next
If Not docVisio Is Nothing Then docVisio.Close: Set docVisio = Nothing
If Not appVisio Is Nothing Then appVisio.Quit: Set appVisio = Nothing

‘ 一時ファイルのクリーンアップ
For i = 1 To fileCount
If tempPdfPaths(i) <> “” Then
If Dir(tempPdfPaths(i)) <> “” Then Kill tempPdfPaths(i)
End If
Next i
On Error GoTo 0
End Sub

”’

Private Sub MergePdfFilesWithAcrobat(ByRef pdfFiles() As String, ByVal finalOutputPath As String)
Dim jsoMain As Object
Dim pdDocMain As Object
Dim pdDocTemp As Object
Dim i As Long
Dim lastPage As Long

‘ Adobe Acrobat Pro がインストールされている環境を前提とする
Set pdDocMain = CreateObject(“AcroExch.PDDoc”)

If Not pdDocMain.Open(pdfFiles(1)) Then
Err.Raise 9999, , “ベースとなるPDFのオープンに失敗しました: ” & pdfFiles(1)
End If

For i = 2 To UBound(pdfFiles)
Set pdDocTemp = CreateObject(“AcroExch.PDDoc”)
If Not pdDocTemp.Open(pdfFiles(i)) Then
Err.Raise 9999, , “結合対象PDFのオープンに失敗しました: ” & pdfFiles(i)
End If

‘ メインPDFの末尾ページを取得
lastPage = pdDocMain.GetNumPages()

‘ pdDocTempの全ページをpdDocMainの末尾に挿入 (引数: 挿入位置, 挿入元PDDoc, 開始ページ, ページ数, しおり保持フラグ)
If Not pdDocMain.InsertPages(lastPage – 1, pdDocTemp, 0, pdDocTemp.GetNumPages(), True) Then
Err.Raise 9999, , “PDFのページ結合中にエラーが発生しました（Index: ” & i & “）”
End If

pdDocTemp.Close
Set pdDocTemp = Nothing
Next i

‘ 最終出力の保存
If Not pdDocMain.Save(1, finalOutputPath) Then ‘ 1 = PDSaveFull
Err.Raise 9999, , “結合済みPDFの保存に失敗しました。”
End If

pdDocMain.Close
Set pdDocMain = Nothing

‘ Acrobatの隠しプロセスがメモリに残る現象を防ぐためのGC的なアプローチ
Set jsoMain = Nothing
End Sub

”’

Private Function GetTemporaryFilePath(ByVal prefix As String) As String
Dim buffer As String MAX_PATH
Dim ret As Long
ret = GetTempPath(MAX_PATH, buffer)
If ret = 0 Then
GetTemporaryFilePath = “C:\” & prefix & Format(Now, “yyyymmddhhmmss”) & “.pdf”
Else
GetTemporaryFilePath = Left$(buffer, InStr(buffer, vbNullChar) – 1) & prefix & Format(Now, “yyyymmddhhmmss”) & “_” & Int(Rnd 1000) & “.pdf”
End If
End Function

—

3. チーフアーキテクトが解説する「死線」を越えるための極意

オブジェクトのライフサイクルとゾンビプロセスの根絶

VBAで `Visio.Application` や `AcroExch.PDDoc` を操作する際、最も恐ろしいのは「コードが終了してもタスクマネージャーにプロセスが残り続ける（ゾンビ化）」現象だ。
これを防ぐには以下の鉄則を遵守せよ。

• ドキュメント単位の解放 (`doc.Close` + `Set doc = Nothing`): ループ内で複数のVisio図面を開閉する場合、親である `Application` を使い回すのはパフォーマンス上有利だが、`Document` オブジェクトの参照を切るタイミングを誤ると、メモリリークの温床となる。
• エラーハンドリングでの二重解放防止: `On Error Resume Next` を用いたクリーンアップブロックを必ず用意し、例外発生時でも確実にCOM参照のデクリメントを行わせる。

Acrobat API依存の注意点と代替案

上記のコードでは `AcroExch.PDDoc` を使用している。これは非常に高速だが、実行環境にAdobe Acrobat（StandardまたはPro）のインストールが必須である。
もしサーバーサイドや、Acrobatが導入されていないクライアント端末でこの自動化を完結させなければならない場合は、Acrobat OLEを捨て、オープンソースのコマンドラインツール（例: `pdftk` や Python製の `PyPDF2` / `pypdf`）を VBA の `WScript.Shell` 経由でキックするアーキテクチャに切り替えるべきだ。プロフェッショナルであれば、環境制約に応じたこの「アダプターパターン」の切り替えを設計段階で組み込んでおくこと。

パフォーマンスの極限チューニング

大規模な図面群を処理する場合、以下の設定が処理時間を数分から数秒へと劇的に短縮する。

• `appVisio.ScreenUpdating = False` （画面描画の完全停止）
• `appVisio.AlertsEnabled = False` （「フォントがありません」「上書きしますか？」等のダイアログによる処理停止をシャットアウト）
• `visOpenHidden` （Visioのウィンドウインスタンスを非表示のままメモリ上にのみ展開）

—

結び

VBAは、その歴史の長さゆえに「レガシーなオモチャ」と揶揄されることがある。しかし、底层のWindows API、COMのメモリモデル、そして外部アプリケーションとのプロセス連携を完全に制御したVBAコードは、企業インフラの自動化において今なお最強の武器たり得る。

妥協のないコードで、安定性とスピードを極めたシステムを構築せよ。