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

CorelDRAW VBAを掌握する極限の知見

【第3回】GUIとAPIの完全融合：UserFormによる堅牢なエクスポート・コントロールパネルの構築

執筆者：チーフシステムアーキテクト

CorelDRAWを使ったDTP・サイングラフィックの現場において、エクスポート作業ほど「ヒューマンエラーの温床」になりやすい工程はない。
「CMYKにするつもりがRGBで書き出した」「解像度が300dpiではなく72dpiのままだった」「透明効果のフラット化を忘れて印刷事故を起こした」――こうした人災を防ぐため、VBAで専用のUI（UserForm）を構築し、オペレーターの自由度を奪いつつ、確実なパラメーターでAPIを叩かせる仕組みを作ることは、中級から上級へステップアップするためのマスト要件だ。

今回は、実務の現場で即座に稼働する「カスタムエクスポート・コントロールパネル」の設計手法と、CorelDRAWのポテンシャルを限界まで引き出すプロダクションコードを伝授する。

—

なぜ「生のInputBox」や「デフォルトダイアログ」では業務が破綻するのか？

多くの開発初期段階において、VBA標準の `MsgBox` や `InputBox`、あるいはCorelDRAW標準の `Application.GetSaveAsFileName` で処理を完結させようとする。
しかし、これは業務システムとしては致命的な悪手だ。

1. バリデーションの欠如: オペレーターが数値を入れるべきところに文字列を入力したり、空欄のまま実行した瞬間に実行時エラー（Runtime Error）でマクロがクラッシュする。
2. 状態の不整合: 前回選択した設定が保持されないため、毎回手動で設定し直すコストが発生する。
3. APIのブラックボックス化: CorelDRAWの `StructExportOptions` が持つ無数のプロパティを、ダイアログなしで制御しようとするとコードが複雑怪奇になり、保守性が完全に死ぬ。

これらを解決するのが、「型安全なUIデザイン」と「明確な関心の分離（UIとビジネスロジックの分離）」である。

—

アーキテクチャ設計：堅牢なエクスポートツールの全体像

今回構築するシステムは、以下の3層構造とする。

• UI層 (UserForm): オペレーターからの入力を受け付け、即時バリデーションを行う。
• 制御層 (Standard Module): UserFormからパラメータを受け取り、CorelDRAWのドキュメント状態を安全に検査する。
• 実行層 (Export API Wrapper): `StructExportOptions` および `Document.ExportEx` を叩き、ファイルをストレージに書き出す。

それでは、具体的な実装コードを見ていこう。

—

ステップ1：UserFormの設計（GUIの構築）

VBAのIDEを開き、新規に `UserForm` を作成し、プロパティとコントロールを以下のように配置してほしい。

• UserForm名: `Ex_ControlPanel`
• キャプション: `CorelDRAW 高度エクスポートマネージャー`
• 配置するコントロール:
• `ComboBox1` (フォーマット選択: PDF, JPEG, TIFF)
• `TextBox1` (解像度入力: デフォルト 300)
• `CheckBox1` (カラープロファイル埋め込み)
• `CommandButton1` (実行ボタン: キャプション「エクスポート実行」)

—

ステップ2：プロダクションコード（実装）

ここからが本題だ。以下のコードをそのままプロジェクトに組み込んでほしい。エラーハンドリング、メモリ管理、APIの作法、すべてにおいて妥協のないコードを提供する。

1. 標準モジュール (`Mod_Main.bas`)

エントリーポイントと、エクスポートのコアロジックを担当する。

Option Explicit

‘ —————————————————————–
‘ エントリーポイント: ユーザーフォームの呼び出し
‘ —————————————————————–
Public Sub OpenExportPanel()
‘ ドキュメントが開かれているか事前チェック
If Documents.Count = 0 Then
MsgBox “アクティブなドキュメントが存在しません。”, vbCritical, “致命的エラー”
Exit Sub
End If

‘ フォームのモーダル表示
Load Ex_ControlPanel
Ex_ControlPanel.Show vbModeless
End Sub

‘ —————————————————————–
‘ コアエクスポート処理 (UI層からパラメータを受け取って実行)
‘ —————————————————————–
Public Sub ExecuteExport(ByVal formatType As String, ByVal resolution As Long, ByVal embedProfile As Boolean)
Dim activeDoc As Document
Set activeDoc = ActiveDocument

‘ 出力パスの生成 (デスクトップにドキュメント名+_exportで保存)
Dim exportPath As String
exportPath = GetDesktopPath() & “\” & StripExtension(activeDoc.Name) & GetExtension(formatType)

‘ 最重要: エクスポートオプション構造体の初期化
Dim expOptions As StructExportOptions
Set expOptions = New StructExportOptions

On Error GoTo ErrorHandler

‘ CorelDRAWの描画を一時停止し、パフォーマンスを最大化
ActiveDocument.Window.CorelScriptTools.Optimization = True

With expOptions
.ResolutionX = resolution
.ResolutionY = resolution
.MaintainAspectRatio = True
.UseColorProfile = embedProfile
‘ 必要に応じた追加パラメータの制御
End With

‘ フィルター別のエクスポート実行
Dim filterID As cdrFilterID
filterID = GetFilterID(formatType)

‘ ドキュメントのエクスポートAPI呼び出し (Exメソッドを使用)
Dim expْFilter As TargetFilter
Set expْFilter = activeDoc.ExportEx(exportPath, filterID, cdrSelection, expOptions)
expْFilter.Finish

