CorelDRAWを支配する：Windows API連携によるVBAの極限高度化
チーフアーキテクトの私だ。これまで数多くのCorelDRAW自動化案件を見てきたが、「VBAの標準機能ではファイルダイアログの拡張フィルターが実装できない」「クリップボード経由のバイナリデータ操作でメモリリークを起こす」といった壁にぶ돌かり、VBAの限界を呪う開発者を数多く見てきた。
ハッキリ言おう。VBAに限界があるのではない。あなたの視座がCorelDRAWの内部だけで完結していることが限界なのだ。
CorelDRAWのVBAは、背後でOS（Windows）と密接に繋がっている。ならば、`user32.dll` や `kernel32.dll` といったWindows APIを直接叩けばいい。VBAの皮を被りながら、C++並みのシステム制御力を手に入れる――今回は、その禁断かつ最強の技術領域をあなたに伝授しよう。
—
なぜ標準機能ではなくWindows APIなのか？
実務の現場で業務効率化ツールを開発する際、以下の要件に直面したことはないか？
1. 複数ファイルの同時選択（マルチセレクト）ができるファイルダイアログを出したい
2. CorelDRAWの標準 `MsgBox` ではなく、タイムアウト付きや非モーダルの独自ダイアログを制御したい
3. クリップボード経由で独自のカスタムフォーマットデータを高速にやり取りしたい
VBA標準の `Application.GetOpenFileName` は単一ファイルしか取れず、実用的なファイルインポートバッチには使い物にならない。また、Office VBA向けのコードをそのままCorelDRAWに持っていくと、64ビット環境（x64）でのポインタ長の違いからCorelDRAWごと一瞬でクラッシュ（落ちる）する。
プロダクション環境で耐えうる、安全かつ堅牢なAPI連携の設計思想を解説する。
—
64bit/32bit完全対応：API宣言の鉄則
Windows APIをCorelDRAW（特に近年の x64 バージョン）から呼び出す場合、最も恐るべきはメモリポインタのサイズ違いによるメモリーアクセス違反（致命的なクラッシュ）だ。
条件付きコンパイル定数（`#If VBA7`）を使用し、x64環境とx86環境を完全に分離して宣言しなければならない。これがプロとアマの分岐点だ。
以下のモジュールは、現代のCorelDRAW開発における「金字塔」となる基盤コードである。
Option Explicit
‘ =========================================================================
‘ 64bit / 32bit 完全対応 Windows API 宣言モジュール
‘ =========================================================================
If VBA7 Then
‘ 64ビット環境用宣言
Private Declare PtrSafe Function GetOpenFileName Lib “comdlg32.dll” Alias “GetOpenFileNameA” (pOpenfilename As OPENFILENAME_64) As Long
Private Declare PtrSafe Function CommDlgExtendedError Lib “comdlg32.dll” () As Long
‘ メモリコピー用
Private Declare PtrSafe Sub CopyMemory Lib “kernel32” Alias “RtlMoveMemory” (Destination As Any, Source As Any, ByVal Length As LongPtr)
‘ 64ビット版 OPENFILENAME 構造体
Private Type OPENFILENAME_64
lStructSize As Long
hwndOwner As LongPtr
hInstance As LongPtr
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustFilter As Long
nFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustData As LongPtr
lpfnHook As LongPtr
lpTemplateName As String
End Type
Else
‘ 32ビット環境用宣言（レガシー環境配慮）
Private Declare Function GetOpenFileName Lib “comdlg32.dll” Alias “GetOpenFileNameA” (pOpenfilename As OPENFILENAME_32) As Long
Private Declare Function CommDlgExtendedError Lib “comdlg32.dll” () As Long
Private Declare Sub CopyMemory Lib “kernel32” Alias “RtlMoveMemory” (Destination As Any, Source As Any, ByVal Length As Long)
Private Type OPENFILENAME_32
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustFilter As Long
nFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type
End If
‘ コモンダイアログのフラグ定数
Private Const OFN_ALLOWMULTISELECT As Long = &H200
Private Const OFN_CREATEPROMPT As Long = &H2000
Private Const OFN_EXPLORER As Long = &H80000
Private Const OFN_FILEMUSTEXIST As Long = &H1000
Private Const OFN_HIDEREADONLY As Long = &H4
—
実務で使える！マルチセレクト対応ファイルダイアログの実装
では、上記の基盤を使って、CorelDRAWから複数のCDRファイルや画像ファイルを一度に選択し、バッチ処理で読み込むためのプロシージャを構築しよう。
APIが返すファイルパスの文字列群は、「フォルダパス\0ファイル名1\0ファイル名2\0\0」というヌル文字区切りの特殊なフォーマットになっている。ここをVBAで正しくパース（分解）するのがエンジニアの腕の見せ所だ。
‘ =========================================================================
‘ 複数ファイル選択ダイアログを呼び出し、配列でパスを取得するメイン関数
‘ =========================================================================
Public Function ShowMultiSelectFileDialog(ByVal Title As String, ByVal Filter As String) As String()
Dim ofn64 As OPENFILENAME_64
Dim ret As Long
Dim filePathBuffer As String
Dim resultPaths() As String
‘ バッファ領域をあらかじめ確保（超重要：メモリ不足によるクラッシュを防ぐ）
filePathBuffer = String(8192, vbNullChar)
With ofn64
.lStructSize = LenB(ofn64)
.hwndOwner = Application.hWnd ‘ CorelDRAWのメインウィンドウハンドルを紐付け
.lpstrFilter = Replace(Filter, “|”, vbNullChar) & vbNullChar & vbNullChar
.lpstrFile = filePathBuffer
.nMaxFile = Len(filePathBuffer)
.lpstrTitle = Title
.flags = OFN_EXPLORER Or OFN_FILEMUSTEXIST Or OFN_HIDEREADONLY Or OFN_ALLOWMULTISELECT
End With
‘ API実行
ret = GetOpenFileName(ofn64)
If ret <> 0 Then
‘ 成功時のパース処理
resultPaths = ParseApiFilepath(ofn64.lpstrFile)
ShowMultiSelectFileDialog = resultPaths
Else
‘ キャンセルまたはエラー
Dim errCode As Long
errCode = CommDlgExtendedError()
If errCode <> 0 Then
MsgBox “ダイアログエラーが発生しました。エラーコード: ” & errCode, vbCritical, “API Error”
End If
ReDim resultPaths(0)
resultPaths(0) = “”
ShowMultiSelectFileDialog = resultPaths
End If
End Function
‘ 内部ヘルパー：ヌル文字区切りのパス配列をVBAのString配列に変換
Private Function ParseApiFilepath(ByVal rawBuffer As String) As String()
p_CleanNull rawBuffer
Dim parts() As String
parts = Split(rawBuffer, vbNullChar)
Dim files() As String
Dim i As Long, fileCount As Long
If UBound(parts) = 0 Then
‘ 単一ファイル選択の場合
ReDim files(0)
files(0) = parts(0)
Else
‘ マルチセレクトの場合（要素0はディレクトリ、1以降がファイル名）
Dim dirPath As String
dirPath = parts(0)
fileCount = 0
For i = 1 To UBound(parts)
If parts(i) <> “” Then fileCount = fileCount + 1
Next i
ReDim files(fileCount – 1)
Dim idx As Long
idx = 0
For i = 1 To UBound(parts)
If parts(i) <> “” Then
files(idx) = dirPath & IIf(Right(dirPath, 1) = “\”, “”, “\”) & parts(i)
idx = idx + 1
End If
Next i
End If
ParseApiFilepath = files
End Function
Private Sub p_CleanNull(ByRef str As String)
Dim p As Long
p = InStr(str, vbNullChar & vbNullChar)
If p > 0 Then str = Left(str, p – 1)
End Sub
使い方（インポート自動化スクリプト）
これを呼び出す側のコードは驚くほどシンプルになる。
Sub BatchImportFiles()
Dim selectedFiles() As String
Dim i As Long
‘ フィルタ形式: “説明|拡張子”
selectedFiles = ShowMultiSelectFileDialog(“処理するCDRファイルを選択してください”, “CorelDRAW Files (.cdr)|.cdr|All Files (.)|.”)
If selectedFiles(0) = “” Then
MsgBox “ファイルが選択されませんでした。”, vbInformation
Exit Sub
End If
‘ トランザクション処理の基本：画面描画を停止して爆速化
ActiveDocument.BeginCommandGroup “一括インポート処理”
Optimization = True
On Error GoTo ErrorHandler
For i = LBound(selectedFiles) To UBound(selectedFiles)
‘ ここでCorelDRAWのインポート処理を実行
Dim impLayer As Layer
Set impLayer = ActivePage.ActiveLayer
impLayer.Import selectedFiles(i)
‘ 必要に応じたレイアウト調整ロジックをここに記述
Next i
ErrorHandler:
Optimization = False
ActiveDocument.EndCommandGroup
Application.Refresh
If Err.Number <> 0 Then
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical
Else
MsgBox “すべてのファイルのインポートが完了しました。”, vbInformation
End If
End Sub
—
現場のエンジニアへ：保守性と堅牢性を担保するために
Windows APIを叩くコードを導入するにあたり、プロジェクトリーダーとして以下の鉄則をチームに徹底してほしい。
1. エラーハンドリングの徹底
APIが予期せぬメモリアドレスを参照すると、CorelDRAWは一言も遺言を残さずに強制終了する。開発時は必ずこまめにCDRファイルを保存（セーブ）する習慣をつけよ。
2. バッファサイズの設計
ファイルパスの取得において、選択数が膨大な場合（例：数百ファイル）、デフォルトのバッファ（8192バイト等）を超える可能性がある。要件に応じて動的にバッファサイズを拡張する設計にブラッシュアップせよ。
3. グローバル変数の汚染を防ぐ
APIの宣言は、特定の専用モジュール（例：`modWinAPI.bas`）にカプセル化し、ビジネスロジックと完全に分離すること。
—
チーフアーキテクトからの総括
VBA単体の機能に縛られているうちは、プログラマとしての成長はそこまでだ。しかし、今回紹介したように Windows APIを自らの手足として統御できるようになれば、CorelDRAWは単なるベクターグラフィックソフトから、あなた専用の強靭なCAD/DTPプラットフォームへと変貌する。
「できない理由」を探すのではなく、「どうすればOSの深部からハックできるか」を考えること。そのアプローチこそが、真に価値ある業務自動化システムを構築する唯一の道である。
さあ、エディターを開き、このコードをあなたのプロジェクトに組み込んで業務を圧倒的に加速させたまえ。
