CorelDRAW VBAを掌握せよ：クラッシュに負けない「自動バックアップ・世代管理」の極意
こんにちは。CorelDRAWの深淵を歩む皆さん、今日もパスの調整とレイヤー管理に追われていますか？
CorelDRAWは素晴らしいツールですが、複雑なベクターデータを扱っていると、どうしても「あの一瞬のフリーズ」が心を冷やします。標準の自動バックアップ機能もありますが、プロとして現場を生き抜くなら、「自分の手で、確実な安全地帯を作る」スキルが必要です。
今日は、マクロの記録から一歩踏み出し、VBAで「自分専用のバックアップ・システム」を構築する方法を伝授します。ここをクリアすれば、あなたはもう「操作の記録係」ではなく「システムの構築者」です。
—
なぜ「標準機能」だけでは足りないのか？
標準の自動バックアップは便利ですが、「上書き」が繰り返されることが多く、いざという時に「データが壊れたタイミング」のファイルで上書きされてしまうリスクがあります。
我々が目指すのは、「作業時間ごとに別ファイルとして保存し、世代を管理する」こと。つまり、過去数時間分の履歴を確保しておく「タイムマシン」のような仕組みです。
—
現場で即戦力となる「バックアップ・マクロ」の全貌
まずは、現在開いているドキュメントを、指定したフォルダへタイムスタンプ付きでコピーするコードを見てみましょう。
Sub SmartBackup()
‘ CorelDRAWのドキュメントオブジェクトを定義
Dim doc As Document
Dim backupPath As String
Dim fileName As String
Dim timestamp As String
‘ 現在アクティブなドキュメントを取得
Set doc = ActiveDocument
‘ 保存されていない新規ファイルの場合は処理を中断
If doc Is Nothing Then Exit Sub
If doc.FullFileName = “” Then
MsgBox “まずは名前を付けて一度保存してください。”
Exit Sub
End If
‘ バックアップ先のフォルダ（環境に合わせて変更してください）
backupPath = “C:\CorelBackup\”
‘ フォルダが存在しない場合は作成する（地味に重要！）
If Dir(backupPath, vbDirectory) = “” Then MkDir backupPath
‘ 現在時刻をファイル名に組み込む（YYYYMMDD_HHMMSS形式）
timestamp = Format(Now, “yyyymmdd_hhmmss”)
‘ ファイル名から拡張子を除いたベース名を取得し、保存パスを生成
fileName = Left(doc.FileName, InStrRev(doc.FileName, “.”) – 1)
‘ 別名で保存（SaveAsではなくコピーを推奨）
‘ ※SaveAsは作業中のファイルパスを書き換えてしまうため注意
doc.SaveAs backupPath & fileName & “_” & timestamp & “.cdr”
‘ 成功したらステータスバーに通知
Application.Statusbar = “バックアップ完了: ” & timestamp
End Sub
このコードの「極意」
1. `ActiveDocument`の検証: 開いていないドキュメントを操作しようとするとVBAは即座にエラーを吐きます。`If doc Is Nothing`でそれを防ぐ。これぞ堅牢性の第一歩です。
2. `Dir`関数によるチェック: フォルダがなければ`MkDir`で自動作成する。ユーザーに「フォルダを作ってください」と言わせないのがプロのコードです。
3. `SaveAs`の注意点: `SaveAs`を実行すると、現在開いているファイル自体が「バックアップ先」に切り替わってしまいます。実運用では、一度現在の状態を保持し、メイン作業に戻る工夫が必要になることも覚えておいてください。
—
世代管理を自動化するための「一歩先」の話
上記のコードは単発実行用ですが、これを「一定時間ごとに勝手に動かす」にはどうすればいいでしょうか？
VBA単体では、バックグラウンドでのタイマー実行（Windowsのタスクスケジューラのような挙動）は少しハードルが高いです。しかし、「保存するたびに自動でバックアップを作る」イベントハンドラを組み込むのが、最も簡単で強力な解決策です。
CorelDRAW VBAの`GlobalMacros`内で以下の記述を試してみてください。
‘ GlobalMacros内のDocumentSaveイベント
Private Sub Document_Save(ByVal Doc As Document)
‘ 上書き保存のたびにバックアップを走らせる
Call SmartBackup
End Sub
※注意：これを実装すると、保存するたびに処理が走るため、巨大なファイルの場合はフリーズの原因になります。作業の規模に応じて実行タイミングを調整するのが「エンジニアの判断」です。
—
初学者が陥りやすいエラーと回避策
1. 「ファイルが見つかりません」エラー:
- 原因の多くは「保存されていない新規ファイル」。`doc.FullFileName`が空かどうかを必ずチェックする癖をつけてください。
2. 「書き込み禁止」エラー:
- ネットワークドライブに保存しようとしていませんか？ `Dir`関数でフォルダへのアクセス権を確認する処理を挟むと、エラーを未然に防げます。
3. ファイル名に禁則文字:
- ファイル名に `/` や `:` を含めるとエラーになります。`Format(Now, “yyyymmdd_hhmmss”)`のように、ファイル名に使える文字だけでタイムスタンプを作るのが安全です。
—
最後に：自動化は「保険」ではなく「武器」
自動バックアップを実装することは、ただの作業のルーチン化ではありません。「いつでも前の状態に戻れる」という心理的余裕が、あなたのデザインの自由度を広げ、より大胆な挑戦を可能にします。
CorelDRAW VBAは、使いこなせばあなたの右腕となってくれる強力なツールです。まずはこのコードをコピペして、自分の環境で動かしてみてください。そして、もっと便利に、もっと速くするための改造を加えていく。その繰り返しが、あなたを「ただのユーザー」から「真のクリエイティブ・エンジニア」へと変えてくれるはずです。
もし分からないことがあれば、またいつでも聞いてください。あなたの自動化の旅を、私はこれからも全力でサポートします。