ActiveDocument.Window.CorelScriptTools.Optimization = False
MsgBox “エクスポートが正常に完了しました。” & vbCrLf & “保存先: ” & exportPath, vbInformation, “完了”
Exit Sub

ErrorHandler:
ActiveDocument.Window.CorelScriptTools.Optimization = False
MsgBox “エクスポート中に予期せぬエラーが発生しました。” & vbCrLf & _
“エラー番号: ” & Err.Number & vbCrLf & _
“説明: ” & Err.Description, vbCritical, “実行時エラー”
End Sub

‘ — ヘルパー関数群 —

Private Function GetDesktopPath() As String
Dim wShell As Object
Set wShell = CreateObject(“WScript.Shell”)
GetDesktopPath = wShell.SpecialFolders(“Desktop”)
End Function

Private Function StripExtension(ByVal fileName As String) As String
Dim pos As Long
pos = InStrRev(fileName, “.”)
If pos > 0 Then
StripExtension = Left(fileName, pos – 1)
Else
StripExtension = fileName
End If
End Function

Private Function GetExtension(ByVal formatType As String) As String
Select Case UCase(formatType)
Case “PDF”: GetExtension = “.pdf”
Case “JPEG”: GetExtension = “.jpg”
Case “TIFF”: GetExtension = “.tif”
Case Else: GetExtension = “.dat”
End Select
End Function

Private Function GetFilterID(ByVal formatType As String) As cdrFilterID
Select Case UCase(formatType)
Case “PDF”: GetFilterID = cdrPDF
Case “JPEG”: GetFilterID = cdrJPEG
Case “TIFF”: GetFilterID = cdrTIFF
Case Else: Err.Raise 9999, , “未定義のエクスポートフォーマットです。”
End Select
End Function

2. ユーザーフォームモジュール (`Ex_ControlPanel.frm`)

UI層におけるイベント処理と、厳格な入力バリデーションを実装する。

Option Explicit

‘ フォーム初期化時の処理
Private Sub UserForm_Initialize()
‘ コンボボックスに選択肢をバインド
With ComboBox1
.AddItem “PDF”
.AddItem “JPEG”
.AddItem “TIFF”
.ListIndex = 0 ‘ デフォルトでPDFを選択
End Sub

‘ デフォルト解像度の設定
TextBox1.Text = “300”

‘ カラープロファイルのデフォルト状態
CheckBox1.Value = True
End Sub

‘ 実行ボタンクリックイベント
Private Sub CommandButton1_Click()
‘ 1. 入力値の厳格なバリデーション
If ComboBox1.ListIndex = -1 Then
MsgBox “出力フォーマットを選択してください。”, vbExclamation, “入力エラー”
ComboBox1.SetFocus
Exit Sub
End If

If Not IsNumeric(TextBox1.Text) Then
MsgBox “解像度には有効な数値を入力してください。”, vbExclamation, “入力エラー”
TextBox1.SetFocus
Exit Sub
End If

Dim res As Long
res = CLng(TextBox1.Text)

If res < 72 Or res > 2400 Then
MsgBox “解像度は 72 から 2400 の間で指定してください。”, vbExclamation, “範囲エラー”
TextBox1.SetFocus
Exit Sub
End If

‘ 2. パラメータの確定とフォームの隠蔽
Dim selectedFormat As String
selectedFormat = ComboBox1.Value

Dim useProfile As Boolean
useProfile = CheckBox1.Value

‘ 3. 制御層への処理委譲
Me.Hide
ExecuteExport selectedFormat, res, useProfile

‘ 4. フォームの破棄
Unload Me
End Sub

—

アーキテクチャの急所：プロが解説する「ここがポイント」

1. `Optimization = True` の絶対的活用
CoreldRAW VBAにおいて、バックグラウンドでの画面再描画やプレビュー生成は処理速度を劇的に低下させる。`ActiveDocument.Window.CorelScriptTools.Optimization = True` を挟むことで、APIの実行速度が数倍〜数十倍に跳ね上がる。エラー時も含めて必ず `False` に戻すガード処理を入れるのが鉄則だ。

2. UIとロジックの完全な分離
フォーム側（`Ex_ControlPanel`）には、CorelDRAWのオブジェクト操作を一切書かせていない。フォームは「入力を集め、バリデーションし、標準モジュールに渡す」ことだけに専念させる。これにより、将来的にUIをWPFや外部アプリ（C#.NETなど）に置き換える際も、コアロジックを1行も書き直さずに流用できる。

3. 厳格な型変換と境界値チェック
VBAの `Variant` 型の甘さに依存してはならない。`CLng()` による明示的な型変換と、解像度の上下限チェック（72〜2400dpi）を入れることで、オペレーターのうっかりミスによるクラッシュを完全に封じ込めている。

—

まとめ：ツール作成を「自己満足」から「組織の資産」へ

VBAによるツール開発は、単なる「手間の削減」にとどまらない。オペレーターのスキルに依存していた品質のバラつきを、コードの力で「強制的に均質化する」ことこそが、チーフアーキテクトが目指すべき真の自動化の姿である。

今回紹介した設計パターンをベースに、社内のワークフローに合わせたカスタムパラメータ（ブリード幅の指定、特定レイヤーの表示/非表示の連動など）を拡張していってほしい。
あなたのデスクトップ環境が、世界最高峰の効率的なプロダクションスタジオに生まれ変わるはずだ。