こんにちは！CorelDRAW VBAの世界へようこそ。
マクロの記録ボタンを押して出てきたコードをそのまま貼り付けるだけのステージは、もう卒業しませんか？
今回は、日々の印刷入稿やWEB用画像の書き出し作業を劇的に効率化するための「ユーザー定義カスタムダイアログ（UserForm）を使ったエクスポート制御パネル」の作り方を、基礎からしっかりと解説していきます。
「VBAでGUI（画面）なんて難しそう…」と思うかもしれませんが、ここをクリアすれば、あなたの作ったCorelDRAWマクロは一気に「プロ仕様の業務アプリケーション」へと生まれ変わります。温かく導いていくので、一緒にリラックスして進めていきましょう！
—
1. なぜ「UserForm」によるカスタムUIが必要なのか？
実務の現場では、次のような「面倒くさい」が頻発しますよね。
- 「印刷用だからCMYK、解像度300dpiでPDF…いや待て、今回はWEB用だからRGBのJPEGだった！」
- 「毎回コードの中身の数字を書き換えて実行するのは、ヒューマンエラーの元だ…」
VBA標準の `MsgBox` や `InputBox` では、せいぜい「はい・いいえ」を聞くくらいしかできません。そこで登場するのが UserForm（ユーザーフォーム） です。
オペレーターが直感的にポチポチと設定を選び、「実行」ボタンを1回押すだけで、裏側でCorelDRAWが華麗にデータを料理してくれる――そんな理想の仕組みを自分の手で構築してみましょう。
—
2. 開発の全体像とステップ
今回の実装ステップは以下の3つです。
1. VBE（Visual Basic Editor）でのフォーム設計：ボタンやプルダウンを配置する。
2. コントロールへのイベント記述：ユーザーの操作に連動する処理を書く。
3. CorelDRAWのAPIを叩くエクスポート処理：選択された条件に基づいて画像を書き出す。
それでは、VBEを開いて（ショートカットは `Alt` + `F11` です）、ハンズオンを始めましょう！
—
3. 実装手順とコード解説
ステップ1：UserFormのビジュアル設計
1. VBEのメニューから [挿入] ＞ [ユーザーフォーム] を選択します。
2. ツールボックスから、以下のパーツをフォーム上に配置してください。
- ComboBox（コンボボックス） × 2個：フォーマット選択用、カラーモード選択用
- TextBox（テキストボックス） × 1個：解像度（DPI）入力用
- CommandButton（コマンドボタン） × 1個：実行用
それぞれのコントロールのプロパティ（F4キーで表示）で、名前（Name）を次のように分かりやすく整理しておくと、後々のコーディングがぐっとラクになります。
- フォーム本体：`Name = “ExportForm”`
- フォーマット選択：`Name = “cmbFormat”`
- カラーモード選択：`Name = “cmbColorMode”`
- 解像度入力：`Name = “txtResolution”`
- 実行ボタン：`Name = “btnExecute”`
—
ステップ2：フォームが開いたときの初期化処理（Initialize）
フォームが画面に表示された瞬間、プルダウンの中にあらかじめ選択肢（JPEG、PNG、PDFなど）をセットしてお親切ですね。
`ExportForm` のコードウィンドウを開き、次のコードを貼り付けてください。
‘ =====================================================================
‘ フォームが読み込まれたときの初期設定
‘ =====================================================================
Private Sub UserForm_Initialize()
On Error GoTo ErrorHandler
‘ フォーマットの選択肢を追加
With cmbFormat
.AddItem “JPEG”
.AddItem “PNG”
.AddItem “PDF”
.ListIndex = 0 ‘ デフォルトで先頭（JPEG）を選択
End With
‘ カラーモードの選択肢を追加
With cmbColorMode
.AddItem “RGB (WEB用)”
.AddItem “CMYK (印刷用)”
.ListIndex = 0 ‘ デフォルトでRGBを選択
End With
‘ 解像度のデフォルト値をセット
txtResolution.Text = “300”
Exit Sub
ErrorHandler:
MsgBox “初期化中にエラーが発生しました: ” & Err.Description, vbCritical, “システムエラー”
End Sub
—
ステップ3：実行ボタンが押されたときのエクスポート心臓部
ここが今回のメインです！オペレーターが画面で選んだ値を受け取り、CorelDRAWの強力なエクスポートフィルターを呼び出します。
ボタンが押されたときのイベント（`btnExecute_Click`）に、以下のコードを記述します。
‘ =====================================================================
‘ [実行]ボタンがクリックされたときの処理
‘ =====================================================================
Private Sub btnExecute_Click()
Dim expFilter As Long
Dim filePath As String
Dim resolution As Long
Dim exportParam As StructExportOptions
Dim filterObj as Filter
On Error GoTo ErrorHandler
‘ 1. アクティブなドキュメントがあるかチェック（ライフサイクルの基本！）
If ActiveDocument Is Nothing Then
MsgBox “処理対象となるドキュメントが開かれていません。”, vbExclamation, “警告”
Exit Sub
End Sub
‘ 2. 入力値のバリデーション（解像度が数値かチェック）
If Not IsNumeric(txtResolution.Text) Then
MsgBox “解像度には半角数字を入力してください。”, vbExclamation, “入力エラー”
txtResolution.SetFocus
Exit Sub
End If
resolution = CLng(txtResolution.Text)
‘ 3. 保存先のパスを決定（今回はデスクトップに固定、またはダイアログで指定も可）
‘ ※実務ではファイル保存ダイアログを使うのが親切ですが、今回は簡略化のためデスクトップへ
filePath = CreateObject(“WScript.Shell”).SpecialFolders(“Desktop”) & “\exported_image.” & LCase(cmbFormat.Text)
‘ 4. 選択されたフォーマットに応じたCorelDRAWの定数（フィルター）を割り当て
Select Case cmbFormat.Text
Case “JPEG”
expFilter = cdrJPEG
Case “PNG”
expFilter = cdrPNG
Case “PDF”
expFilter = cdrPDF
Case Else
expFilter = cdrJPEG
End Select
‘ 5. エクスポートオプションの構築
Set exportParam = New StructExportOptions
With exportParam
.ResolutionX = resolution
.ResolutionY = resolution
‘ カラーモードの判定（RGB or CMYK）
If cmbColorMode.ListIndex = 1 Then
.ColorType = cdrColorCMYK
Else
.ColorType = cdrColorRGB
End If
End With
‘ 6. 実行！ドキュメントのエクスポート
‘ ドキュメント全体を対象に指定のフィルターで書き出します
ActiveDocument.ExportEx filePath, expFilter, cdrAllPages, exportParam
‘ 7. オブジェクトの解放（メモリ管理の鉄則）
Set exportParam = Nothing
‘ 完了メッセージ
MsgBox “エクスポートが正常に完了しました！” & vbCrLf & “保存先: ” & filePath, vbInformation, “完了”
‘ フォームを閉じる
Unload Me
Exit Sub
ErrorHandler:
MsgBox “予期せぬエラーが発生しました。” & vbCrLf & “エラー番号: ” & Err.Number & vbCrLf & “内容: ” & Err.Description, vbCritical, “エラー”
Set exportParam = Nothing
End Sub
—
4. 現場で陥りやすいエラーと回避の知見
CorelDRAW VBAを扱う上で、中級者が必ず踏む「罠」がいくつかあります。ここを知っておくだけで、トラブルシューティングの時間が劇的に減ります。
① 「ActiveDocument is Nothing」の呪縛
ユーザーがドキュメントを何も開いていない状態でマクロを実行すると、`ActiveDocument` を参照した瞬間にVBAがクラッシュ、あるいは実行時エラーで強制終了します。
必ず処理の冒頭で `If ActiveDocument Is Nothing Then` によるガード節を設けるのが、プロのエンジニアの作法です。
② メモリリークとオブジェクトの解放
VBAは自動ガベージコレクションがあまり賢くありません。特に `New StructExportOptions` のような構造体・オブジェクトを生成した後は、処理の最後に `Set exportParam = Nothing` と明示的にメモリを解放してあげることで、CorelDRAW自体の動作安定性が劇的に向上します。
③ フォームを呼び出すための「標準モジュール」の用意
UserFormを画面に表示させるためには、標準モジュールを1つ追加し、次のようなシンプルなプロシージャを書く必要があります。
‘ 標準モジュールに記述する起動用マクロ
Sub ShowExportTool()
ExportForm.Show
End Sub
これをCorelDRAWのマクロマネージャから実行すれば、今回作った美しいカスタムダイアログが画面にフワッと現れます。
—
5. まとめ
今回は、CorelDRAW VBAでユーザー定義のカスタムダイアログ（UserForm）を構築し、エクスポートパラメータを直感的に制御する業務アプリ化の手順を解説しました。
ここをクリアできれば、単なる「作業の自動化」から、チームメンバーやクライアントも使える「業務システムの開発」へとステップアップできます。ぜひあなたの職場のワークフローに合わせて、フォーマットの選択肢を増やしたり、PDFのプリセット選択肢を加えたりしてカスタマイズしてみてください。
「ここをもっとこうしたい」「こういうエラーが出るんだけどどうすればいい？」といった疑問があれば、いつでも先輩エンジニアに聞いてくださいね。応援しています！
