Visioを「殺す」な。バックグラウンドPDF変換の極致
Visioの自動化において、GUIを表示させるのは最大の無駄だ。レンダリング処理はリソースを食い、ユーザーのクリック一つでプロセスは崩壊する。
大量の図面をPDF化する際、画面上にカシャカシャとウィンドウが切り替わる様子を眺めているようでは、エンジニアとしては失格だ。真の自動化は、Visioの存在をOSのプロセスリストにのみ許し、人間には一切見せないことから始まる。
今日は、Visio VBAにおいて、最も堅牢かつ高速な「隠蔽バックグラウンド変換」の設計論を伝授する。
—
なぜ「Visible = False」だけでは足りないのか
多くの初学者は `Visio.Application.Visible = False` を指定するだけで満足する。だが、それで発生する「ゾンビプロセス」や「ダイアログによる停止」に泣かされるのは時間の問題だ。
本質的な設計には、以下の3つの鉄則が必要だ。
1. インスタンスの完全制御: `CreateObject` で専用の分離プロセスを立ち上げる。
2. イベントの遮断: `AlertResponse` を設定し、不意の警告ダイアログで処理を止めない。
3. 確実なクリーンアップ: 例外発生時も確実にプロセスを終了させる `Finally` 的アプローチの徹底。
—
実践：プロダクションコード・テンプレート
このコードは、堅牢性を最優先に設計したPDF変換エンジンである。モジュールにコピペして、そのまま実務に組み込んでほしい。
Option Explicit
‘ 堅牢なVisioバックグラウンドPDF変換エンジン
Public Sub ExportToPdf_Background(ByVal sourcePath As String, ByVal outputPath As String)
Dim visApp As Object
Dim doc As Object
‘ 1. インスタンス生成（新規プロセスとして分離）
Set visApp = CreateObject(“Visio.Application”)
‘ 2. バックグラウンド設定とダイアログ遮断
visApp.Visible = False
visApp.AlertResponse = 7 ‘ 警告が出た場合「No」を選択する
On Error GoTo ErrorHandler
‘ 3. ファイルを開く（読み取り専用推奨）
Set doc = visApp.Documents.OpenEx(sourcePath, &H80) ‘ visOpenRO = &H80
‘ 4. PDFエクスポート実行
‘ PDF出力はExportメソッドの第2引数でフィルタを指定する
doc.Export 1, outputPath ‘ 1 = visExportPDF
CleanExit:
‘ 5. 安全な終了処理
If Not doc Is Nothing Then doc.Close SaveChanges:=False
If Not visApp Is Nothing Then visApp.Quit
Set doc = Nothing
Set visApp = Nothing
Exit Sub
ErrorHandler:
Debug.Print “Error ” & Err.Number & “: ” & Err.Description
Resume CleanExit
End Sub
—
運用上のクリティカルな注意点
1. 「ゾンビプロセス」の撲滅
`visApp.Quit` を呼ぶ前にエラーが発生すると、タスクマネージャーに `VISIO.EXE` が居座り続ける。これがメモリリークを招き、次回のバッチ処理でCPUを焼き尽くす原因となる。必ず `On Error GoTo` を用いて、エラー時でも `Quit` が確実に実行されるフローを組め。
2. PDFドライバの競合
`doc.Export` は内部的にVisio標準のPDF変換エンジンを使用する。これは高速だが、複雑なシェイプやカスタムフォントが多用されている場合、稀にレンダリングに失敗する。もし出力結果が崩れる場合は、`PrintOut` メソッドで「Microsoft Print to PDF」などの仮想プリンタを指定する手法へ切り替える必要があるが、これは処理速度が劇的に落ちる諸刃の剣だ。まずは `Export` メソッドで突破することを強く推奨する。
3. ファイルシステムとの同期
大量ファイルを処理する場合、`DoEvents` をループに入れることでOSのフリーズを防げるが、やりすぎるとパフォーマンスが落ちる。5ファイルごとに `DoEvents` を挟む程度の調整が、CPUとOSの協調において最適解となる。
—
アーキテクトからの提言
「自動化」とは、ただコードを書くことではない。「いかにしてプログラムに失敗させないか」を設計することだ。
バックグラウンドで Visio を動かすことは、いわば「見えない場所で職人を働かせる」ようなものだ。職人が勝手に休憩（ダイアログ待ち）に入ったり、現場で死んだり（プロセスハング）しないよう、我々管理者が環境を完璧に整える必要がある。
このテンプレートを骨子に、君のプロジェクトに合わせて例外処理を強化してほしい。そうすれば、手作業で数時間かかっていたPDF変換業務は、コーヒーを一杯飲んでいる間に完遂されるはずだ。
次は、データベース（SQL Server / SQLite）と連携し、メタデータから動的に図面を生成する「動的レイアウト制御」の話をしよう。準備はいいか。
