【CorelDRAW VBA】数千枚の名刺を秒で生成！データ駆動型「自動展開」の極意
こんにちは。CorelDRAWの自動化の世界へようこそ。
「マクロの記録」ボタンを押して操作をなぞるだけの日々は、今日で卒業しましょう。
今回は、ビジネスの現場で最も需要があり、かつ最も過酷な「データ駆動型の大量生成」に挑みます。名刺1,000枚のレイアウトを手作業で行うのは、もはや苦行です。VBAを使えば、それはわずか数分、PCがコーヒーを淹れている間に終わる「タスク」に変わります。
本質を理解し、CorelDRAWのメモリを味方につける。そのための「プロの作法」を伝授します。
—
1. なぜ「力技」ではいけないのか？
多くの初心者は、ループの中で「ファイルを毎回開いて保存して閉じる」という処理をしがちです。これはCorelDRAWにとって最も重い負荷であり、メモリリークを招き、最悪の場合クラッシュします。
極限の知見：
- ドキュメントは「開いたまま」扱う: 一つのドキュメント内にページを動的に追加し、最後に個別のPDFとして書き出す。これが最も堅牢で高速です。
- Shape（オブジェクト）の参照を保持する: 毎回 `ActivePage.FindShape` を使うのは非効率。一度変数に格納し、それを使い回すのがエンジニアの鉄則です。
—
2. 実践コード：データ駆動型・名刺自動生成エンジン
今回は、配列（CSV読み込みを想定）から名刺データを生成し、ページを次々と追加していくサンプルコードを作成します。
Sub GenerateBusinessCards()
Dim doc As Document
Dim p As Page
Dim layer As Layer
Dim textShape As Shape
Dim i As Integer
‘ テスト用のデータ（実際にはCSVから読み込むことを推奨）
Dim names As Variant
names = Array(“山田 太郎”, “佐藤 花子”, “鈴木 一郎”)
‘ 新規ドキュメントの生成（高速化のため画面描画を停止させると尚良し）
Set doc = CreateDocument()
For i = LBound(names) To UBound(names)
‘ 1. ページの追加
Set p = doc.AddPage
‘ 2. テンプレートとなるオブジェクトの配置（ここでは簡易的に作成）
Set textShape = p.ActiveLayer.CreateArtisticText(1, 1, names(i))
textShape.Fill.UniformColor.RGBAssign 0, 0, 0
textShape.SizeWidth = 50
‘ 3. オブジェクトのライフサイクル管理
‘ 複雑なレイアウトの場合は、テンプレートファイルを読み込んで
‘ その中のグループをコピーして貼り付けるのがベストプラクティス
‘ 4. 必要に応じてPDFエクスポートを個別に行う
‘ Call ExportToPDF(doc, p, “Card_” & i & “.pdf”)
Next i
MsgBox “全” & (i – 1) & “枚の生成が完了しました！”, vbInformation
End Sub
—
3. 現場で必ずぶつかる「罠」と対策
① 画面描画のオーバーヘッド
大量のページ生成時、CorelDRAWは画面を更新しようとします。これが一番の足かせです。
`Application.Optimization = True` を処理の冒頭に入れ、最後に `False` に戻すだけで、処理速度は劇的に向上します。
② PDF出力の罠
`doc.Export` は非常に強力ですが、全てのページを一度に書き出すと巨大なファイルになります。「1ページずつ個別にPDF化したい」という場合は、`ExportFilter` を使い、フィルタのパラメータを厳密に制御してください。
③ オブジェクトの「ゴミ」
ループ内で生成した一時的な変数は、`Set 変数 = Nothing` で明示的に解放する癖をつけましょう。VBAのガーベジコレクションを待つ余裕は、大量生産の現場にはありません。
—
4. ステップアップのためのアドバイス
今回のコードをマスターしたら、次は以下のステップに挑戦してください。
1. CSV連携: `FileSystemObject` を使い、Excelから書き出したCSVをVBAでパースする。
2. エラーハンドリング: `On Error GoTo ErrorHandler` を必ず記述し、データが不正だった場合に処理が止まらないようにする。
3. テンプレート設計: ページ上に直接描画するのではなく、`.cdr` ファイルを「雛形」として読み込み、その中のテキストボックスの内容だけを差し替える手法（プレースホルダー方式）を学ぶ。
—
最後に：自動化は「愛」です
「こんな作業、ボタン一つで終わればいいのに」というあなたの直感は正しいです。
今回紹介したコードは、言わば「種」です。ここから、あなたの業務に合わせてカスタマイズしていってください。
CorelDRAWのVBAは、単なるスクリプト言語ではありません。あなたのクリエイティビティを拡張し、退屈な反復作業から解放してくれる「最強の相棒」です。
詰まったら、またいつでもここへ来てください。エンジニアとしての挑戦、心から応援しています。
—
執筆：CorelDRAWアーキテクチャ・ラボ
