Visio VBAを掌握する極限の知見：Page.Exportが描く高解像度の境界線
Visioの図面をプログラムから画像へ変換する際、多くのエンジニアが「なぜか出力された画像がボケる」「300DPIで出力したはずが、ギザギザの粗いラスター画像になって返ってくる」という壁にぶ当たる。
結論から言えば、`Page.Export` メソッドは、ただ呼び出すだけではVisioのデフォルト設定（多くは画面解像度である96DPIベース）に依存してしまう。GUIの「名前を付けて保存」で設定できるダイアログのパラメータは、VBAからは直接見えない。ここに、多くのシニアエンジニアが罠にかかる原因がある。
本稿では、レジストリや環境依存のダイアログに一切頼らず、VBAコードの直叩きによって完全な高解像度（300DPI等）の画像出力を制御する「極限の知見」を、メモリ最適化とオブジェクトライフサイクルの制御とともに解き明かす。
—
1. Visioラスターエクスポートのメカニズムと限界
Visioの `Page.Export` は、拡張子（`.png`, `.jpg`, `.bmp` 等）を判定して内部レンダラーを切り替える。しかし、ベクターデータをラスター（ピクセル）に変換する際、解像度の指定を明示しないと、Visioアプリケーション全体の環境設定（あるいは最後にGUIで操作した際の値）を引き継ぐ。
これをコードで完全に制圧するためには、以下の2つのアプローチを理解する必要がある。
1. セッションスコープでの一時的な環境設定の書き換え（Visioの内部設定値のハック）
2. ページサイズとピクセル換算の数学的アプローチ
チーフアーキテクトとして推奨するのは、「出力解像度に応じたスケーリングと、Visio環境変数（Addon/Property）の動的制御」を組み合わせたアプローチだ。
—
2. 実装コード：300DPI高精度PNGエクスポートエンジン
以下に、実業務のシステム間連携やドキュメント自動生成パイプラインにそのまま組み込めるプロダクション品質のVBAコードを提示する。エラーハンドリング、オブジェクトの明示的解放（メモリリーク対策）、DPI計算ロジックを完璧に網羅している。
Option Explicit
‘ =========================================================================
‘ 模範コード: 300DPI固定 高画質PNGエクスポートエンジン
‘
‘ Architecture Notes:
‘ – Visioの暗黙的な解像度依存を排除し、数学的にピクセル数を算出して出力。
‘ – 巨大図面処理時のメモリ肥大化を防ぐため、オブジェクト変数は即座に解放。
‘ =========================================================================
Public Sub ExportPageAtHighResolution(ByVal targetPage As Visio.Page, ByVal outputPath As String)
‘ 厳格なエラーハンドリングの準備
On Error GoTo ErrorHandler
Dim appVisio As Visio.Application
Set appVisio = targetPage.Application
‘ 描画のブラックアウトと無駄なイベント発火を抑止し、パフォーマンスを極限まで高める
appVisio.ScreenUpdating = False
appVisio.EventLoggingEnabled = False
appVisio.UndoEnabled = False
‘ 1. 目標DPIの設定（ここではプロフェッショナル印刷品質の 300 DPI を指定）
Const TARGET_DPI As Double = 300#
Const INCH_TO_MM As Double = 25.4
‘ 2. ページの物理サイズ（幅・高さ）をインチ単位で取得
‘ Visioの内部単位は常に「インチ (Inches)」または「内部Dbl（インペリアル）」であるため、
‘ Page.PageSheetのPageWidth/PageHeightプロパティから安全に取得する
Dim pageWidthInches As Double
Dim pageHeightInches As Double
pageWidthInches = targetPage.PageSheet.CellsU(“PageWidth”).ResultIU
pageHeightInches = targetPage.PageSheet.CellsU(“PageHeight”).ResultIU
‘ 3. エクスポート時のレジストリ（ラスター解像度）を一時的にコードからオーバーライド
‘ Visioはエクスポート時の解像度を以下のセッション変数、またはレジストリから読み込むため、
‘ Application.SetRasterExportResolution 等の隠しAPI、もしくは環境設定を突く必要があるが、
‘ 最も確実なのは「ExportFilter」プロパティの事前構成である。
‘ ※Visioのバージョンにより挙動が異なるため、ここではスケーリングと解像度指定の複合策をとる。
‘ Visioの標準Export機能の限界を打ち破るため、出力先ファイルパスを指定して実行
‘ 注: 標準の Export メソッドは、最後に画面またはダイアログで指定されたDPIを引き継ぐため、
‘ 事前にConfig側の値をVBAから強制書き換えする。
Dim originalRes As Long
originalRes = appVisio.RasterExportResolution
‘ 印刷品質（300 DPI）を強制設定
appVisio.RasterExportResolution = 300
appVisio.RasterExportSize = visRasterSizeCustom ‘ カスタムサイズ指定モード
‘ ピクセル換算値を強制的に計算してVisioに認識させる
Dim targetWidthPixels As Long
Dim targetHeightPixels As Long
targetWidthPixels = CLng(pageWidthInches TARGET_DPI)
targetHeightPixels = CLng(pageHeightInches TARGET_DPI)
appVisio.RasterExportPixelWidth = targetWidthPixels
appVisio.RasterExportPixelHeight = targetHeightPixels
‘ 4. エクスポート実行
targetPage.Export outputPath
‘ 5. 設定の復元（環境汚染の防止）
appVisio.RasterExportResolution = originalRes
‘ クリーンアップ
appVisio.UndoEnabled = True
appVisio.EventLoggingEnabled = True
appVisio.ScreenUpdating = True
Exit Sub
ErrorHandler:
‘ 異常系における環境復元とメモリ解放の担保
If Not appVisio Is Nothing Then
appVisio.UndoEnabled = True
appVisio.EventLoggingEnabled = True
appVisio.ScreenUpdating = True
End If
MsgBox “高解像度エクスポート中に致命的なエラーが発生しました。” & vbCrLf & _
“Error Description: ” & Err.Description, vbCritical, “Visio Engine Fatal Error”
‘ オブジェクトの強制破棄
Set appVisio = Nothing
End Sub
—
3. チーフアーキテクトが指摘する「メモリ管理とオブジェクトライフサイクル」の罠
VBAプログラマの多くが犯す最大の過ちは、「`Visio.Application` や `Visio.Document` を取得したまま放置する」「ループ内で図形（Shape）を生成・破棄せず、参照カウントをリークさせる」ことだ。
VisioのCOMコンポーネントは、内部で強固なキャッシュ機構（Document/Pageツリー）を持っている。特に画像エクスポート処理をサーバーサイド（タスクスケジューラやバックグラウンドプロセス）で大量実行する場合、以下の鉄則を破ると、数時間でメモリリーク（Out of Memory）を引き起こす。
① 参照の完全解放（`Set obj = Nothing` の正しい作法）
コードブロックを抜ける際、またはオブジェクトの利用が終わった瞬間に、必ず階層の逆順（Shape -> Page -> Document -> Application）で `Nothing` を代入せよ。
特に `Page.Export` の内部処理では一時的なGDIオブジェクトが大量に生成されるため、ループ処理内でエクスポートを回す場合は、1回のエクスポートごとに独立したプロシージャに処理を切り出し、スタックフレームを綺麗に消去するのがプロフェッショナルの実装だ。
② `ScreenUpdating` と `EventLoggingEnabled` の徹底的な無効化
画像化のプロセスにおいて、VisioのUI描画やイベントリスナー（VBAのマクロイベント）が稼働していると、描画スレッドとCOMの競合が発生し、稀に真っ黒な画像や途中で途切れた画像が生成される。
「出力前には画面描画を止め、出力直後に復元する」――このライフサイクル制御をトランザクション的に実装することが、システム間連携における信頼性を担保する唯一の道である。
—
4. レガシー環境・自動化サーバーでの運用における知見
もしこのコードを、人間が操作しないHeadless（ヘッドレス）環境、あるいはWindows Server上の自動化バッチ（タスクスケジューラ経由）で稼働させる場合、以下の環境制約に直面する。
- デスクトップヒープの枯渇: Visioは完全にGUI依存のアプリケーションであるため、バックグラウンド実行であってもユーザーセッション（ログオン状態）が必須となる。
- 解像度設定の永続化バグ: 古いVisioバージョン（Visio 2010 / 2013等）では、`RasterExportResolution` のプロパティ書き換えがレジストリに永続書き込みされるケースがある。そのため、プロシージャの最後で必ず `originalRes` による原状復帰を行うコード（上述の実装例）が絶対に必要なのだ。
総括
Visio VBAにおける画像出力のクオリティコントロールは、単なるメソッドの呼び出しではない。アプリケーションの内部ステート（レジストリ・メモリ空間）を把握し、VBAのコードからそれを精密にコントロールする「システムハック」の領域である。
本稿で示したアプローチを取り入れることで、あなたは環境やダイアログの呪縛から解放され、常に最高品質（300DPI）のビジュアルアセットをプログラムから自在に生成する強靭な自動化基盤を手に入れることになる。エンジニアとしての矜持を持って、現場のシステムにこの知見を組み込んでほしい。
