【実務・中級編】【中級者向け】ユーザー定義のカスタムダイアログ（UserForm）からエクスポートパラメータを直感的に制御するUI設計 – CorelDRAW VBA解析バイブル

CorelDRAW VBAを掌握する極限の知見：カスタムUserFormでエクスポートパラメータを完全制御するUI設計

こんにちは。現場の業務自動化を泥臭く、しかしアーキテクチュアルに解決し続けるチーフアーキテクトの私だ。

CorelDRAWでの日々の業務において、最も消耗するのはどの工程か？
そう、「デザインデータの書き出し（エクスポート）」だ。

「Web用だからRGBで72dpi、JPEG圧縮は80%…いや待て、印刷用だからCMYKで300dpi、文字はアウトライン化してPDF/X-1aで…」
これを非プログラマーのデザイナーやアシスタントに手動でやらせると、必ずレギュレーション違反のデータが生成され、手戻りが発生する。

今回は、CorelDRAW VBAの標準UserFormを駆使し、現場のオペレーターが迷いなく、かつ絶対にミスしないカスタムコントロールパネルを構築する手法を伝授する。
単なる「コードのコピペ集」ではない。オブジェクトのライフサイクル、メモリ管理、そして実務に耐えうる堅牢な例外処理まで含めた、プロダクションクオリティの設計思想を叩き込む。

—

1. なぜ「標準ダイアログ」では業務効率が破綻するのか？

CorelDRAWの標準エクスポートダイアログ（`Dialogs.ExportDialog`など）は高機能だが、それは「何でもできる（＝何でも設定ミスできる）」という裏返しでもある。

業務効率化の鉄則は「選択肢を減らし、意図を強制する」ことだ。
カスタムUserFormを一枚噛ませることで、以下のメリットが生まれる。

1. プリセット化によるヒューマンエラーの根絶（「Web用」「大判印刷用」などの目的に応じてパラメータをハードコードまたは定数化）
2. UIと処理の完全な疎結合（バックグラウンドで適切な`StructExportOptions`を構築し、サイレントに実行）
3. 動的なバリデーション（不正な数値や未選択状態での書き出しを物理的にブロック）

それでは、実際に実装するアーキテクチャを見ていこう。

—

2. システムアーキテクチャと実装方針

今回のツールは、以下の2つのモジュールで構成する。

• `ExportController` (標準モジュール): エントリーポイント。ドキュメントの状態チェックとUserFormのライフサイクル管理を担当。
• `ExportDialog` (UserForm): UIの描画とユーザー入力のキャプチャ、およびCorelDRAWのエクスポートAPI（`ActiveDocument.ExportEx`）の実行。

メモリリークを防ぐため、オブジェクトの参照は処理完了時に確実に解放（`Nothing`代入）する。ここをサボる開発者は、CorelDRAWを強制終了させる爆弾をコード内に仕込んでいるのと同義だ。

—

3. プロダクションコード：実用版エクスポートコントロールパネル

以下のコードを、CorelDRAWのVBAエディタ（Alt + F11）に組み込んでほしい。

① 標準モジュール：`ExportController.bas`

Option Explicit

‘ エントリーポイント
Sub LaunchExportControlPanel()
‘ ドキュメントが開かれているか検証
If Application.Documents.Count = 0 Then
MsgBox “アクティブなドキュメントが存在しません。”, vbCritical, “致命的なエラー”
Exit Sub
End If

‘ 選択オブジェクトの有無をチェック（必要に応じて）
If ActiveSelection.Shapes.Count = 0 Then
If MsgBox(“オブジェクトが選択されていません。ページ全体を書き出しますか？”, vbQuestion + vbYesNo, “確認”) = vbNo Then
Exit Sub
End If
End If

‘ UserFormのインスタンス化
Dim frm As ExportDialog
Set frm = New ExportDialog

‘ モーダルでフォームを表示
frm.Show vbModal

‘ 終了後のメモリ解放
Unload frm
Set frm = Nothing
End Sub

② ユーザーフォーム：`ExportDialog.frm` のコード

※フォーム上には以下のコントロールを配置すること想定して記述している。

• `cmbFormat` (ComboBox): フォーマット選択 (“JPEG”, “PNG”, “PDF”)
• `txtResolution` (TextBox): 解像度入力
• `chkAntialias` (CheckBox): アンチエイリアス有効化
• `btnExecute` (CommandButton): 実行ボタン
• `btnCancel` (CommandButton): キャンセルボタン

Option Explicit

‘ フォーム初期化イベント
Private Sub UserInterface_Initialize()
‘ デフォルト値の設定
Me.cmbFormat.AddItem “JPEG”
Me.cmbFormat.AddItem “PNG”
Me.cmbFormat.AddItem “PDF”
Me.cmbFormat.ListIndex = 0 ‘ デフォルトはJPEG

Me.txtResolution.Text = “300”
Me.chkAntialias.Value = True
End Sub

Private Sub UserForm_Initialize()
UserInterface_Initialize
End Sub

‘ キャンセルボタン
Private Sub btnCancel_Click()
Unload Me
End Sub

‘ 実行ボタン
Private Sub btnExecute_Click()
On Error GoTo ErrorHandler

‘ 1. 入力値のバリデーション
If Not ValidateInputs() Then Exit Sub

‘ 2. 保存先ファイルダイアログの取得
Dim targetPath As String
targetPath = GetSaveFilePath(CStr(Me.cmbFormat.Value))
If targetPath = “” Then Exit Sub ‘ ユーザーがキャンセルした場合

‘ 3. エクスポート処理の実行
ExecuteExport targetPath, CStr(Me.cmbFormat.Value), Val(Me.txtResolution.Text), CBool(Me.chkAntialias.Value)

