こんにちは！ CorelDRAW VBAの世界へようこそ。
マクロの記録ボタンを押して「なんだか動いたけれど、中身がさっぱりわからない……」という段階を卒業し、いよいよ自分の手でデザインの自動化システムを組み上げたい中級者のあなたへ。
今回は、実務で最もリクエストが多い「Excelの受注マスターデータを読み込み、CorelDRAW上で商品パッケージの展開図とラベルデザインを動的に合成して一括保存（バッチ処理）する仕組み」を徹底解説します。
ここをクリアすれば、CorelDRAW VBAの本質と、外部データ（Excel）をハンドリングする技術が一気に自分のものになりますよ。しっかりついてきてくださいね！
—
1. なぜ「外部データ連携×バッチ保存」でつまずくのか？
実務の現場では、「Excelにある数千件の寸法データや商品名を使って、何パターンものパッケージ展開図を自動で作ってほしい」という要望が日常茶飯事です。
これを手作業でやっていると、寸法ミスやレイアウト崩れの人災が必ず起きます。だからこそVBAの出番なのですが、CorelDRAW VBA初学者がここで必ずハマる「3大トラップ」があります。
1. ExcelとCorelDRAWのオブジェクトライブラリの衝突（参照設定の罠）
2. 図形の寸法変更時における「基準点」の挙動不審
3. 連続処理によるメモリリークと、保存時の上書き・例外エラー
今回は、これらの地雷を踏み抜かないための「プロの設計図」をそのままコードとして授けます。
—
2. 全体アーキテクチャの設計
今回のシステムは、「Excel側にマクロを置き、そこからCorelDRAWをリモートコントロールする（COMオートメーション）」というアプローチを取ります。Excelが親、CorelDRAWが子という関係です。
処理の流れ
1. Excelの特定シート（例: `OrderMaster`）から、ループ処理で1行ずつデータを読み込む。
2. あらかじめ用意したCorelDRAWのパッケージテンプレート（`.cdr`）をバックグラウンドで開く。
3. 読み込んだデータ（幅・高さ・品名・品番）を、CorelDRAW上の特定のシェイプ（オブジェクト）に流し込む。
4. 指定のフォルダへ「品番_品名.cdr」として名前を付けて保存する。
5. 次の行へ……（全件終了するまで繰り返し）
—
3. 実装コード：Excel側からCorelDRAWを操る全貌
以下のコードを、Excelの標準モジュールに貼り付けて実行してください。
（※事前にCorelDRAWがインストールされ、ExcelのVBAエディタの「ツール ＞ 参照設定」から `Microsoft CorelDRAW XX Object Library` または類似のタイプライブラリにチェックが入っている状態、あるいは実行時バインディングに対応していることを前提としています。今回は堅牢な実行時バインディング（CreateObject）を採用します）
Sub ExportPackageBatch()
Dim cdrApp As Object
Dim cdrDoc As Object
Dim ws As Worksheet
Dim lastRow As Long
Dim i As Long
‘ パスやファイル名の定義（環境に合わせて書き換えてください）
Dim templatePath As String
Dim outputFolder As String
templatePath = “C:\Data\Package_Template.cdr”
outputFolder = “C:\Data\Output\”
‘ 1. Excel側のマスターデータシートを指定
Set ws = ThisWorkbook.Sheets(“OrderMaster”)
lastRow = ws.Cells(ws.Rows.Count, “A”).End(xlUp).Row
‘ 2. CorelDRAWのインスタンスを起動（バックグラウンド）
On Error Resume Next
Set cdrApp = CreateObject(“CorelDRAW.Application”)
On Error GoTo 0
If cdrApp Is Nothing Then
MsgBox “CorelDRAWの起動に失敗しました。インストールを確認してください。”, vbCritical
Exit Sub
End If
‘ 画面描画を停止して爆速化
cdrApp.Optimization = True
cdrApp.EventsEnabled = False
‘ 3. データの行数分だけループ処理
For i = 2 To lastRow
Dim productCode As String
Dim productName As String
Dim boxWidth As Double
Dim boxHeight As Double
‘ データの取得 (A列:品番, B列:品名, C列:幅(mm), D列:高さ(mm))
productCode = ws.Cells(i, 1).Value
productName = ws.Cells(i, 2).Value
boxWidth = ws.Cells(i, 3).Value
boxHeight = ws.Cells(i, 4).Value
‘ テンプレートを開く
Set cdrDoc = cdrApp.OpenDocument(templatePath)
‘ 4. CorelDRAW上のオブジェクトを操作して値を流し込む
‘ ※あらかじめCorelDRAW側で、テキストフレームに名前（Name）をつけておくのがコツです！
On Error GoTo ErrorHandler
‘ テキストの書き換え
cdrDoc.Pages(1).Layers(“TextLayer”).Shapes(“txtProductCode”).Text.Contents = productCode
cdrDoc.Pages(1).Layers(“TextLayer”).Shapes(“txtProductName”).Text.Contents = productName
‘ 展開図の寸法変更（長方形シェイプのサイズ変更例：単位はミリメートル換算）
‘ CorelDRAWの内部単位は「ポイント」であることが多いため、mmを換算するかドキュメント単位を合わせます
Dim sBox As Object
Set sBox = cdrDoc.Pages(1).Layers(“DesignLayer”).Shapes(“boxOutline”)
‘ 寸法を適用 (CorelDRAWの標準単位系に応じたプロパティ操作)
sBox.SetSize cdrApp.MillimetresToUnits(boxWidth), cdrApp.MillimetresToUnits(boxHeight)
‘ 5. 名前を付けて保存
Dim savePath As String
savePath = outputFolder & productCode & “_” & productName & “.cdr”
cdrDoc.SaveAs savePath
cdrDoc.Close
Next i
CleanUp:
‘ 描画設定を元に戻す
If Not cdrApp Is Nothing Then
cdrApp.Optimization = False
cdrApp.EventsEnabled = True
‘ 必要に応じて終了する場合は cdrApp.Quit
End If
MsgBox “すべてのパッケージデータの生成が完了しました！”, vbInformation
Exit Sub
ErrorHandler:
MsgBox “エラーが発生しました (行 ” & i & “): ” & Err.Description, vbCritical
If Not cdrDoc Is Nothing Then cdrDoc.Close False
Resume CleanUp
End Sub
—
4. チーフアーキテクトが教える、コードの急所と極意
上記のコードをただコピペするだけではなく、プロとして知っておくべき「CorelDRAW VBAの急所」を解説します。
① オブジェクトの「名前（Name）」で特定せよ
初心者は「左から○番目のシェイプ」といったインデックス番号でオブジェクトを指定しがちですが、これではレイアウトを少し変えただけでコードが全滅します。
CorelDRAW上でオブジェクトを選択し、オブジェクト・マネージャ（またはオブジェクト・ドック）から、シェイプに固有の名前（例: `txtProductCode`）を必ず命名してください。コード側からは `.Shapes(“オブジェクト名”)` で一発指定できます。これがメンテナンス性の高いシステムを作る鉄則です。
② `Optimization = True` でパフォーマンスを爆発的に上げる
CorelDRAWは、VBAから図形を1つ変更するたびに画面の再描画（プレビューの更新）走らせようとします。数件なら気になりませんが、数百件のバッチ処理ではこれが致命的なボトルネックになります。
処理の最初に `cdrApp.Optimization = True` を挟み、最後に `False` に戻すことで、画面描画をロックし、処理速度を何倍にも跳ね上げることができます。
③ 単位系（Units）の罠に気をつけろ
CorelDRAWはドキュメント設定によって「インチ」「ミリメートル」「ポイント」などの単位が混在します。VBAで数値を扱うときは、`cdrApp.MillimetresToUnits(値)` のような専用のメソッドを噛ませることで、どの単位系で作られたテンプレートであっても意図した正確な寸法（mm）を流し込むことが可能になります。
—
5. まとめ
今回は、Excelマスターデータを用いたCorelDRAWでのパッケージ展開図自動合成・一括保存の仕組みを解説しました。
- Excelを親、CorelDRAWを子としたCOM連携
- シェイプへの名前付けによる堅牢なオブジェクト操作
- `Optimization` によるパフォーマンスの最適化
この3つを押さえておけば、どんなに複雑なデザイン自動化案件が来ても怖くありません。「マクロの記録」の向こう側にある、自由でパワフルな自動化の世界をぜひ楽しんでください。
あなたのデザイン業務が、圧倒的にスマートになりますように。それでは、次のアーキテクチャ解説でお会いしましょう！
