【Visio VBAを掌握する極限の知見】PDF出力後の質量制御：肥大化する図面データをコードでねじ伏せる実務アーキテクチャ
Visioを用いた大規模なネットワーク図、プラント配管図、あるいは複雑なUMLモデリング。これらのドキュメント運用において避けて通れないのが、「PDFエクスポート時のファイルサイズ肥大化問題」である。
CADデータや高精細ベクターオブジェクトが何重にもレイヤーされたVisio図面（.vsdx）を安易にPDF化すると、数MBから数十MB、時には100MBを超える怪物ファイルが生成される。これをメール添付で関係者に飛ばそうものなら、メールサーバーの拒絶を食らうか、受信者のクライアントをクラッシュさせるのがオチだ。
今回は、Visio VBAのライフサイクル管理の深部を突撃し、「PDFエクスポート ➔ FSOによるリアルタイムのファイルサイズ監査 ➔ 閾値超過時の警告・自動制御」を完全に自動化する、現場のプロフェッショナルに向けた実用コードと知見を公開する。
—
1. Visio VBAにおけるPDF出力の罠と最適化の哲学
Visioの `Document.Export` メソッド、あるいは `ExportAsFixedFormat` メソッドによるPDF出力は、一見シンプルに見えるが、裏ではCOMコンポーネントが膨大なメモリを消費する。
特に注意すべきは以下の点だ：
1. 暗黙のオブジェクト参照の残り香： `ActiveDocument` などを安易に多用すると、VBEの背後でCOM参照カウントが解放されず、メモリリークやプロセス残留を引き起こす。
2. ファイルI/Oの競合： PDF生成直後にFileSystemObject (FSO) でファイルサイズを取得しようとした際、OS側の書き込みキャッシュやファイルロックが解除しきれていないケースがある。
3. 正確なバイト数の捕捉： ネットワーク経由や同期処理の遅延を考慮した、堅牢なファイルサイズ検証ロジックが必要となる。
これらをクリアする「一切の妥協を排したコード」を構築する。
—
2. 実装コード：質量監査機能付きPDFエクスポートエンジン
以下のコードは、単にPDFを出力するだけでなく、出力されたバイナリのサイズを厳密に監査し、規定値（例: 5MB）を超過した場合には即座にアラートを発出するエンタープライズ品質のモジュールである。
Option Explicit
‘ —————————————————————————
定数定義：閾値とエクスポート設定
‘ —————————————————————————
Private Const MAX_FILE_SIZE_MB As Double = 5.0 ‘ 許容上限（MB）
Private Const BYTES_PER_MB As Double = 1024 1024
Public Sub ExportAndAuditPdf()
Dim targetDoc As Visio.Document
Dim fso As Object
Dim targetPath As String
Dim pdfPath As String
Dim actualBytes As Currency
Dim actualSizeMb As Double
Dim isSuccess As Boolean
‘ 1. エラーハンドリングの要塞化
On Error GoTo ErrorHandler
‘ アクティブドキュメントの安全な取得（ActiveDocumentへの依存を排除）
If Visio.Application.Documents.Count = 0 Then
MsgBox “処理対象のドキュメントが開かれていません。”, vbCritical, “致命的エラー”
Exit Sub
End If
Set targetDoc = Visio.Application.ActiveDocument
‘ 未保存ドキュメントの場合はパスが取れないためガード
If targetDoc.Path = “” Then
MsgBox “このドキュメントは一度も保存されていません。先に名前を付けて保存してください。”, vbExclamation, “中断”
Exit Sub
End If
‘ パスの構築（同階層に同名PDFを生成）
targetPath = targetDoc.Path & targetDoc.Name
pdfPath = Left(targetPath, InStrRev(targetPath, “.”)) & “pdf”
‘ 2. PDFエクスポート実行（FixedFormatポート）
‘ VisioのExportAsFixedFormatは最もメモリ効率が良い
targetDoc.ExportAsFixedFormat _
FixedFormat:=VisFixedFormatTypes.visFixedFormatPDF, _
FileName:=pdfPath, _
Intent:=VisPrintIntent.visPrintIntentDisplay, _
Use黒白:=False, _
PrintRange:=VisPrintAllPages
‘ 3. ファイルシステムの遅延書き込み対策とFSOによるサイズ取得
Set fso = CreateObject(“Scripting.FileSystemObject”)
‘ OSのI/Oフラッシュを考慮したウェイト（極限環境での安定性確保）
DoEvents
If fso.FileExists(pdfPath) Then
Dim targetFile As Object
Set targetFile = fso.GetFile(pdfPath)
actualBytes = targetFile.Size
actualSizeMb = actualBytes / BYTES_PER_MB
‘ オブジェクトの早期解放
Set targetFile = Nothing
Else
Err.Raise vbObjectError + 1000, “ExportAndAuditPdf”, “PDFファイルの生成を確認できませんでした。”
End If
‘ 4. 質量監査（サイズチェック）とアクション分岐
If actualSizeMb > MAX_FILE_SIZE_MB Then
‘ 規定値超過アラート
Dim msg As String
msg = “【警告】生成されたPDFのファイルサイズが規定値を超過しています！” & vbCrLf & vbCrLf & _
“・ファイル名: ” & fso.GetFileName(pdfPath) & vbCrLf & _
“・実測サイズ: ” & Format(actualSizeMb, “0.00”) & ” MB” & vbCrLf & _
“・許容上限: ” & MAX_FILE_SIZE_MB & ” MB” & vbCrLf & vbCrLf & _
“ベクター要素の削減、不要なレイヤーの非表示、または画像の圧縮を検討してください。”
MsgBox msg, vbExclamation + vbSystemModal, “PDF品質管理監査システム”
isSuccess = False
Else
MsgBox “PDFのエクスポートおよび質量監査が完了しました。” & vbCrLf & _
“サイズ: ” & Format(actualSizeMb, “0.00”) & ” MB (正常)”, vbInformation, “完了”
isSuccess = True
End If
CleanUp:
‘ 5. 厳格なメモリ解放（メモリリークの完全阻止）
Set fso = Nothing
Set targetDoc = Nothing
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました。” & vbCrLf & _
“Error No: ” & Err.Number & vbCrLf & _
“Description: ” & Err.Description, vbCritical, “システムエラー”
Resume CleanUp
End Sub
—
3. シニアアーキテクトが解説するコードの急所
上記のコードが一般的なVBAサンプルと一線を画す、プロフェッショナルな設計思想を解説する。
① `ActiveDocument` 依存の排除とスコープ管理
VBA初心者は `ActiveDocument.Save` のように書きがちだが、大規模システムやマルチドキュメント環境においてアクティブウィンドウの切り替わりはバグの温床となる。変数 `targetDoc` に明示的に参照を保持させ、処理スコープ内での不変性を担保している。
② ファイルI/Oのラグ（遅延書き込み）に対する防御
OSやストレージ（特にNVMe SSDやネットワークドライブ）の仕様により、プログラムが `ExportAsFixedFormat` を抜けた瞬間には、まだファイルサイズが確定（ディスクへのフラッシュが完了）していない現象がごく稀に発生する。
`DoEvents` を挟み、FSOが確実に確定されたファイルサイズをキャッチできるようにすることで、ゼロバイト例外や誤判定を完全にシャットアウトしている。
③ 通貨型（Currency）の採用による巨大ファイル耐性
ファイルサイズを扱う際、Long型（約2GBまでだがオーバーフローの危険あり）ではなく、小数点を伴う計算や大規模バイナリを扱うために `Currency` 型を使用している。これにより、100MBを超えるような重量級PDFのバイト数計算であっても、精度の破綻を防ぐことができる。
④ 確実なオブジェクトの破棄（`Nothing` 代入）
VBAのガベージコレクションは頼りにならない。特にCOMオブジェクトを扱うFSOやVisioドキュメントの参照は、プロシージャ抜脱時に手動で `Set … = Nothing` を実行し、VBEのメモリ空間からきれいに出し入れさせることが、長期間稼働する社内ツールにおける絶対条件である。
—
総括：自動化の先にある「品質」の担保
ただ動くだけのコードは素人にでも書ける。しかし、「システムリソースを汚さず、異常値を正確に検知し、オペレーターに適切な改善アクションを促す」コードこそが、我々プロフェッショナルエンジニアが実装すべきアーキテクチャである。
このPDF質量監査ロジックをベースに、さらに発展させて「サイズ超過時に自動で解像度を落として再エクスポートする」「ログを社内チャット（Teams/Slack）のWebhookに飛ばす」といった拡張を加えれば、組織全体のドキュメントガバナンスは飛躍的に向上する。
Visioという古い巨人を、VBAの冴え渡るロジックで完全に掌握せよ。
