【実務・中級編】【中級者向け】Visioの「名前を付けて保存」をフックし、保存時に自動でPDFを生成するイベントハンドラ – Visio VBA解析バイブル

Visio VBAを掌握する諸君、聞きたまえ。

我々が日々直面する業務の泥濘は、些細な手作業の積み重ねによって形成されている。特にVisioの図面作成において、「保存」という単純なアクションの後に続く「PDF出力」というルーティン作業は、まさにその典型だ。君たちの貴重な時間を削り、ミスを誘発し、組織全体の生産性を蝕む。

だが、これ以上、その無駄を許すわけにはいかない。
今回、私が君たちに伝授するのは、Visioの「名前を付けて保存」イベントをフックし、VSDX保存と同時にPDFを自動生成する、極めて堅牢かつ効率的な自動化の極意だ。単なるコードのコピペではない。オブジェクトのライフサイクル、エラーハンドリングの真髄、そしてパフォーマンスの重みを理解した上で、なぜその設計が必要なのか、その思想を深く刻みつけてほしい。

—

泥臭い手作業からの解放：なぜ今、Visio VBAの自動化が不可欠なのか

多くの現場で、Visio図面を更新し、保存した後、手動で「ファイル」→「エクスポート」→「PDF/XPS ドキュメントの作成」と辿っている。この一連の作業は、数回であれば許容できるかもしれない。しかし、プロジェクトが進み、図面が数十、数百と増えるにつれ、その累積コストは無視できないレベルに達する。

• 時間的損失: 一回の操作が10秒だとしても、それが100回繰り返されれば1000秒、約17分。毎日繰り返せば、年間で膨大な時間を浪費する。
• ヒューマンエラー: 手動操作は必ずミスを伴う。異なるファイル名で保存したり、古いバージョンのPDFを上書きし忘れたり、あるいは別の場所に保存してしまったり。これらのミスは、後工程での手戻りや信頼性の低下に直結する。
• 非標準化: 個人によってPDF出力設定（ページの範囲、品質など）が異なり、ドキュメントの一貫性が失われる。

これらの問題は、まさに自動化によって解決されるべきだ。Visio VBAのイベントハンドラを駆使すれば、これらの問題を根絶し、君たちの業務を戦略的な領域へと引き上げることが可能になる。

—

`DocumentSaved`イベントの真価と、その裏に潜む罠

Visioには、ドキュメントが保存された際に発火する`DocumentSaved`というイベントが用意されている。これは、まさに今回の自動化要件に完璧にフィットする。しかし、単にイベントを拾って処理を書けば良いというほど、現実は甘くない。

1. `WithEvents`キーワードとオブジェクトのライフサイクル管理

イベントハンドラを実装する上で最も重要なのは、`WithEvents`キーワードを理解し、イベントを発火させるオブジェクト（今回は`Visio.Application`）のライフサイクルを適切に管理することだ。

多くの初学者は、標準モジュールに直接イベントハンドラを記述しようとする。しかし、`WithEvents`はクラスモジュール内でしか利用できない。そして、そのクラスのインスタンスがメモリ上に存在し、かつイベントを発火させるオブジェクトに紐付けられている間だけ、イベントは有効になる。

‘ これは動作しません！ WithEventsはクラスモジュール内でのみ有効です。
‘ Public WithEvents app As Visio.Application ‘ 標準モジュールではエラー

この原則を無視すれば、イベントが発火しない、あるいはVisioアプリケーション終了時にメモリリークを引き起こすといった、致命的な問題に直面する。イベントハンドラは、起動時に登録され、終了時に必ず解除・解放されるべきだ。

2. イベント連鎖と無限ループの回避

`DocumentSaved`イベント内でPDFを生成する際、Visioは内部的に「保存」操作を実行するわけではないため、直接的な無限ループには陥りにくい。しかし、もしPDF生成ロジック内で誤ってVisioドキュメントを「再保存」するような処理を書いてしまえば、イベントが再帰的に発火し、Visioがフリーズするか、スタックオーバーフローを引き起こすだろう。

常に、イベントハンドラ内で実行する処理が、元のイベントを再発火させないか、あるいは意図しない副作用を生じさせないか、という「副作用の無い関数」の原則を意識しなければならない。

