Visio自動化の深淵：FSOと非表示インスタンスによるPDF一括変換の極意
Visioのオートメーションは、多くのエンジニアが「なんとなく動くコード」で疲弊する領域だ。ドキュメントのライフサイクル管理、特に非表示インスタンスにおけるPDF変換は、メモリリークとゾンビプロセスの温床となりやすい。
今日は、場当たり的なスクリプトではなく、堅牢かつスケーラブルな「Visio PDFバッチプロセッサ」の設計思想を共有する。
—
1. アーキテクチャの要諦：インスタンス制御とメモリ管理
VisioのCOMオブジェクトは、明示的に終了処理を行わない限り、バックグラウンドに「幽霊」として居座り続ける。特に`Application.Quit`を呼び出すだけでは不十分だ。
- オブジェクトのスコープ管理: `New Visio.Application`をループ内で繰り返すのは自殺行為だ。インスタンスを一つ生成し、それを再利用しつつ、最終的に強制終了させる設計が必要である。
- 非表示起動の罠: `Application.Visible = False`は便利だが、エラー発生時にウィンドウが表に出ないためデバッグが困難になる。開発時は必ずフラグで切り替えられるようにし、本番環境ではエラーハンドリングで確実に`Quit`させること。
—
2. 実装：FileSystemObjectによる再帰的バッチ処理
以下は、指定ディレクトリ下の全VSDXを探索し、高速にPDF化するコアロジックだ。
Option Explicit
‘ 伝説のコード：堅牢性を担保するPDF一括変換プロセッサ
Public Sub BatchExportVisioToPDF()
Dim fso As Object
Dim rootFolder As String
Dim appVisio As Visio.Application
‘ 1. インスタンス生成（非表示モード）
Set appVisio = New Visio.Application
appVisio.Visible = False
appVisio.AlertResponse = 7 ‘ ダイアログを自動的に「いいえ」で閉じる
Set fso = CreateObject(“Scripting.FileSystemObject”)
rootFolder = “C:\Target\Drawings”
On Error GoTo Cleanup
Call ProcessFolder(fso.GetFolder(rootFolder), appVisio)
Cleanup:
‘ 2. オブジェクトの明示的解放（重要）
If Not appVisio Is Nothing Then
appVisio.Quit
Set appVisio = Nothing
End If
Set fso = Nothing
End Sub
Private Sub ProcessFolder(folder As Object, app As Visio.Application)
Dim file As Object
Dim doc As Visio.Document
Dim pdfPath As String
‘ ファイル走査
For Each file In folder.Files
If LCase(fso.GetExtensionName(file.Path)) = “vsdx” Then
Set doc = app.Documents.Open(file.Path)
‘ 出力パス生成（拡張子置換）
pdfPath = Left(file.Path, InStrRev(file.Path, “.”)) & “pdf”
‘ PDFエクスポート（内部エンジンの呼び出し）
‘ visFixedFormatPDF = 1
doc.ExportAsFixedFormat 1, pdfPath
doc.Close
Set doc = Nothing
End If
Next
‘ 再帰的探索
Dim subFolder As Object
For Each subFolder In folder.SubFolders
Call ProcessFolder(subFolder, app)
Next
End Sub
—
3. チーフアーキテクトからの「極限の知見」
このコードを現場で運用する際、以下の3点に注意を払わねばならない。
① Windows APIによるプロセスの完全殺害
稀に`appVisio.Quit`が効かないケースがある。その場合、`TaskKill`コマンドをVBAから呼び出し、PID（プロセスID）を指定して強制終了させるシェル関数を用意するのがプロの流儀だ。
‘ ゾンビプロセスを一掃するコマンド
Shell “taskkill /F /IM visio.exe”, vbHide
② 依存関係の排除（Late Binding vs Early Binding）
配布先が複数のバージョン（2016/2019/365）にまたがる場合、参照設定（Early Binding）は地雷となる。可能な限り`Object`型を使用したLate Bindingで実装し、実行時に`CreateObject`で動的にインスタンスを制御することを推奨する。
③ パフォーマンスの最適化
`Application.AlertResponse`を正しく設定しなければ、開くたびにダイアログが表示され、バッチ処理が永久に停止する。社内システム管理者として、テンプレートの更新確認やリンク切れ等の警告を抑制する設定は必須要件だ。
最後に
VBAは「レガシー」などではない。OSの深層部と対話できる、極めて強力なインターフェースだ。あなたが書く数行のコードが、何百もの図面を瞬時に変換し、誰かの残業をゼロにする。その重みを理解し、常に「例外処理」と「終了処理」に魂を込めよ。
コードに妥協した瞬間、それは技術的負債へと変貌する。次回の現場でも、完璧なクリーンアップを忘れるな。
