【Visio VBA極限攻略】特定のページだけをPDF分割出力する「プロの作法」
こんにちは。Visioの世界へようこそ。
マクロの記録ボタンを押して生成された、冗長で意味不明なコードを見て絶望したことはありませんか？「なぜVisioはこんなに重いのか」「なぜ思った通りに保存できないのか」。
今日は、Visioのオブジェクトモデルを掌握し、業務を劇的に効率化する「ページ抽出・PDF分割」のテクニックを伝授します。初学者の方が陥りやすい罠を回避しつつ、現場でそのまま使える「本物のコード」を一緒に書き上げていきましょう。
—
1. なぜ「PDF出力」で躓くのか？
Visioの `Export` メソッドは強力ですが、標準機能では「全ページ一括出力」しかできません。
「特定のページだけを、別々のファイル名で保存したい」という現場の要望に応えるには、Visioのオブジェクト階層（Document > Pages > Page）を正しく操作するという、エンジニアとしての基礎体力が問われます。
陥りやすいエラーの正体
- 非表示ページのエラー: 非表示設定のページを無理やりエクスポートしようとして止まる。
- パスの結合ミス: VBAのパス処理で「￥」マークの欠落により保存先が迷子になる。
- メモリ解放: 大量ページを処理する際に、オブジェクトを適切に解放せずVisioがフリーズする。
これらを解決するための「作法」をコードに詰め込みました。
—
2. 実装：ページ抽出＆PDF分割エンジンの全貌
以下のコードは、ページ名に特定のキーワード（例：「出力対象」）が含まれるページだけを検出し、個別のPDFとしてデスクトップに保存する実装です。
Option Explicit
Sub ExportSpecificPagesToPDF()
Dim vsoDoc As Visio.Document
Dim vsoPage As Visio.Page
Dim strFolderPath As String
Dim strFileName As String
‘ 1. 現在のアクティブドキュメントを取得
Set vsoDoc = ActiveDocument
‘ 2. 保存先パスをデスクトップに設定（環境に合わせて変更してください）
strFolderPath = Environ(“USERPROFILE”) & “\Desktop\VisioOutput\”
‘ フォルダが存在しなければ作成する（地味に重要）
If Dir(strFolderPath, vbDirectory) = “” Then
MkDir strFolderPath
End If
‘ 3. ページをループ処理
For Each vsoPage In vsoDoc.Pages
‘ ★ここにロジックを入れる：ページ名に「出力」が含まれる場合のみ処理
If InStr(vsoPage.Name, “出力”) > 0 Then
‘ ファイル名を定義（ページ名.pdf）
strFileName = strFolderPath & vsoPage.Name & “.pdf”
‘ 4. PDFとしてエクスポート
‘ 最後の引数 False は「既存ファイルを上書きする」オプション
On Error Resume Next ‘ エラー回避の最小限の防衛
vsoPage.ExportAsFixedFormat visFixedFormatPDF, strFileName, _
visDocExIntentPrint, visPrintAll
If Err.Number <> 0 Then
Debug.Print “エラー発生: ” & vsoPage.Name
Err.Clear
End If
On Error GoTo 0
End If
Next vsoPage
MsgBox “PDFの分割出力が完了しました！”, vbInformation
End Sub
—
3. コードの「魂」を読み解くポイント
このコードが単なるサンプルと違うのは、以下の3点です。
① オブジェクトの明示的な型指定
`Dim vsoPage As Visio.Page` と型を宣言することで、VisioのIntelliSense（入力補完）が効くようになります。「`Object`型」で済ませる素人から脱却し、メモリ効率と可読性を両立させるプロの作法です。
② `Environ(“USERPROFILE”)` の活用
パスを直接 `C:\Users\…` と書くと、他人のPCで動きません。環境変数を使うことで、どのPCでも動く「ポータブルなコード」になります。
③ `InStr` による条件分岐
ページ名にフラグを持たせる手法です。「出力対象」という文字列が含まれているか否かだけで制御することで、ユーザーはVisio上でページ名を変更するだけで制御が可能になります。コードをいじらずに仕様を変える、これが保守性の高い設計です。
—
4. さあ、次のステップへ
ここをクリアしたあなたは、もう「マクロの記録」に頼る初心者ではありません。
次は「PDFの解像度設定」や「特定の図形だけを抽出してPDFにする」といった応用が待っています。
Visio VBAは、オブジェクトのつながりを理解すれば、驚くほど自由に操れます。まずはこのコードをコピーして、あなたの手元のVisioで動かしてみてください。何かエラーが出ても、それは「あなたがより深くシステムを理解しようとしている」証拠です。
分からないことがあれば、またいつでも聞きに来てください。最高の自動化ツールを、一緒に作り上げていきましょう！