—

堅牢な自動化を実現する設計思想

プロダクション環境で動作するツールを構築する際、単に機能が動作するだけでは不十分だ。予測不能な事態にも耐えうる、堅牢な設計が求められる。

1. クラスモジュールによるイベントハンドラのカプセル化

前述の通り、`WithEvents`を使用するためにはクラスモジュールが必須だ。これは同時に、イベントハンドラロジックを独立したコンポーネントとしてカプセル化する絶好の機会でもある。

• 単一責任の原則 (Single Responsibility Principle): イベントの監視とPDF生成という特定のタスクに集中させる。
• 保守性の向上: イベントハンドラのロジックが他のマクロと混在せず、独立して管理・修正できる。
• リソース管理: クラスインスタンスの生成と破棄を通じて、イベントハンドラの有効/無効を明確に制御できる。

2. 徹底したエラーハンドリング

ファイルI/Oは、最もエラーが発生しやすい領域の一つだ。ファイルが見つからない、アクセス権がない、ディスクがいっぱい、といった無数のエラーシナリオが存在する。

• Specific Error Handling: `On Error GoTo` の後に、具体的なエラー番号やエラーメッセージに基づいて処理を分岐させる。
• ユーザーへのフィードバック: エラーが発生した場合、何が起こったのか、ユーザーに適切に通知する。ただし、イベント処理中にメッセージボックスを多用するとUIをブロックし、ユーザー体験を損ねる可能性があるため、ステータスバー表示やログファイルへの書き出しを優先すべきだ。
• ロギング: どのようなエラーが発生したのか、いつ、どのファイルで発生したのかを記録するロギング機構は、トラブルシューティングの生命線となる。

3. ファイルパス操作の安全性

PDFの保存先パスを構築する際には、細心の注意を払う必要がある。

• 元のVSDXファイル名からの派生: `Visio.Document.FullName`からパス、ファイル名、拡張子を抽出し、PDFのパスを生成する。この際、`FileSystemObject`などのヘルパーオブジェクトを活用すると、パス操作が安全かつ簡潔になる。
• 上書きポリシー: 既存のPDFファイルを常に上書きするのか、それともタイムスタンプを付与して別名保存するのか、あるいはユーザーに確認を求めるのか。業務要件に合わせて明確なポリシーを定める。
• ネットワークパスの考慮: ネットワークドライブ上のファイルに対して操作を行う場合、アクセス速度の低下や接続エラーが発生しやすいため、タイムアウト処理やリトライ機構を検討する必要がある。

—

プロダクションコード例：Visio VSDX保存時のPDF自動生成

それでは、具体的な実装を見ていこう。今回は、Visioアプリケーションレベルでイベントを捕捉し、すべてのドキュメント保存に対応できる汎用的なソリューションを提示する。

1. クラスモジュール `clsVisioEventHandler` の作成

新しいクラスモジュールを挿入し、名前を `clsVisioEventHandler` とする。

‘================================================================================
‘ Module: clsVisioEventHandler
‘ Description: Visioアプリケーションイベントを捕捉し、DocumentSavedイベント時に
‘ 関連するVSDXファイルのPDFを自動生成するクラスモジュール。
‘ 堅牢なエラーハンドリングとリソース管理を重視。
‘================================================================================
Option Explicit

‘ Visio ApplicationオブジェクトをWithEventsキーワードで宣言し、イベントを捕捉可能にする
Public WithEvents VisioApp As Visio.Application

‘ クラスが初期化されたときにVisio Applicationオブジェクトをセットするメソッド
Public Sub Initialize(app As Visio.Application)
Set VisioApp = app
‘ Debug.Print “VisioEventHandler: 初期化完了。イベント監視を開始します。”
End Sub

‘ クラスが終了（解放）されるときにVisio Applicationオブジェクトへの参照を解除する
Private Sub Class_Terminate()
Set VisioApp = Nothing
‘ Debug.Print “VisioEventHandler: 解放完了。イベント監視を停止しました。”
End Sub

‘================================================================================
‘ Visio.Application イベントハンドラ
‘================================================================================

