こんにちは！CorelDRAW VBAの世界へようこそ。
マクロの記録ボタンを押して「動いたはいいけれど、中身がスパゲッティ状態で手を加えられない……」と悩んでいませんか？
今回は、Excelの表データを読み込み、CorelDRAW上で名刺やショップカードを数秒で何十枚も自動生成する「データ差し込みレイアウト」の極意を伝授します。ここをクリアすれば、あなたのCorelDRAW VBAのスキルは一気に中級者の領域へ到達します。
手作業でのコピペ地獄から抜け出し、スマートな自動化の世界を一緒に見ていきましょう！
—
なぜ「CorelDRAW × Excel」の自動化なのか？
DTPの現場では、「Excelで支給された社員リストや店舗情報を元に、100人分の名刺を作る」といった作業が頻繁に発生します。これを手動でやると、名前の貼り間違えやフォントの収まり具合の確認など、膨大な時間がかかりますよね。
CorelDRAWには「印刷差し込み（データ統合）」機能もありますが、「裏表の複雑なレイアウト」「特定の条件に応じたデザインの動的変更」「画像パスの読み込みと配置」などをやろうとすると、専用のマクロを組むのが最も確実で自由度が高くなります。
今回は、Excelからデータを1行ずつ読み込み、CorelDRAWのテンプレートに流し込んで、1つのファイルにまとめていくプロ仕様のコードを解説します。
—
開発の全体像と心構え
まずは、全体の流れを頭に叩き込みましょう。自動化の基本は「台本（コード）通りに正確に作業させること」です。
1. Excelファイルへの接続: VBAからExcelのワークシートを開き、データを取得する準備をします。
2. テンプレートの定義: 名刺サイズ（例: 91mm × 55mm）のドキュメントを準備し、テキストフレームに名前をつけておきます。
3. ループ処理（差し込み）: Excelのデータを1行目から最終行までループさせ、テキストや画像枠に流し込みます。
4. ページの追加と保存: 1人分のレイアウトが終わったらページを追加し、全員分が終わったらPDF等で保存します。
—
実践！名刺自動レイアウトのVBAコード
それでは、実務でそのまま使えるサンプルコードを公開します。
CorelDRAWのVBAエディタ（`Alt + F11`）を開き、標準モジュールに貼り付けてください。
(※事前準備として、同じフォルダ内に `data.xlsx` というExcelファイルを用意し、1行目に「氏名」「役職」「メール」という見出し、2行目以降にデータを入力しておいてください)
Sub GenerateBusinessCards()
Dim doc As Document
Dim sLayer As Layer
Dim excelApp As Object
Dim excelWorkbook As Object
Dim excelSheet As Object
Dim lastRow As Long
Dim i As Long
‘ 1. 描画の画面更新を停止して処理速度を爆発的に上げる（超重要テクニック）
ActiveDocument.BeginCommandGroup
Optimization = True
EventsEnabled = False
On Error GoTo ErrorHandler
‘ 2. アクティブなドキュメントを対象にする（新規作成済み、またはテンプレートが開いている前提）
If Documents.Count = 0 Then
MsgBox “名刺のテンプレートを開いてから実行してください。”, vbCritical
Exit Sub
End If
Set doc = ActiveDocument
‘ 3. 外部のExcelファイルをバックグラウンドで起動
Set excelApp = CreateObject(“Excel.Application”)
excelApp.Visible = False
‘ ※注意: コードと同じフォルダに “data.xlsx” がある想定のパス
Dim excelPath As String
excelPath = doc.FilePath & “data.xlsx”
If Dir(excelPath) = “” Then
MsgBox “指定されたパスに data.xlsx が見つかりません: ” & excelPath, vbCritical
GoTo CleanUp
End If
Set excelWorkbook = excelApp.Workbooks.Open(excelPath)
Set excelSheet = excelWorkbook.Sheets(1)
‘ 4. Excelのデータ最終行を取得
lastRow = excelSheet.Cells(excelSheet.Rows.Count, “A”).End(1).Row
‘ 5. 2行目から最終行までループ（1行目はヘッダー）
For i = 2 To lastRow
‘ 1人分のデータを取得
Dim shimei As String
Dim yakushoku As String
Dim mail As String
shimei = excelSheet.Cells(i, 1).Value ק ‘ A列: 氏名
yakushoku = excelSheet.Cells(i, 2).Value ‘ B列: 役職
mail = excelSheet.Cells(i, 3).Value ‘ C列: メール
‘ 最初のデータ以外はページを追加
If i > 2 Then
doc.AddPages 1
End If
‘ 現在のページをアクティブに
doc.Pages(i – 1).Activate
‘ —————————————————-
‘ テキストフレームへの流し込み
‘ (※CorelDRAW上であらかじめテキストシェイプに名前をつけておく)
‘ —————————————————-
On Error Resume Next
doc.Pages(i – 1).Layers(“Layer 1”).Shapes(“TxtShimei”).Text.Story = shimei
doc.Pages(i – 1).Layers(“Layer 1”).Shapes(“TxtYakushoku”).Text.Story = yakushoku
doc.Pages(i – 1).Layers(“Layer 1”).Shapes(“TxtMail”).Text.Story = mail
On Error GoTo ErrorHandler
Next i
CleanUp:
‘ 6. 開いたExcelを確実に閉じてメモリ解放
If Not excelWorkbook Is Nothing Then excelWorkbook.Close False
If Not excelApp Is Nothing Then excelApp.Quit
Set excelSheet = Nothing
Set excelWorkbook = Nothing
Set excelApp = Nothing
‘ 7. 画面描画の復元
Optimization = False
EventsEnabled = True
ActiveDocument.EndCommandGroup
MsgBox (lastRow – 1) & “件の名刺データの生成が完了しました！”, vbInformation
Exit Sub
ErrorHandler:
MsgBox “エラーが発生しました: ” & Err.Description, vbCritical
Resume CleanUp
End Sub
—
コードの深掘り：プロが教える3つの重要ポイント
ここからは、コードの裏側にある「CorelDRAW VBAの生命線」とも言える重要な概念を解説します。
① 画面更新の停止 (`Optimization = True`)
大量のオブジェクトを生成・操作するとき、画面が毎回再描画されると処理速度が何倍にも低下し、フリーズしたようになります。
`Optimization = True` と `EventsEnabled = False` をセットで記述し、処理が終わったら必ず元に戻す（`False` / `True`）のが、プロのエンジニアの鉄則です。これにより、数百ページのドキュメント生成も一瞬で終わるようになります。
② オブジェクト名（シェイプ名）でターゲットを特定する
コード内にある `”TxtShimei”` や `”TxtYakushoku”` は、CorelDRAWの「オブジェクトマネージャ」 Dockerで各テキストシェイプに付けた名前です。
オブジェクトの「作成順（ID）」に頼ると、レイアウトを少し変更しただけでコードが狂い、全く違う場所に文字が入る事故が起きます。「差し込みたいテキストフレームには、必ず分かりやすい名前をつけておく」。これがメンテナンス性を爆発的に高めるコツです。
③ 外部アプリケーション（Excel）のクリーンアップ
`CreateObject(“Excel.Application”)` でバックグラウンド起動したExcelは、VBAが終了してもメモリ上にプロセスとして残り続ける（ゾンビプロセス化する）ことがあります。
必ず `CleanUp` ラベルを用意し、エラーが起きようとも確実に `Close` と `Quit` を実行してメモリを解放する構造にしましょう。
—
陥りがちな罠とエラー回避の知恵
初心者がこのテーマに挑む際、9割の人が以下の壁にぶつかります。
- エラー：「オブジェクトが見つかりません」
- 原因: 指定した名前のシェイプが存在しない、または名前が全角/半角、スペースなどで微妙に違っている。
- 対策: オブジェクトマネージャで名前を完全一致させ、レイヤー名（通常は “Layer 1″）も確認してください。
- 文字があふれてレイアウトが崩れる
- 原因: 氏名や住所の文字数が長すぎて、テキストフレームからはみ出してしまう。
- 対策: あらかじめCorelDRAW側で、テキストフレームのプロパティを「フレーム枠にテキストを合わせる（自動縮小）」設定にしておくか、VBA側でフォントサイズを動的に変更するロジックを組み込みます。
—
まとめ：ここをクリアすれば、基本はバッチリ！
お疲れ様でした！ExcelとCorelDRAWを連携させ、データを流し込んでページを量産する仕組みの全貌が見えてきたのではないでしょうか。
- 外部データ（Excel）をオブジェクト指向で安全に読み込む方法
- 画面描画を停止してパフォーマンスを極限まで高める作法
- オブジェクト名で確実にターゲットを操作する技術
ここをクリアしたあなたなら、名刺だけでなく、値札の自動生成、賞状のバッチ作成、カタログのベースレイアウトなど、あらゆるDTP作業の自動化を自分の手でデザインできるようになります。
ぜひ、手元のデータで試して、自動化の爽快感を味わってくださいね。次回の応用編もお楽しみに！