‘ 4. 完了通知
MsgBox “エクスポートが正常に完了しました。” & vbCrLf & targetPath, vbInformation, “完了”
Unload Me
Exit Sub

ErrorHandler:
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “エラー”
‘ ログ出力処理などをここに挟むのがプロの作法
End Sub

‘ 入力値バリデーション
Private Function ValidateInputs() As Boolean
‘ 解像度の数値チェック
If Not IsNumeric(Me.txtResolution.Text) Then
MsgBox “解像度には有効な数値を入力してください。”, vbExclamation, “入力エラー”
Me.txtResolution.SetFocus
ValidateInputs = False
Exit Function
End If

If Val(Me.txtResolution.Text) <= 0 Or Val(Me.txtResolution.Text) > 1200 Then
MsgBox “解像度は 1 から 1200 の間で指定してください。”, vbExclamation, “入力エラー”
Me.txtResolution.SetFocus
ValidateInputs = False
Exit Function
End If

ValidateInputs = True
End Function

‘ 保存ファイルパスの取得
Private Function GetSaveFilePath(ByVal format As String) As String
Dim ext As String
Dim filter As String

Select Case UCase(format)
Case “JPEG”: ext = “jpg”: filter = “JPEG Bitmap (.jpg)|.jpg”
Case “PNG”: ext = “png”: filter = “Portable Network Graphics (.png)|.png”
Case “PDF”: ext = “pdf”: filter = “Adobe PDF (.pdf)|.pdf”
Case Else: ext = “dat”: filter = “All Files (.)|.”
End Select

Dim defaultName As String
defaultName = Left(ActiveDocument.FileName, InStrRev(ActiveDocument.FileName, “.”) – 1)
If defaultName = “” Then defaultName = “Untitled”

Dim savePath As Variant
savePath = Application.GetSaveAsFilename(defaultName & “.” & ext, filter)

If VarType(savePath) = vbBoolean And savePath = False Then
GetSaveFilePath = “”
Else
GetSaveFilePath = CStr(savePath)
End If
End Function

‘ コアのエクスポートロジック（CorelDRAW APIのラップ）
Private Sub ExecuteExport(ByVal filePath As String, ByVal format As String, ByVal resolution As Long, ByVal antialias As Boolean)
Dim expFilter As cdrFileFormat
Dim expOptions As StructExportOptions
Set expOptions = New StructExportOptions

‘ オプションの設定（APIの型安全性を意識）
With expOptions
.ResolutionX = resolution
.ResolutionY = resolution
.Antialiasing = antialias
End With

Select Case UCase(format)
Case “JPEG”
expFilter = cdrJPEG
‘ JPEG固有の品質設定（例: 90固定）
expOptions.Compression = 90

Case “PNG”
expFilter = cdrPNG

Case “PDF”
expFilter = cdrPDF
‘ PDF固有の設定が必要な場合はここでStructPDFExportSettingsを使用する

Case Else
Err.Raise 1000, , “サポートされていないフォーマットです。”
End Select

‘ 選択範囲のみ、あるいはページ全体の判定
‘ ここではアクティブセレクションが存在すれば選択範囲、なければページ全体とする
If ActiveSelection.Shapes.Count > 0 Then
ActiveDocument.ExportSelection(filePath, expFilter, cdrExportSelected, expOptions).Finish
Else
ActiveDocument.Layers.TheGrid.Document.Export(filePath, expFilter, cdrExportAllPages, expOptions).Finish
End If

‘ 明示的なオブジェクト破棄
Set expOptions = Nothing
End Sub

—

4. 現場でトラブルを起こさないための「3つの知見」

このコードを実務投入するにあたり、チーフアーキテクトとして妥協なき配慮を行ったポイントを解説する。

① エラーハンドリングとオブジェクト破棄の不可分性

VBAで最も恐ろしいのは、予期せぬエラー発生時にメモリ上にオブジェクトが残り続け、CorelDRAWのプロセスが不安定になることだ。
`ExecuteExport`内では、`StructExportOptions`を都度生成し、処理の最後（あるいはエラー時）に確実にスコープから外す、あるいは`Set obj = Nothing`することを徹底している。

② UIとビジネスロジックの完全な分離

UserFormのボタンクリックイベントの中に、生々しいCorelDRAWのAPIコールをベタ書きしてはならない。
今回のように、`ValidateInputs`、`GetSaveFilePath`、`ExecuteExport`というプライベートメソッドに責務を分割することで、将来「バッチ処理（UIなし）からも同じロジックを呼び出したい」となったときに、コアロジックを数行で流用できる設計になっている。

③ CorelDRAWのバージョン差異への配慮

`ExportEx` や `Export` メソッドは、CorelDRAWのバージョン（X8, 2019, 2023など）によって、引数の仕様や返り値の`.Finish`メソッドの挙動が微妙に異なる場合がある。
実務で展開する際は、対象となるCorelDRAWのバージョンで必ずストレステスト（大量のバッチ処理や、極端に重いベクターデータの書き出し）を行い、メモリリークやクラッシュが発生しないことを確認してほしい。

—

5. おわりに

「VBAなんて所詮マクロの延長だ」——そんな偏見を持っているプログラマーは、大規模なデザイン現場の絶望を知らない。
適切なUI設計と堅牢なエラーハンドリング、そしてCorelDRAWのオブジェクトモデルに対する深い敬意があれば、VBAは最強の業務自動化兵器へと化ける。

あなたの現場から「くだらない手作業」を根絶し、クリエイターがクリエイティブに集中できる環境を構築してほしい。健闘を祈る。