‘ DocumentSaved イベントハンドラ
‘ ドキュメントが保存されたときに自動的にPDFを生成する
Private Sub VisioApp_DocumentSaved(ByVal doc As Visio.Document)
Dim strVsdxPath As String
Dim strPdfPath As String
Dim fso As Object ‘ FileSystemObject
Dim folderPath As String
Dim fileNameNoExt As String

On Error GoTo ErrorHandler

‘ ドキュメントが保存済みで、かつVSDXファイルであるかを確認
‘ 新規保存時 (Doc.Path が空) や、一時ファイル保存時などを考慮
If Not doc.Saved Then Exit Sub ‘ まだ保存されていない場合は何もしない
If doc.Path = “” Then Exit Sub ‘ 新規保存でまだファイルパスが確定していない場合

strVsdxPath = doc.FullName ‘ 保存されたVSDXファイルのフルパスを取得

‘ FileSystemObject を使用して安全にパスを操作
Set fso = CreateObject(“Scripting.FileSystemObject”)

‘ 拡張子を除いたファイル名とフォルダパスを取得
folderPath = fso.GetParentFolderName(strVsdxPath)
fileNameNoExt = fso.GetBaseName(strVsdxPath)

‘ PDFファイルのパスを構築 (VSDXと同じフォルダに同じファイル名で拡張子を.pdfに)
strPdfPath = fso.BuildPath(folderPath, fileNameNoExt & “.pdf”)

‘ PDFファイル生成前に、既存ファイルが存在するかチェック（任意）
‘ If fso.FileExists(strPdfPath) Then
‘ ‘ 既存のPDFを上書きするか、別の処理を行うか、ポリシーを決定
‘ ‘ 今回は単純に上書きを許可する
‘ End If

‘ VisioドキュメントをPDFとしてエクスポート
‘ visExportFormatPDF: PDF形式でエクスポート
‘ visExportQualityPrint: 印刷品質（用途に応じて変更可能: visExportQualityScreen, visExportQualityMinimum）
‘ visExportIncludeBackground: 背景ページを含める
‘ visExportIncludeDocInfo: ドキュメント情報を含める
‘ visExportIncludeCustomProps: カスタムプロパティを含める
‘ visExportIncludeComments: コメントを含める
‘ visExportIncludeHyperlinks: ハイパーリンクを含める
‘ visExportFitToPages: ページに合わせる（visExportFitToPagesWide, visExportFitToPagesTall なども考慮）
‘ visExportAllPages: 全ページをエクスポート
doc.ExportAsFixedFormat _
FileName:=strPdfPath, _
FixedFormat:=visExportFormatPDF, _
Intent:=visExportIntentPrint, _
_
PrintRange:=visExportAllPages, _
_
FromPage:=1, _
ToPage:=doc.Pages.Count, _
_
IncludedMetaData:=visExportIncludeDocInfo + visExportIncludeCustomProps, _
_
Quality:=visExportQualityPrint, _
_
ShowChanges:=False, _
IncludeBackgroundPages:=True, _
IncludeHyperlinks:=True, _
_
AttachToEmail:=False ‘ 自動でメールに添付しない

‘ Debug.Print “VisioEventHandler: PDFが正常に生成されました: ” & strPdfPath
‘ Visio.Application.StatusBar = “PDFが生成されました: ” & strPdfPath

Exit Sub ‘ 正常終了

ErrorHandler:
‘ エラー発生時の処理
Dim errMsg As String
errMsg = “VisioEventHandler – PDF生成エラー: ” & Err.Description & ” (Err No: ” & Err.Number & “)” & vbCrLf & _
“VSDXファイル: ” & strVsdxPath & vbCrLf & _
“PDFファイルパス: ” & strPdfPath

‘ 開発者向けにデバッグ出力
Debug.Print errMsg

‘ ユーザーへの通知（ステータスバーを推奨、MsgBoxはUIをブロックする可能性）
‘ Visio.Application.StatusBar = “PDF生成中にエラーが発生しました。詳細はログを確認してください。”
MsgBox “VisioのPDF生成中にエラーが発生しました。” & vbCrLf & _
“エラー内容: ” & Err.Description & vbCrLf & _
“VSDXファイル: ” & strVsdxPath & vbCrLf & _
“PDFパス: ” & strPdfPath & vbCrLf & _
“作業を続行する前にシステム管理者にご連絡ください。”, vbCritical, “Visio自動化エラー”

