こんにちは！CorelDRAW VBAの世界へようこそ。
マクロの記録ボタンを押して「なんだか動いたけれど、中身を見たら呪文のようで手が出せない……」そんな風に悩んでいませんか？
今回は、実務の現場で最も需要が高く、そしてVBAの真価が発揮される「デザインテンプレートからバリエーション違いのCDRファイルを自動生成する量産システム」の作り方を解説します。
ここをクリアすれば、CorelDRAW VBAの基本構造やオブジェクトの操り方はバッチリです。優しく、そして本質的なアプローチで一緒にマスターしていきましょう！
—
なぜ「自動量産システム」でVBAを学ぶべきなのか？
例えば、イベントの名札、数千種類ある商品のパッケージラベル、あるいは店舗ごとのポスター制作など。同じデザインのレイアウトで、文字や価格だけが違うデータを何十個、何百個も作らなければならない――。
これを人間の手でやるとどうなるでしょう？
1. テンプレートを開く
2. 文字を書き換える
3. 「名前を付けて保存」する
4. 1に戻る
想像しただけで気が遠くなりますし、コピペミスや保存忘れといったヒューマンエラーの温床になります。これをVBAに任せれば、コーヒーを飲んでいる間に一瞬で終わります。
この課題を攻略することで、「外部データ（CSV）の読み込み」「特定シェイプの正確な特定と置換」「ドキュメントのライフサイクル管理（開く・保存・閉じる）」という、実務自動化の黄金パターンのすべてが身につきます。
—
押さえておすべき CorelDRAW VBA の基本概念
まず、CorelDRAWをVBAで動かす上での最も重要なルールを一つだけ伝授します。
> 「CorelDRAWのVBAは、今アクティブな『ページ』と『選択（Selection）』に依存してはならない」
マクロの記録は「選んだものをこうする」というコードを出力しますが、プロが書く自動化コードは、名前（Name）やIDでオブジェクトをピンポイントで指名します。これが安定稼働する量産システムの絶対条件です。
—
実装ステップ：CSVデータ連動・自動量産システム
今回は、次のようなシチュエーションを想定します。
1. テンプレートファイル (`template.cdr`) がある。
2. テンプレート内には、書き換えたい文字用のテキストフレーム（プレースホルダー）があり、それぞれ `txtTitle` や `txtPrice` という名前（オブジェクト名）が付けられている。
3. CSVファイル (`data.csv`) に、生成したい「タイトル」と「価格」のリストが入っている。
4. マクロを実行すると、CSVの行数分だけCDRファイルが自動生成される。
1. サンプルCSVの構造 (`C:\Data\data.csv`)
商品A,1200円
商品B,2500円
商品C,3800円
2. 量産エンジンのVBAコード
CorelDRAWのVBAエディタ（`Alt + F11`）を開き、標準モジュールに以下のコードを貼り付けてください。実務でそのまま使えるよう、エラーハンドリングと丁寧なコメントを入れています。
Sub GenerateVariations()
‘ — 変数の宣言 —
Dim csvPath As String
Dim templatePath As String
Dim outputFolder As String
Dim fileNum As Integer
Dim lineData As String
Dim fields() As String
Dim doc As Document
Dim shTitle As Shape
Dim shPrice As Shape
‘ — パス設定（環境に合わせて変更してください） —
csvPath = “C:\Data\data.csv”
templatePath = “C:\Data\template.cdr”
outputFolder = “C:\Data\Output\”
‘ CSVファイルの存在チェック
If Dir(csvPath) = “” Then
MsgBox “CSVファイルが見つかりません: ” & csvPath, vbCritical, “エラー”
Exit Sub
End If
‘ — CSVファイルの読み込み開始 —
fileNum = FreeFile
Open csvPath For Input As #fileNum
‘ 1行ずつループ処理
Do While Not EOF(fileNum)
Line Input #fileNum, lineData
‘ カンマでデータを分割 (タイトル, 価格)
fields = Split(lineData, “,”)
If UBound(fields) >= 1 Then
Dim prodTitle As String
Dim prodPrice As String
prodTitle = fields(0)
prodPrice = fields(1)
‘ 1. テンプレートを開く
Set doc = OpenDocument(templatePath)
‘ 2. オブジェクト名でターゲットのテキストシェイプを特定する
‘ ※あらかじめCorelDRAW側でシェイプ名を設定しておいてください
On Error Resume Next
Set shTitle = doc.Pages(1).Shapes.FindShape(“txtTitle”)
Set shPrice = doc.Pages(1).Shapes.FindShape(“txtPrice”)
On Error GoTo 0
‘ シェイプが見つかった場合のみ置換を実行
If Not shTitle Is Nothing And Not shPrice Is Nothing Then
‘ テキスト内容を書き換え
shTitle.Text.Story.Contents = prodTitle
shPrice.Text.Story.Contents = prodPrice
‘ 3. ファイル名を変えて保存
Dim savePath As String
savePath = outputFolder & prodTitle & “.cdr”
‘ ドキュメントを別名で保存
doc.SaveAs savePath
Else
MsgBox “テンプレート内に指定された名前のシェイプが見つかりませんでした。”, vbExclamation
End If
‘ 4. ドキュメントを閉じる（メモリ解放の極意！）
doc.Close
‘ 変数のリセット
Set shTitle = Nothing
Set shPrice = Nothing
End If
Loop
‘ CSVファイルを閉じる
Close #fileNum
MsgBox “すべてのバリエーションファイルの生成が完了しました！”, vbInformation, “完了”
End Sub
—
コードの重要ポイントと「陥りやすい罠」
初心者から中級者へステップアップするために、上記のコードで絶対に押さえておきたいポイントを解説します。
① オブジェクト名（名前マネージャ）の活用
コード中の `doc.Pages(1).Shapes.FindShape(“txtTitle”)` は、CorelDRAWの「オブジェクトマネージャ（オブジェクトドック）」で名付けられた名前を検索しています。
レイヤー上でテキストボックスを選択し、プロパティやオブジェクトドックから名前を `txtTitle` に変更しておくことで、レイアウト上の位置が変わってもプログラムが迷子になりません。
② メモリ管理と `doc.Close` の重要性
大量のファイルを処理する自動化で最も怖いのが「メモリリーク（メモリ不足によるフリーズ）」です。
ループの中で `OpenDocument` を使うたびに、CorelDRAWはメモリ上にドキュメントを展開します。処理が終わったら必ず `doc.Close` で閉じ、ループの最後には `Set` 変数を `Nothing` にクリアする。この作法を守るだけで、何千枚の処理も安定して走り切ります。
③ エラーハンドリングの優しさ
`On Error Resume Next` は、もしテンプレート側からうっかり名前のシェイプが消されてしまったときに、マクロが強制終了して全体の処理が止まるのを防ぎます。「止まらないシステム」を作ることは、実務エンジニアにとって非常に重要なスキルです。
—
まとめ：ここをクリアすれば、もう怖くない！
今回ご紹介した「CSV読み込み ＋ テンプレート置換 ＋ 別名保存」の仕組みは、名刺作成、パッケージ展開図の流し込み、多言語展開など、あらゆるデザイン自動化のベースになります。
「ボタン一つで仕事が終わる爽快感」をぜひご自身の開発環境で味わってみてください。
あなたのCorelDRAWライフが、よりクリエイティブでストレスフリーなものになることを応援しています。それでは、次のステップへ進みましょう！
