【CorelDRAW VBA】新規ドキュメント作成の「作法」を極める：Documents.AddExでプロ仕様の環境を構築する
こんにちは。CorelDRAWの自動化の世界へようこそ。
「マクロの記録」ボタンを押して、生成されたコードの羅列に圧倒されていませんか？
実は、CorelDRAWの自動化において「ドキュメントをどう開くか」は、その後の作業効率と品質を左右する最も重要な儀式です。今回は、初心者の方が必ずぶつかる「ドキュメント新規作成」の壁を、`Documents.AddEx`メソッドを使って鮮やかに飛び越える方法を伝授します。
—
なぜ「マクロの記録」ではダメなのか？
CorelDRAWの「マクロの記録」は便利ですが、生成されるコードは「今、ユーザーが何をしたか」をなぞるだけです。例えば、新規作成時に毎回「CMYKカラープロファイルは何を使うか」「解像度は300dpiか」といった前提条件を記録してくれません。
業務の自動化とは、「誰が操作しても、常に同じ品質の土台を瞬時に用意すること」です。そのために、`AddEx`という強力なメソッドを使いこなす必要があります。
—
Documents.AddEx でドキュメントを制御する
`Documents.Add` ではなく、あえて `AddEx` を使う理由は、詳細なドキュメントプロパティを1行で指定できるからです。
まずは、コードの骨格を見てみましょう。
Sub CreateProfessionalDocument()
‘ ドキュメントを新規作成し、変数 doc に格納する
‘ これにより、作成したドキュメントを後から自在に操作できます
Dim doc As Document
‘ AddExメソッドの引数構成：
‘ (ColorMode, Width, Height, Resolution, Bleed, PageCount, PresetName)
Set doc = Application.Documents.AddEx( _
ColorMode:=cdrCMYKColor, _
Width:=210, _
Height:=297, _
Resolution:=300, _
Bleed:=0, _
PageCount:=1, _
PresetName:=”A4″ _
)
‘ ここで作成したドキュメントに対して処理を記述する
MsgBox “A4・CMYK・300dpiのプロ仕様ドキュメントが完成しました。”
End Sub
コード解説：ここが「プロ」のこだわり
- `Set doc = …`: 新規作成したドキュメントを「オブジェクト変数」に格納しています。これをしないと、複数のファイルを開いた際に「今どのドキュメントを操作しているのか」が曖昧になり、バグの温床になります。
- `cdrCMYKColor`: CorelDRAW特有の「定数」です。色空間を強制的に指定することで、RGBで作成して後から変換する際の色味のズレを未然に防ぎます。
- `PresetName`: ここに正確なプリセット名を入れることで、CorelDRAWに登録されているテンプレート設定を呼び出せます。
—
初心者が陥りやすい「3つの落とし穴」
コードを書く際、以下のポイントに注意してください。ここを抑えるだけで、エラーに悩む時間が劇的に減ります。
1. 単位の魔物:
CorelDRAWのVBAでは、デフォルトの単位設定（mmなのかinchなのか）が環境によって異なります。コード内で `doc.Unit = cdrMillimeter` のように明示的に単位を指定する癖をつけましょう。
2. カラープロファイルの設定忘れ:
`AddEx`だけでは、厳密なICCプロファイルまで指定しきれない場合があります。より高度な制御が必要な場合は、`doc.ColorProfile` プロパティを個別に設定するフェーズを追加してください。
3. オブジェクトの「生存確認」:
`Set doc = Nothing` を忘れないようにしましょう。巨大なドキュメントを扱う際、メモリ上にドキュメントの残骸が残ると、CorelDRAW全体の動作が重くなります。
—
次のステップ：自動化の先へ
今回学んだ `AddEx` は、あくまで「土台作り」です。ここから、以下のようなステップに発展させることができます。
- 自動レイヤー作成: ドキュメント作成と同時に、「ガイド用」「デザイン用」「版用」のレイヤーを自動で作成する。
- ガイドラインの配置: 裁ち落とし（ブリード）を考慮したトンボやガイドを数ミリ単位で正確に配置する。
自動化エンジニアとしての第一歩は、「当たり前の環境を、自動で正確に構築すること」から始まります。まずはこのコードをコピーして、ご自身の環境で実行してみてください。
「できた！」という小さな成功体験が、あなたの業務を劇的に変える大きな力になります。また次のステップで、さらに深いCorelDRAWの世界へご案内しましょう。応援しています！