‘ エラーオブジェクトをクリア
Err.Clear
End Sub

2. 標準モジュール `Module1` (またはアドインのエントリポイント) の作成

新しい標準モジュールを挿入し、名前を `Module1` とする。このモジュールは、`clsVisioEventHandler`のインスタンスを生成・破棄し、Visioアプリケーションのイベント監視を有効/無効にする役割を担う。

‘================================================================================
‘ Module: Module1
‘ Description: Visio VBAプロジェクトのエントリポイント。
‘ clsVisioEventHandlerクラスのインスタンスを管理し、
‘ Visioアプリケーションの起動/終了時にイベントハンドラを有効/無効化する。
‘================================================================================
Option Explicit

‘ グローバル変数としてclsVisioEventHandlerクラスのインスタンスを宣言
‘ これにより、Visioアプリケーションのライフサイクル全体でイベントハンドラを保持できる
Public g_VisioEventHandler As clsVisioEventHandler

‘================================================================================
‘ Visio VBAプロジェクトの起動・終了イベント
‘================================================================================

‘ Visioアプリケーションが起動し、VBAプロジェクトがロードされたときに実行される
‘ (このVBAプロジェクトがVSDXファイルに組み込まれている場合、そのファイルが開かれたときに実行)
Private Sub Application_VisioContentLoaded(ByVal doc As IVDocument)
‘ 既存のイベントハンドラが既に初期化されているかチェック
If g_VisioEventHandler Is Nothing Then
‘ 新しいイベントハンドラインスタンスを生成
Set g_VisioEventHandler = New clsVisioEventHandler
‘ Visio Applicationオブジェクトをイベントハンドラに渡して初期化
g_VisioEventHandler.Initialize Visio.Application
‘ Debug.Print “Module1: Visioコンテンツロード時にイベントハンドラを初期化しました。”
Else
‘ Debug.Print “Module1: イベントハンドラは既に初期化されています。”
End If
End Sub

‘ Visioアプリケーションが終了する直前、またはVBAプロジェクトがアンロードされるときに実行される
‘ (このVBAプロジェクトがVSDXファイルに組み込まれている場合、そのファイルが閉じられるときに実行)
Private Sub Application_VisioContentUnloaded(ByVal doc As IVDocument)
‘ イベントハンドラのインスタンスが存在すれば解放
If Not g_VisioEventHandler Is Nothing Then
Set g_VisioEventHandler = Nothing
‘ Debug.Print “Module1: Visioコンテンツアンロード時にイベントハンドラを解放しました。”
End If
End Sub

‘================================================================================
‘ 手動でイベントハンドラを有効/無効化するプロシージャ（デバッグやテスト用）
‘================================================================================

‘ イベントハンドラを有効にするプロシージャ
Public Sub EnablePdfAutoSaveHandler()
If g_VisioEventHandler Is Nothing Then
Set g_VisioEventHandler = New clsVisioEventHandler
g_VisioEventHandler.Initialize Visio.Application
MsgBox “PDF自動生成ハンドラを有効にしました。”, vbInformation, “Visio自動化”
Else
MsgBox “PDF自動生成ハンドラは既に有効です。”, vbInformation, “Visio自動化”
End If
End Sub

‘ イベントハンドラを無効にするプロシージャ
Public Sub DisablePdfAutoSaveHandler()
If Not g_VisioEventHandler Is Nothing Then
Set g_VisioEventHandler = Nothing
MsgBox “PDF自動生成ハンドラを無効にしました。”, vbInformation, “Visio自動化”
Else
MsgBox “PDF自動生成ハンドラは既に無効です。”, vbInformation, “Visio自動化”
End If
End Sub

【注意点】
VisioのVBAプロジェクトがいつロード・アンロードされるかは、VBAプロジェクトがどこに保存されているかによって挙動が変わる。

• VSDXファイル自体にVBAを埋め込む場合: `Application_VisioContentLoaded`と`Application_VisioContentUnloaded`イベントが最も適切だ。これにより、そのVSDXファイルが開かれたときにイベントハンドラが初期化され、閉じられたときに解放される。
• Visioアドイン (.vss/.vst/.vslなど) として提供する場合: `Addon_VisioContentOpened` や `Addon_VisioContentClosed` などのアドイン固有のイベント、またはVisioの起動スクリプト (`Startup`フォルダ) を利用してイベントハンドラを初期化する必要がある。今回は、最も一般的なVSDX埋め込み形式を想定している。

