Visio PDF出力の「応答なし」を制する：非同期UXの極致とメモリ管理の深淵
Visio VBAで数千ページに及ぶ図面や、複雑なデータ連結図をPDF出力する際、多くのエンジニアが「応答なし（Not Responding）」という名の沈黙と対峙する。
Visioのレンダリングエンジンはメインスレッドを占有する。VBAはシングルスレッドモデルゆえ、標準的な `ExportAsFixedFormat` を叩けば、処理が終わるまでOSレベルでのメッセージループは停止する。これはOSが「アプリケーションが死んでいる」と判定する挙動そのものだ。
本稿では、レガシーなVBA環境下でいかにして「非同期的なUX」を擬似的に作り出し、システムとしての信頼性を担保するか、その実装の深淵を解き明かす。
—
1. 応答なしを防ぐ「DoEvents」の戦略的配置
`DoEvents`を闇雲にループに突っ込むのは素人の所業だ。多用すればスタックオーバーフローや再入可能性（Re-entrancy）の問題を引き起こす。重要なのは、「Windowsメッセージキューの掃き出し」と「処理コスト」のバランスである。
以下のコードは、PDF出力処理において、ユーザーインターフェースが生存していることをOSに伝えるための定石である。
‘ 応答なしを防ぐためのメッセージループ処理
Private Sub ForceMessageLoop()
‘ 頻繁すぎるDoEventsはパフォーマンスを著しく低下させる。
‘ 処理の区切り、またはタイマーで制御するのが鉄則。
DoEvents
‘ 必要に応じて Sleep API を併用し、CPU占有率を適度に下げる
Sleep 10
End Sub
2. 進捗状況の可視化：モーダルフォームによる非同期制御
PDF出力中に進捗を表示する際、メインフォームを単に更新するだけでは不十分だ。処理が重すぎるとフォーム自体の描画が更新されない。ここで、進捗バー専用の「モードレスフォーム」を生成し、その寿命を管理するアーキテクチャを採用する。
実装の勘所：オブジェクトの明示的解放
VBAは参照カウンタ方式のメモリ管理を行う。PDF出力のような巨大なCOMオブジェクトを扱う処理では、循環参照や解放漏れがメモリリークの温床となる。
‘ PDFエクスポートをラップし、進捗を表示するアーキテクチャ
Public Sub ExportPdfWithProgress(doc As Visio.Document, targetPath As String)
Dim frmProgress As UserFormProgress
Set frmProgress = New UserFormProgress
frmProgress.Show vbModeless ‘ 処理を止めないためにモードレスで表示
On Error GoTo Cleanup
‘ PDF出力処理（ここがボトルネック）
doc.ExportAsFixedFormat visFixedFormatPDF, targetPath, …
Cleanup:
‘ 明示的なオブジェクト解放。スコープを抜ける前に確実に破棄する
If Not frmProgress Is Nothing Then
Unload frmProgress
Set frmProgress = Nothing
End If
If Err.Number <> 0 Then
MsgBox “出力中にエラーが発生しました: ” & Err.Description, vbCritical
End If
End Sub
—
3. レガシー環境におけるメモリ最適化の極致
VisioのPDF出力は、バックグラウンドで `gdiplus.dll` や `winspool.drv` を強烈に消費する。長時間実行されるシステムでは、Visioのインスタンスを定期的にリサイクルする設計が、安定稼働のための唯一の解だ。
メモリリークを回避する「シェル実行」の検討
どうしても巨大なドキュメントを扱う場合、VBA単体で完結させず、PDF出力専用の軽量な別プロセス（VBScriptまたはC#のコンソールアプリ）をShell関数で呼び出し、処理が終わるまで親プロセスで待機する手法を推奨する。
- メリット: 万が一PDF変換エンジンがクラッシュしても、ホスト側のVisio本体は生存し続ける。
- デメリット: オブジェクトの受け渡しにはファイルI/Oが必要になるが、安定性は段違いである。
—
4. 伝説的アーキテクトからの提言
システム開発において「なんとなく動く」コードと「極限まで制御された」コードの差は、「状態の管理」にある。
1. DoEventsは「外科手術」: 処理のボトルネックを特定し、その直前のみに配置せよ。
2. イベントの遮断: PDF出力中、Visioのイベントハンドラ（`DocumentOpened` や `ShapeAdded` など）が暴走しないよう、`Application.EventsEnabled = False` を活用して一時的にイベントを無効化せよ。
3. OSとの対話: `User32.dll` の `GetQueueStatus` を用いて、メッセージキューに溜まっているメッセージの有無をチェックし、必要な時だけ `DoEvents` を発火させるのが真のプロフェッショナルだ。
Visioという、ある種巨大で気難しい「怪物」を制御するには、その挙動を深く理解し、先回りしてリソースを解放する胆力が必要である。貴殿のシステムが、止まることなく走り続けることを祈る。
技術に妥協するな。アーキテクチャに魂を込めろ。
