こんにちは！CorelDRAW VBAの世界へようこそ。
マクロの記録ボタンを押して出てきたコードをそのまま動かすだけのステージは、もう卒業しませんか？
現場でデザインやDTPの作業をしていると、「毎日同じ解像度でPDFやJPEGを作っているのに、書き出しダイアログの設定ミスでトラブルが起きた…」なんていうヒヤリハットに直面することがよくありますよね。
非プログラマーのスタッフでも、ボタンをポチッと押すだけで、完璧なパラメータで一発書き出しができる「専用コントロールパネル」があったら――現場の作業効率は爆発的に跳ね上がります。
今回は、CorelDRAWのVBAとUserForm（ユーザー定義ダイアログ）を組み合わせて、直感的なエクスポート制御パネルを作る方法を、プロの現場の知見を交えながら優しくレクチャーします。
ここをクリアすれば、単なる「マクロの自動再生」から、実用的な「業務アプリケーションの構築」へ一気にステップアップできますよ。それでは、一緒に進めていきましょう！
—
1. なぜ「UserFormによるUI設計」が必要なのか？
CorelDRAW標準のエクスポートダイアログは多機能すぎて、現場の初心者にとっては「どこを触ればいいかわからない迷宮」です。
「Web用だからRGB・72dpi・低圧縮」「印刷用だからCMYK・300dpi・高画質」といった現場のルールを、VBAのUserFormで強制かつシンプルに抽象化してあげるのが、優秀な自動化エンジニアの仕事です。
今回は、以下のようなシンプルなコントロールパネルを作ります。
- 用途選択ラジオボタン（Web用 / 印刷用 / クライアント確認用）
- 解像度スライダー（またはコンボボックス）
- 「一発書き出し！」実行ボタン
—
2. 実装の手順
開発の流れは以下の通りです。
1. VBE（Visual Basic Editor）を開く
2. `UserForm`を新規作成し、コントロールを配置する
3. フォームにコントロールを制御するコードを記述する
4. 標準モジュールからフォームを呼び出す
ステップ1：UserFormの作成
VBEを開き（`Alt + F11`）、メニューの「挿入」＞「ユーザーフォーム」をクリックします。
表示された「UserForm1」に対し、ツールボックスから以下の部品を配置してください。
- Frame（フレーム）：名前 `fraMode` / キャプション「書き出しモード」
- その中に OptionButton（オプションボタン）を3つ配置
- `optWeb` （キャプション：Web用 (JPEG / 72dpi)）
- `optPrint` （キャプション：印刷用 (PDF / 300dpi)）
- `optProof` （キャプション：社内確認用 (PNG / 150dpi)）
- CommandButton（コマンドボタン）：名前 `cmdExport` / キャプション「設定して書き出す」
—
ステップ2：UserFormのコード記述
配置したUserFormをダブルクリックし、コードウィンドウを開きます。
以下のコードを丸ごと貼り付けてください。ここには、現場でエラーを出さないための「オブジェクトのライフサイクルを意識した安全な書き方」が詰まっています。
‘ =================================================================
‘ フォームモジュール: frmExportController
‘ =================================================================
Option Explicit
‘ フォームが読み込まれたときの初期設定
Private Sub UserForm_Initialize()
‘ デフォルトで「Web用」を選択状態にする
Me.optWeb.Value = True
End Sub
‘ 「設定して書き出す」ボタンが押されたときの処理
Private Sub cmdExport_Click()
Dim targetPath As String
Dim expFilter As ExportFilter
Dim expOpt As StructExportOptions
‘ アクティブなドキュメントがあるかチェック（基本のエラー対策）
If Documents.Count = 0 Then
MsgBox “アクティブなドキュメントがありません。”, vbExclamation, “エラー”
Exit Sub
End If
‘ 保存先のパスを取得（デスクトップに固定、または適宜変更）
targetPath = CreateObject(“WScript.Shell”).SpecialFolders(“Desktop”) & “\Exported_Image.”
‘ オプション構造体の初期化
Set expOpt = New StructExportOptions
‘ 選択されたモードによってパラメータを動的に切り替え
If Me.optWeb.Value Then
‘ — Web用設定 (JPEG) —
targetPath = targetPath & “jpg”
expOpt.ResolutionX = 72
expOpt.ResolutionY = 72
‘ CorelDRAWのJPEGエクスポートフィルターIDを指定して書き出し
Set expFilter = ActiveDocument.ExportEx(targetPath, cdrJPEG, cdrSelection, expOpt)
ElseIf Me.optPrint.Value Then
‘ — 印刷用設定 (PDF高画質) —
‘ ※実務ではPDFスタイルを使うのが一般的ですが、今回は簡易的に画像書き出しで解説
targetPath = targetPath & “tif”
expOpt.ResolutionX = 300
expOpt.ResolutionY = 300
Set expFilter = ActiveDocument.ExportEx(targetPath, cdrTIFF, cdrSelection, expOpt)
ElseIf Me.optProof.Value Then
‘ — 社内確認用 (PNG中画質) —
targetPath = targetPath & “png”
expOpt.ResolutionX = 150
expOpt.ResolutionY = 150
Set expFilter = ActiveDocument.ExportEx(targetPath, cdrPNG, cdrSelection, expOpt)
End If
‘ 完了メッセージ
MsgBox “以下のパスに書き出しが完了しました：vbCrLf & targetPath”, vbInformation, “処理完了”
‘ フォームを閉じる
Unload Me
End Sub
—
ステップ3：標準モジュールからの呼び出し
次に、作成したUserFormをCorelDRAWから呼び出すための「窓口」を作ります。
メニューの「挿入」＞「標準モジュール」をクリックし、以下のコードを記述します。
‘ =================================================================
‘ 標準モジュール: MainModule
‘ =================================================================
Option Explicit
Sub ShowExportController()
‘ UserFormのインスタンスを生成してモーダル表示する
Dim myForm As frmExportController
Set myForm = New frmExportController
myForm.Show
‘ メモリの解放
Set myForm = Nothing
End Sub
これで準備は完了です！CorelDRAWに戻り、作成した `ShowExportController` マクロを実行してみてください。美しい専用パネルが立ち上がり、選択したボタンに応じて最適な解像度とフォーマットで書き出しが行われます。
—
3. 陥りやすいエラーとプロの回避術
ここで、中級者へのステップアップとして、CorelDRAW VBA開発でよくある「罠」と回避方法をシェアしておきます。
罠1：アクティブドキュメントが無い状態での実行
ドキュメントを開いていない状態で書き出し処理を実行すると、容赦なく「実行時エラー」が発生してマクロが強制終了します。
-> 対策: コード内にあるように、必ず `If Documents.Count = 0 Then` でガード節を挟みましょう。ユーザーに優しい設計がプロの証です。
罠2：オブジェクトのメモリリーク
VBAで `New` キーワードを使ってオブジェクトを生成した際、使い終わった後に `Set xxx = Nothing` で明示的にメモリを解放しないと、CorelDRAWの動作が重くなる原因（メモリリーク）になります。
-> 対策: 標準モジュールのサンプルコードのように、フォームの表示が終わったら必ずメモリをクリーンアップする習慣をつけましょう。
—
まとめ
今回は、UserFormを使ったカスタムダイアログによるエクスポート制御の極意を解説しました。
- 現場の負担を減らすUIを設計する（迷わせない選択肢の提供）
- 動的なパラメータ制御（`StructExportOptions`の活用）
- 堅牢なエラーハンドリング（ドキュメント存在チェック）
ここをクリアすれば、あなたの作るVBAマクロは、単なる「おもちゃ」から「実用的な業務システム」へと劇的に進化します。ぜひ明日の業務から取り入れて、周囲をあっと言わせる自動化環境を作ってみてくださいね！
