CorelDRAW VBA：Web向け高品質JPEG書き出しの「極限」を実装する
CorelDRAWの自動化において、`Export`や`ExportBitmap`メソッドを単に叩くだけのコードは誰にでも書ける。しかし、現場で求められるのは、数百のドキュメントを連続処理してもメモリリークを起こさず、かつWeb標準に最適化された高精細なビットマップを吐き出す「堅牢なエンジン」だ。
本稿では、シニアエンジニアが押さえておくべき、CorelDRAW VBAによる書き出しの真髄を解説する。
—
1. 勘違いを排す：なぜExportBitmapは「重い」のか
多くの初心者は、ループ内で何度もオブジェクトを生成し、明示的な解放を怠る。VBAのガベージコレクションは非常に遅い。CorelDRAWのオブジェクトモデルにおいて、`Shape`や`Document`を放置することは、プロセスが肥大化し、最悪の場合「メモリ不足」でクラッシュする原因となる。
我々が実装すべきは、「使用後の即時Nothing代入」と「不要なバックグラウンド処理の抑制」だ。
2. Web向け高品質JPEG書き出しの最適解
以下のコードは、単なる書き出しではない。解像度（DPI）、圧縮率（Smoothing）、カラープロファイル管理まで踏み込んだ実戦仕様である。
Option Explicit
‘ メモリ管理を徹底するためのオブジェクト宣言
Public Sub ExportToWebJPEG(ByVal filePath As String, ByVal dpi As Long)
Dim doc As Document
Dim expFilter As ExportFilter
Dim expOptions As StructExportOptions
‘ プロセスの安定化：スクリーン更新の停止
Optimization = True
Set doc = ActiveDocument
‘ JPEG書き出し設定の構築
Set expOptions = New StructExportOptions
expOptions.AntiAliasingType = cdrNormalAntiAliasing
expOptions.ImageType = cdrRGBColorImage
expOptions.MaintainAspect = True
‘ JPEG固有のフィルタ設定
‘ Smoothing: 10-100, Quality: 1-100
Set expFilter = doc.ExportEx(filePath, cdrJPEG, cdrCurrentPage, expOptions)
With expFilter
.Progressive = True ‘ Web表示用のプログレッシブJPEG
.Optimized = True ‘ 圧縮最適化
.Smoothing = 20 ‘ Web向けに標準的なぼかし処理
.Quality = 85 ‘ 画質と容量のトレードオフの黄金比
.Finish ‘ ここで初めてファイルIOが実行される
End With
‘ オブジェクトの明示的解放（伝説的エンジニアの嗜み）
Set expFilter = Nothing
Set expOptions = Nothing
Set doc = Nothing
Optimization = False
ActiveWindow.Refresh
End Sub
—
3. シニアエンジニアが現場で守るべき「3つの鉄則」
① `Optimization = True` の絶対的活用
これを忘れると、CorelDRAWは書き出しのたびにUIを再描画しようとする。数千枚のバッチ処理を行う際、これがあるかないかで実行時間に数倍の差が出る。
② `ExportEx` と `Finish` の分離
`Export`メソッドは簡易的だが、制御性に欠ける。`ExportEx`で`ExportFilter`オブジェクトを生成し、詳細なパラメータ（プログレッシブJPEG設定や色空間設定）を注入した後に`Finish`を呼ぶ。このパイプライン構造こそが、高画質を維持する秘訣だ。
③ Windows APIとの連携（高度な運用）
もし出力先のファイルシステムがネットワークドライブや、非常に深いディレクトリ構造にある場合、標準のVBA関数ではパスの長さに起因するIOエラーが発生することがある。その際は、`kernel32.dll`の`CreateDirectory`や`GetLongPathName`を呼び出し、システムレベルでパスを解決させるのが、真のプロフェッショナルな解法だ。
—
4. 最後に：レガシーを「資産」に変えるために
VBAはレガシーな言語であると揶揄されることもある。しかし、CorelDRAWの内部APIを直接叩けるのはVBAだけだ。外部のPythonスクリプトを噛ませるよりも、ネイティブなVBAでオブジェクトのライフサイクルを制御する方が、圧倒的に高速で安定する。
コードをコピペして満足するな。なぜその引数なのか、なぜそのタイミングでメモリを解放するのか。その意図を理解した時、君の自動化ツールは「使い捨てのスクリプト」から「社内の基幹システム」へと進化する。
現場の課題は、常にコードの中に答えがある。さあ、次は君自身のコードで、その限界を書き換えてみせろ。
