【CorelDRAW VBA極限講座】選択シェイプを高解像度PNGへ精密切り出し保存する自動化アーキテクチャ
CorelDRAW VBAの現場において、最も頻繁に要求される処理の一つが「特定の選択オブジェクトのみを、余白なく高解像度PNGとして切り出す」という作業だ。
一見、UI上の「エクスポート（Ctrl + E）」を手動で行えば済む話に見えるが、これが100点、1000点規模のバッチ処理、あるいは外部システム連携の一部となると話が変わる。手動オペレーションは排除されなければならない。
今回は、CorelDRAWの内部構造（ドキュメントモデル、バウンディングボックスの概念、イベントループ、メモリ管理）を完全に掌握したシニアエンジニアの視点から、選択シェイプのみを極限まで美しく、かつ堅牢にPNG出力する実用マクロの全貌を解説する。
—
1. 現場で直面する「3つの罠」と設計思想
CorelDRAW VBAでエクスポート処理を実装する際、素人が書いたコードは必ず以下の壁にぶつかる。
1. ドキュメント全体が書き出される問題
`ActiveDocument.Export` を安易に呼び出すと、ページ全体（あるいはアクティブレイヤー全体）がキャンバスサイズで出力されてしまう。選択シェイプの境界（Bounding Box）にトリミングするには、明示的なパラメータ制御が不可欠である。
2. 解像度（DPI）の劣化とアンチエイリアスの欠落
デフォルト設定のままエクスポートすると、Web用の粗い画像になりがたり、線がジャギーだらけになる。DPIとカラープロファイルの制御をコードから強制する必要がある。
3. メモリリークとCOMオブジェクトの解放漏れ
CorelDRAWのVBAエンジンは、背後で強力なCOM（Component Object Model）を叩いている。`ShapeRange` や `ExportFilter` を適切にクリーンアップしないと、大量処理時にCorelDRAW自体が沈黙（フリーズ）する。
これらを完全にクリアする、プロダクション品質のコードを提示しよう。
—
2. 実装コード：高精度PNGエクスポート・マクロ
以下のコードをCorelDRAWのVBAエディタ（Alt + F11）の標準モジュールに貼り付けて実行してほしい。選択中のオブジェクト群の正確な外接矩形を算出し、背景を透明（または任意）に保ったままPNGとして出力する。
Option Explicit
Sub ExportSelectedShapesAsHighResPNG()
‘ =========================================================================
‘ 処理名: 選択シェイプ高解像度PNG切り出しエクスポート
‘ 概要: 選択されたオブジェクトのバウンディングボックスを基準に、
‘ 指定DPIで高品質なPNG（透過対応）として保存します。
‘ =========================================================================
‘ 1. エラーハンドリングの準備（堅牢性の担保）
On Error GoTo ErrorHandler
‘ 画面描画とイベントを一時停止し、爆速化とチラつき防止を図る
CorelDRAW.Optimization = True
ActiveDocument.BeginCommandGroup “Export Selection to PNG”
‘ 2. 選択状態のバリデーション
If ActiveSelection.Shapes.Count = 0 Then
MsgBox “エクスポートするシェイプが選択されていません。”, vbExclamation, “CorelDRAW 自動化エンジン”
GoTo Finally
End If
‘ 3. 出力先ファイルパスの動的生成（デスクトップにタイムスタンプ付きで保存）
Dim outputPath As String
outputPath = GetDesktopPath() & “\Exported_Shape_” & Format(Now, “yyyymmdd_hhnnss”) & “.png”
‘ 4. エクスポートフィルターの取得とパラメータ設定
Dim expFilter As ExportFilter
Dim expParams As StructExportOptions
Set expParams = New StructExportOptions
With expParams
.Antialiasing = True ‘ アンチエイリアス有効化（美しい輪郭）
.Transparent = True ‘ 背景を透明に
.ResolutionX = 300 ‘ 横解像度 (DPI)
.ResolutionY = 300 ‘ 縦解像度 (DPI)
End With
‘ 5. 選択範囲のみを対象としてエクスポート実行
‘ ※ココがキモ：SelectionOnly = True にすることで選択バウンディングボックスに限定する
Set expFilter = ActiveDocument.ExportEx(outputPath, cdrPNG, cdrSelection, expParams)
expFilter.Finish
‘ 6. 正常終了通知
MsgBox “エクスポートが完了しました。” & vbCrLf & “保存先: ” & outputPath, vbInformation, “完了”
Finally:
‘ 7. リソースの確実な解放と環境復元
ActiveDocument.EndCommandGroup
CorelDRAW.Optimization = False
ActiveWindow.Refresh
‘ オブジェクト変数の明示的破棄（メモリリーク防止）
Set expFilter = Nothing
Set expParams = Nothing
Exit Sub
ErrorHandler:
‘ 異常系ハンドリング
MsgBox “予期せぬエラーが発生しました。” & vbCrLf & _
“Error # ” & Err.Number & “: ” & Err.Description, vbCritical, “致命的エラー”
Resume Finally
End Sub
‘ =========================================================================
‘ 補助関数: ユーザーのデスクトップパスを取得する
‘ =========================================================================
Private Function GetDesktopPath() As String
Dim wshShell As Object
Set wshShell = CreateObject(“WScript.Shell”)
GetDesktopPath = wshShell.SpecialFolders(“Desktop”)
Set wshShell = Nothing
End Function
—
3. チーフアーキテクトが解説するコードの急所
`CorelDRAW.Optimization = True` の魔力
大量のオブジェクト群を一括処理したり、エクスポート前後にドキュメントを操作する際、CorelDRAWはデフォルトで「画面の再描画（Redraw）」と「UIイベントの処理」を行う。これがボトルネックとなり、処理速度が何倍にも低下する。
コードの冒頭で `Optimization = True` を宣言し、処理の最後で `False` に戻すことで、VBAエンジンはCPUリソースを純粋な演算とI/Oに集中させることができる。この一手間で、体感速度は数倍〜数十倍に跳ね上がる。
`StructExportOptions` による品質の担保
単なる `ActiveDocument.Export` では、CorelDRAWの前回保存時のダイアログ設定を引き継いでしまい、環境によって出力結果がブレる（いわゆる「動くが、環境依存する」という最悪の状態）。
`StructExportOptions` オブジェクトをコード内で明示的にインスタンス化し、`ResolutionX` や `Transparent` をコードでハードコーディング（あるいは設定ファイルからロード）することで、「どの端末で実行しても全く同じ高品質なPNG」の出力を保証する。
コレクションとCOMのライフサイクル管理
VBAはガベージコレクションが極めてルーズな言語だ。特にCorelDRAWのCOMラッパー（`ExportFilter` や `Shape` 等）は、参照を保持したままにするとプロセス空間にメモリゴミを残す。
処理の脱出経路（`Finally` ラベル）を必ず用意し、`Set expFilter = Nothing` のように明示的に参照を切る作法を徹底してほしい。これが、24時間稼働する自動化サーバーや、大量のファイルを連続処理するバッチシステムでCorelDRAWを安定稼働させるための絶対条件である。
—
4. さらに先へ：システム間連携への拡張
このマクロを単なる「手動実行の便利ツール」で終わらせてはならない。
例えば、HotFolder（監視フォルダ）にベクターファイル（CDRやSVG）が放り込まれたら、バックグラウンド（非表示インスタンス）でCorelDRAWを起動し、このエクスポートロジックを走らせてERPやCMSへ自動アップロードする――そんなシステム間連携のコアパーツとして、このコードはそのまま組み込むことができる。
レガシーと侮るなかれ。CorelDRAW VBAの奥底にあるAPI仕様を正しく理解し、メモリとリソースを支配下に置けば、現代のWebアプリケーションやデスクトップ自動化パイプラインの強靭な歯車として機能させることができるのだ。
現場のエンジニア諸君の健闘を祈る。
