こんにちは！CorelDRAW VBAの世界へようこそ。
マクロの記録ボタンを押して操作を再現するだけの日々は、今日で終わりにしましょう。
今回は、初心者の方が「VBAってこんなにシンプルで強力なんだ！」と最初に感動する鉄板テーマ、「描画した基本図形をPDF形式でワンクリック出力するシンプルVBAマクロの作り方」を解説します。
ここをクリアすれば、CorelDRAW VBAの基本的なお作法や、オブジェクトを操る感覚がグッと身につきます。優しく、そして本質的な部分までしっかりと導いていきますので、リラックスしてついてきてくださいね。
—
1. なぜ「PDF出力」をVBAで自動化するのか？
普段、CorelDRAWでデザインを作成した後、PDF形式でクライアントに送ったり、印刷用に保存したりする作業を何回行っていますか？
1. 「ファイル」メニューを開く
2. 「PDFとして保存」を選ぶ
3. 保存先とファイル名を確認して「保存」を押す
4. PDF設定画面で「OK」を押す
……たったこれだけの作業ですが、1日に何十回も繰り返すと、地味に時間を奪われます。そして何より、「うっかり保存し忘れて古いデータを送ってしまった」というヒューマンエラーの原因にもなります。
これをVBAの力で「ワンクリック（またはショートカットキー一発）」にできたらどうでしょう？ 作業効率が爆発的に上がるだけでなく、手作業のストレスから解放されます。
—
2. 開発の舞台裏：使うメソッドは「PublishToPDF」
CorelDRAW VBAでPDFを出力するとき、主役になるのは `ActiveDocument.PublishToPDF` というメソッドです。
難しそうに聞こえるかもしれませんが、要するに「今開いているアクティブなドキュメントを、指定したファイル名でPDFにして吐き出しなさい」というCorelDRAWへの命令（メソッド）です。
まずは、今回作成するコードの全体像を見てみてください。
ワンクリックPDF出力のシンプルVBAコード
Sub QuickExportToPDF()
‘ 1. エラーハンドリングの準備（ドキュメントが開いていない時の対策）
On Error GoTo ErrorHandler
‘ 2. アクティブなドキュメントが存在するかチェック
If ActiveDocument Is Nothing Then
MsgBox “PDF化するドキュメントが開かれていません！”, vbCritical, “エラー”
Exit Sub
End If
‘ 3. 保存先のファイルパスを自動生成する（元のCDRと同じ場所＆同じ名前）
Dim cdrPath As String
Dim pdfPath As String
Dim dotPosition As Long
cdrPath = ActiveDocument.FullNa’ ドキュメントのフルパスを取得
If cdrPath = “” Then
‘ まだ一度も保存されていない新規書類の場合
MsgBox “一度、CDRファイルとして保存してから実行してください。”, vbExclamation, “未保存のドキュメント”
Exit Sub
End If
‘ 拡張子（.cdr）を「.pdf」に置き換える巧妙なテクニック
dotPosition = InStrRev(cdrPath, “.”)
pdfPath = Left(cdrPath, dotPosition – 1) & “.pdf”
‘ 4. 一番シンプルにPDFとしてパブリッシュ（出力）する
ActiveDocument.PublishToPDF pdfPath
‘ 5. 成功メッセージの表示
MsgBox “PDFの書き出しが完了しました！” & vbCrLf & pdfPath, vbInformation, “出力成功”
Exit Sub
ErrorHandler:
‘ 万が一エラーが起きた場合の優しさ
MsgBox “予期せぬエラーが発生しました: ” & Err.Description, vbCritical, “システムエラー”
End Sub
—
3. コードの注目ポイントをプロが解説！
このコードには、実務で絶対に役立つ「プロの知見」がさりげなく詰め込まれています。初心者の方に向けて、重要なポイントを3つに分けて紐解いていきましょう。
① 「今開いているファイル名」を賢く利用する
コード中の `ActiveDocument.FullName` は、現在作業しているファイルがパソコンのどこに、どんな名前で保存されているかを完全に取得するプロパティです。
わざわざ「C:\Users\…\Desktop\」などと固定のパスを書かなくても、元のCDRファイルと同じ場所に、自動的に同じ名前のPDFを作ることができます。これぞスマートな自動化の第一歩です。
② 文字列を操作するテクニック (`InStrRev` と `Left`)
`cdrPath` から「.cdr」という拡張子を剥ぎ取り、「.pdf」に付け替えるために、VBAの文字列関数を使っています。
- `InStrRev(cdrPath, “.”)` : ファイルパスの後ろから数えて、拡張子の「.」がどこにあるかを探します。
- `Left(…)` : その「.」の直前までの文字列を切り出します。
そこに `& “.pdf”` をくっつけることで、完璧な保存先パス（`pdfPath`）が完成するわけです。
③ 余計な設定画面を出さない美しさ
`PublishToPDF` メソッドは、実は後ろに細かな設定（PDFのバージョンや解像度など）を記述しない場合、「直前にCorelDRAWで使われたPDF書き出し設定（またはデフォルト設定）」をそのままサイレントに適用してくれます。
これにより、余計なダイアログボックスが出現せず、「ワンクリックで即座に書き終わる」という最高のユーザー体験が生まれます。
—
4. 陥りやすい罠と「初心者がハマるポイント」
ここで、実務でよくあるトラブルと、その回避策についても触れておきましょう。
罠1: 「まだ一度も保存していない新規ドキュメント」で実行してしまう
名前のついていないドキュメント（「グラフィック1」など）に対して `FullName` を取得しようとすると、パスが空っぽになってしまい、エラーの原因になります。
今回のコードでは、`If cdrPath = “” Then` というガード（条件分岐）を用意しているため、「先に保存してくださいね」と優しくエスコートしてくれます。
罠2: マクロの保存場所を間違える
書いたVBAコードは、CorelDRAWの「GlobalMacros」や、今作業しているドキュメント内に保存します。
おすすめは、VBAエディタ（`Alt + F11` で開けます）の `GlobalMacros` (GlobalMacroStorage) にコードを置いておくことです。そうすれば、どのデザインファイルを開いていても、いつでもこのPDF出力マクロを呼び出せるようになります。
—
5. さあ、VBAエディタを開いて試してみよう！
手順はとても簡単です。
1. CorelDRAWを開き、`Alt + F11` キーを押してVBAの開発画面（VBAIDE）を起動します。
2. メニューの「挿入」＞「標準モジュール」をクリックします。
3. 真っ白な画面が出てきたら、先ほどのコードをまるごと貼り付けます。
4. 適当な基本図形（四角や丸）を描いたCDRファイルを一度保存し、マクロを実行（`F5`キー、またはVBA画面の再生ボタン）してみてください。
数秒後、ファイルと同じ場所に、美しく書き出されたPDFファイルがポンと生成されているはずです。
—
おわりに
お疲れ様でした！今回は、CorelDRAW VBAを使った実用的なPDF出力マクロの作り方を解説しました。
「ボタン一つで仕事のルーティンが終わる」という感覚を一度味わうと、VBAなしでの作業には戻れなくなります。ここをクリアできれば、図形の自動生成、色の一括置換、レイアウトの整列など、さらに高度な自動化の世界へ進む準備はバッチリです。
ぜひ、あなたの毎日のデザインワークにこのマクロを取り入れて、効率的でスマートなCorelDRAWライフを満喫してくださいね！
