こんにちは！Visio VBAの自動化の世界へようこそ。
チーフアーキテクトの私だ。今回は、多くのエンジニアが密かに頭を悩ませる「Visioの画像出力（エクスポート）における画質の壁」について、実戦で即座に使える極限の知見を授けよう。
「マクロの記録でコードを取ったのに、出力された画像がなぜかボヤけている…」
「300DPIのきれいなパンフレット用画像が欲しいのに、デフォルトの粗い画像になってしまう…」
そんな悩みを抱えたことはないだろうか？
結論から言おう。Visioの画面上やダイアログ、あるいはレジストリの設定に頼っているうら若きプログラマは、ここで卒業だ。VBAのコードから直接パラメータをねじ込み、画質を完全に支配する。そのプロフェッショナルな手法を、基礎から優しく、そして徹底的に解説しよう。ここをクリアすれば、あなたのVisio VBAスキルは一段上のステージに到達するぞ。
—
なぜデフォルトの `Page.Export` では画質が落ちるのか？
Visioの `Page` オブジェクトには、ページを画像として保存する `Export` メソッドが用意されている。使い方は非常にシンプルだ。
ActivePage.CurentPage.Export “C:\Output\sample.png”
おや、これだけで画像が出力されてめでたしめでたし……とはいかない。
このコードをそのまま実行すると、Visioの環境依存（通常は低解像度のスクリーンショット品質、96DPI程度）で出力されてしまう。印刷物や高精細なドキュメントに組み込むには、あまりにも粗悪な解像度だ。
「じゃあ、高解像度にするには Visio のオプション画面を毎回ポチポチ変えなきゃいけないの？」
いや、そんな非効率なことをエンジニアがやるわけがない。Visioの裏側にある「ドキュメント・アドオン設定（AddonNameArgs や SetProfile 等の古いテクニック）」を使う必要すら、実はもうないのだ。
近代的なVisio VBAでは、Export直前にアプリケーションやドキュメントの設定（レジストリに相当する値）をコードで一時的に書き換えることで、解像度や圧縮率を完全にコントロールする。
—
画質を極める！300DPI指定エクスポートの全貌
百聞は一見に如かず。まずは、現在アクティブなページを高解像度（300DPI）のPNG形式でエクスポートする、実戦投入可能な完全版コードを見てほしい。
Option Explicit
Public Sub ExportPageHighResolution()
Dim targetPath As String
targetPath “C:\YourFolder\HighResoultion_Sample.png” ‘ 出力先パス
‘ 1. エクスポート前の「現在の設定」を退避（安全性の確保）
Dim oldResolution As Long
oldResolution = Visio.Application.Settings.RasterExportResolution
Dim oldFormat As Long
oldFormat = Visio.Application.Settings.RasterExportEncoding
On Error GoTo ErrorHandler ‘ エラー時に設定が戻らなくなるのを防ぐ
‘ 2. 画質を極限まで引き上げるパラメータの直叩き
‘ 【解像度の指定】 300 DPI を設定 (Visioの内部定数または直接値)
Visio.Application.Settings.RasterExportResolution = 300
Visio.Application.Settings.RasterExportUseResolution = 1 ‘ 指定したDPIを使用するフラグ
‘ 【カラー・圧縮の指定】最高品質のPNG（非圧縮に近い状態）を指定
‘ ※ PNGの場合はエンコード形式の恩恵を受けますが、色深度などを最大にします
‘ 3. エクスポート実行
ActivePage.Export targetPath
‘ 4. 設定を元に戻す（クリーンアップの美学）
Visio.Application.Settings.RasterExportResolution = oldResolution
Visio.Application.Settings.RasterExportUseResolution = oldFormat
MsgBox “高解像度画像のエクスポートが完了しました！”, vbInformation, “成功”
Exit Sub
ErrorHandler:
‘ 万が一エラーが起きても、アプリケーション設定だけは必ず元に戻す
Visio.Application.Settings.RasterExportResolution = oldResolution
Visio.Application.Settings.RasterExportUseResolution = oldFormat
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical, “異常終了”
End Sub
—
コードの深掘り：なぜこの書き方が「プロ仕様」なのか？
初心者から一歩抜け出すために、上記のコードに隠された3つの重要ポイントを解説しよう。
1. `Application.Settings` オブジェクトの支配
Visioの画像出力エンジンは、実はアプリケーション全体のグローバル設定（`Visio.Application.Settings`）を参照して動作する。
ここで紹介した `RasterExportResolution` は、まさにエクスポート時のDPI（ドット・イン・インチ）を司る核心的プロパティだ。ここに `300` や `600` といった数値を直接代入することで、ダイアログを一切開かずに高精細なキャンバスをレンダリングさせることができる。
2. 「前後の状態を汚さない」というエンジニアの美学
コードの中でグローバルな設定値を書き換えるとき、最もやってはいけないのが「変えたまま放置すること」だ。
もしエクスポートの途中でエラーが発生してプログラムが止まってしまったら？ その後Visioで別の操作をしたとき、予期せぬ高解像度設定が引き継がれてしまい、他のマクロやユーザーの操作に悪影響を及ぼす。
だからこそ、「実行前の値を退避（バックアップ）し、処理が終わったら（あるいはエラー時でも）必ず元の値に戻す」というtry-finally的な構造（VBAでは `On Error GoTo` によるハンドリング）が絶対に不可欠なのだ。
3. パスの拡張子による自動フォーマット判定
Visioの `Page.Export` メソッドは非常に賢い。渡されたファイルパスの拡張子（`.png`, `.jpg`, `.bmp`, `.gif` 等）を自動で判別し、適切なエンコーダーに処理を振り分けてくれる。
つまり、コード側のメソッドを書き換える必要はなく、出力先文字列の拡張子を変えるだけで、JPEGの圧縮率（Quality）などの別パラメータ制御へ応用できる。
—
陥りやすい罠とエラー回避の心得
現場でこのコードを実装する際、エンジニアたちがハマりがちな「落とし穴」をいくつか共有しておこう。
- 罠1：ファイルがすでに開かれていてロックされている
- 対策: 上書き保存時にExcelや画像ビューアがファイルを開いていると、VBA側で「権限エラー（実行時エラー 1004）」が発生する。出力前に `Kill` 関数で既存ファイルを削除するか、ファイル名の重複を防ぐタイムスタンプ付与の仕組みを組み込むと完璧だ。
- 罠2：巨大なページを300DPIで出力してメモリが爆発する
- 対策: A0サイズの巨大な図面を600DPIなどで出力すると、ピクセル数が数千万ピクセルを超え、Visioがフリーズするかメモリ不足エラーを起こす。ドキュメントのサイズに応じ、適切なDPI（通常は印刷用なら300DPI、Web用なら150DPI程度）を選択する柔軟性を持たせよう。
—
おわりに：ここをクリアすれば、Visio VBAはあなたのものだ
今回は、`Page.Export` における解像度・パラメータのVBAダイレクト制御について解説した。
「マクロの記録」という温室育ちのコードから脱却し、アプリケーションの裏側の設定（`Settings`）を自由自在に操る感覚は掴めたことだろう。
業務自動化において、出力物のクオリティ妥協は許されない。このテクニックをあなたの自動化スクリプトに組み込めば、ボタン一つで印刷所レベルの美しい図面画像を量産できるようになる。
ここをクリアしたあなたなら、もうVisio VBAの基礎で躓くことはない。自信を持って、次の自動化の荒波へ漕ぎ出していってほしい。健闘を祈る！