3. FileSystemObject の参照設定

`FileSystemObject`を利用するためには、VBAエディタで「ツール」→「参照設定」を開き、「Microsoft Scripting Runtime」にチェックを入れる必要がある。これにより、型安全なコードが記述でき、IntelliSenseの恩恵も受けられる。
もし参照設定ができない環境であれば、`CreateObject(“Scripting.FileSystemObject”)` を使用することで、実行時にオブジェクトを生成することも可能だ（ただし、パフォーマンスは若干低下し、コンパイル時チェックは効かない）。上記コード例では、互換性を考慮して`CreateObject`を採用している。

—

運用上の注意点とさらなる知見

このソリューションは、多くの一般的なシナリオで堅牢に機能するだろう。しかし、伝説たる我々は、常に「もしも」を想定し、システムをさらに強固にする思考を巡らせる。

1. パフォーマンスのボトルネック

`ExportAsFixedFormat`は、特に大規模な図面や複雑なレイヤー構造を持つ図面では、処理に時間がかかる場合がある。

• 非同期処理の可能性: VBA単体では真の非同期処理は難しい。しかし、もしVB.NETやC#などの外部言語と連携できる環境であれば、VisioのCOMオブジェクトをバックグラウンドスレッドで操作し、UIフリーズを回避する設計も考慮すべきだ。VBAの範疇では、ユーザーに処理中であることを明示する（例: ステータスバーの更新、カーソルの変更）ことで、待機ストレスを軽減する。
• PDF品質の調整: `visExportQualityPrint`は高品質だが、ファイルサイズが大きくなり、生成時間も長くなる。用途に応じて`visExportQualityScreen`や`visExportQualityMinimum`に切り替えることで、バランスを取ることも重要だ。

2. ファイルアクセス権限とネットワークパス

ユーザーが図面を保存する場所に、PDFを書き込む権限があるかを確認せよ。ネットワークドライブの場合、一時的なネットワーク障害や権限不足により、PDF生成が失敗する可能性がある。

• 代替パスの指定: エラー発生時に、ユーザーのローカル一時フォルダや、共有の「エラーログ」フォルダにPDFを保存する代替策を検討する。
• リトライ機構: ネットワークエラーの場合、短時間待機後に数回リトライするロジックを組み込むことで、一時的な問題による失敗を減らせる。

3. ユーザーフィードバックとログ

前述の通り、`MsgBox`はイベントハンドラ内で多用すべきではない。

• Visioステータスバー: `Visio.Application.StatusBar = “メッセージ”` を使用して、ユーザーに現在の状態を通知する。
• ログファイル: `Debug.Print`は開発時のみ有効だが、プロダクション環境ではテキストファイルにエラーや成功のログを書き出す機構を導入すべきだ。これにより、後から問題発生時の状況を追跡できる。

4. バージョン管理と既存PDFの上書き

PDFファイル名がVSDXと同じ場合、常に上書きされる。もしPDFのバージョン管理が必要であれば、ファイル名にタイムスタンプやバージョン番号を付加するロジックを`clsVisioEventHandler`内に実装する必要がある。

例：`図面名_YYYYMMDD_HHMMSS.pdf`

—

結論：戦略的思考が業務を動かす

今回示したコードは、単なる「保存時にPDFを生成する」機能ではない。それは、Visio VBAのイベントドリブンプログラミングの真髄、オブジェクトのライフサイクル管理、そして堅牢なエラーハンドリングという、業務自動化におけるチーフアーキテクトが持つべき戦略的思考の結晶だ。

君たちは、このコードをコピペするだけでなく、その背後にある「なぜそう設計するのか」という問いを常に持ち続けるべきだ。一つ一つの選択が、システムの安定性、パフォーマンス、そして保守性に直結する。

この知見を胸に刻み、君たちの業務を、単なる作業の繰り返しから、真に価値を生み出す戦略的な活動へと変革せよ。Visio VBAは、そのための強力な武器となるだろう。