こんにちは！CorelDRAW VBAの世界へようこそ。
マクロの記録ボタンを押して出てきたコードをそのまま動かしてみたものの、「なぜか途中で保存ダイアログが出て止まってしまう」「外部プラグインや特殊なフォーマットのエクスポート設定をどうしても自動化できない」と悩んだことはありませんか？
今回は、そんな「マクロの記録の壁」を軽々と飛び越え、サードパーティ製プラグインやカスタムエクスポートフィルターすらもVBAの動的引数制御で完全掌握し、一滴の人手すら介さないノンストップ自動化を実現するアドバンスド技術を伝授します。
ここをクリアすれば、CorelDRAW VBAの本質が見えてきます。ぜひ最後までついてきてくださいね！
—
1. なぜ通常の `ActiveDocument.Export` では限界が来るのか？
CorelDRAWの標準機能である `Export` メソッドや `StructExportOptions` は非常に優秀です。しかし、以下のような壁にぶつかったことはないでしょうか？
- 特定のサードパーティ製RIPソフトや、高度なプレビューを伴うプラグイン形式で出力したい。
- エクスポート時に固有のダイアログ（モーダルウィンドウ）が強制的に立ち上がり、VBAの実行がそこでストップしてしまう。
- 動的にファイル名や圧縮率、カラープロファイルを切り替えながら連続バッチ処理を行いたい。
標準メソッドは「決まったパラメータを静的に渡す」ことには長けていますが、外部モジュールが要求する隠しパラメータや、メモリ上のポインタを伴う動的なやり取りには対応しきれません。
ここで登場するのが、「Windows API（ユーザー32/DLL）との連携」および「環境変数・テンポラリファイルを駆使したハイブリッド動的引数制御」です。
—
2. プラグインのダイアログを自動でハックする基本アプローチ
外部プラグインがダイアログを表示して処理を止めてしまう場合、VBAから「Windowsの裏側」にアプローチして、そのウィンドウを検知し、自動で「OK」ボタンを押させたり、必要な設定値を送り込んだりする手法が効果的です。
まずは、VBAからWindowsのウィンドウを操作するためのAPI宣言と、ノンストップエクスポートを実行する実用コードの骨組みを見てみましょう。
実装コード：ノンストップ・外部連携エクスポートモジュール
Option Explicit
‘ — Windows APIの宣言（ウィンドウ制御用） —
If VBA7 Then
Private Declare PtrSafe Function FindWindow Lib “user32” Alias “FindWindowA” (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Private Declare PtrSafe Function SendMessage Lib “user32” Alias “SendMessageA” (ByVal hwnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, ByVal lParam As LongPtr) As LongPtr
Private Declare PtrSafe Function SetWindowText Lib “user32” Alias “SetWindowTextA” (ByVal hwnd As LongPtr, ByVal lpString As String) As Long
Else
Private Declare Function FindWindow Lib “user32” Alias “FindWindowA” (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessage Lib “user32” Alias “SendMessageA” (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function SetWindowText Lib “user32” Alias “SetWindowTextA” (ByVal hwnd As Long, ByVal lpString As String) As Long
End If
Const WM_COMMAND = &H111
Const IDOK = 1 ‘ 一般的な「OK」ボタンのID
”’
”’
Sub AdvancedNonStopExport()
Dim doc As Document
Set doc = ActiveDocument
If doc Is Nothing Then
MsgBox “アクティブなドキュメントがありません。”, vbCritical
Exit Sub
End
‘ 1. 出力先の動的パス生成（タイムスタンプを付与して一意性を担保）
Dim exportPath As String
exportPath = “C:\AutomatedOutput\” & Left(doc.Name, InStr(doc.Name, “.”) – 1) & “_” & Format(Now, “yyyymmdd_hhnnss”) & “.dat”
‘ 2. 非同期でウィンドウ監視を行うためのフラグや処理を準備
‘ （※実際にはFileSystemObject等でファイル生成を監視しつつダイアログを叩く設計にします）
On Error GoTo ErrorHandler
‘ 3. CorelDRAW標準の拡張エクスポートフィルター呼び出し（例：カスタムフィルタ）
‘ ここでプラグイン固有のフィルターIDを指定します
Dim filterID As Long
filterID = 1024 ‘ ※環境に応じたプラグインのフィルタIDに書き換えてください
Dim expArgs As String
‘ 動的に引数を構築（プラグインがコマンドライン引数やiniファイルを読み込む設計の場合に有効）
expArgs = “PATH=” & exportPath & ” QUALITY=HIGH BATCH=1″
‘ エクスポート実行（標準のダイアログ抑制オプションを付加）
Dim expFilter As Variant
Set expFilter = doc.ExportEx(exportPath, filterID, cdrSelection, Nothing)
‘ 4. プラグインがモーダルダイアログを出してフリーズしたと仮定し、APIで裏から制御
Call AutoDismissDialog(“プラグイン設定画面のタイトル”, IDOK)
MsgBox “ノンストップ・エクスポートが正常に完了しました！”, vbInformation, “自動化完了”
Exit Sub
ErrorHandler:
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical, “致命的なエラー”
End Sub
”’
”’
Private Sub AutoDismissDialog(ByVal windowTitle As String, ByVal buttonID As Long)
Dim targetHwnd As LongPtr
Dim count As Integer
count = 0
‘ ダイアログが出現するまで最大5秒間ポーリング
Do
targetHwnd = FindWindow(vbNullString, windowTitle)
If targetHwnd <> 0 Then Exit Do
DoEvents
Application.Wait Now + TimeValue(“0:00:01”)
count = count + 1
If count > 5 Then Exit Sub ‘ タイムアウト
Loop
‘ 見つかったダイアログに対して「OK」シグナルを送信して強制突破
If targetHwnd <> 0 Then
SendMessage targetHwnd, WM_COMMAND, buttonID, 0
End If
End Sub
—
3. コードの重要ポイントと「プロの知見」
上記のコードには、現場のプログラマーが思わずうなずく「実務を生き抜くための極意」が詰まっています。
① タイムスタンプによる一意なパス生成
バッチ処理で最も多い事故が「同名ファイルの上書きエラー」や「ファイルロック」です。`Format(Now, “yyyymmdd_hhnnss”)` を用いて、ファイル名が絶対に重複しない動的設計にすることが、ノンストップ運用の鉄則です。
② ウィンドウハンドルのポーリング（監視）
サードパーティ製プラグインの中には、VBAのコード実行を完全にブロック（同期処理）してしまうものがあります。これに対抗するため、`DoEvents` とループを組み合わせた非同期的なアプローチ（ポーリング）で外部ウィンドウの存在を監視し、出現した瞬間にAPIで制御権を奪い返します。
③ 64bit環境（VBA7）への完全対応
現代のCorelDRAW（2019〜2024など）は完全に64bit化されています。古いネットの記事にある `Declare Function` をそのまま使うとCorelDRAWごと強制終了（クラッシュ）します。必ず `#If VBA7 Then` による条件付きコンパイルを用いて、`LongPtr` 型を適切に使い分けてください。
—
4. 陥りやすい罠とデバッグの極意
このレベルの自動化に挑む際、初心者が必ずハマる罠があります。
- 罠：ダイアログのタイトル名が動的に変わる
- 対策: `FindWindow` の第一引数（クラス名）をSpy++などのツールで特定し、ウィンドウタイトルに依存しない確実な捕捉を行います。
- 罠：エラーハンドリング漏れによるハングアップ
- 対策: プラグイン側が予期せぬエラーで落ちた場合、VBA側も無応答になります。必ず `On Error GoTo` を仕込み、異常終了時でもCorelDRAWの画面描画（`Application.ScreenRefresh = True`）とイベントハンドラを復旧させる処理を組み込んでください。
—
まとめ：CorelDRAW VBAを「手足のように」操るために
今回は、サードパーティ製プラグインやカスタムエクスポートフィルターをVBAの動的引数制御とAPIで完全に支配し、ノンストップで運用するアドバンスドな手法を解説しました。
「マクロの記録」の先にある世界を知ることで、CorelDRAWは単なるお絵描きソフトから、「あなた専属の最強の自動化プラットフォーム」へと生まれ変わります。
ここをクリアしたあなたなら、どんなに複雑なワークフローも完全に自動化できるはずです。
明日からの業務効率化に、ぜひこの知見を役立ててくださいね。それでは、また次回の高度なテクニックでお会いしましょう！
