やあ、 CorelDRAW VBAの世界へようこそ！
普段、CorelDRAWでデザインを制作しながら「この保存作業、もっと自動化できないかな？」「マクロの記録から一歩進んで、自分の手でコードを書いてみたい！」と思っていませんか？
今回は、複数人でデザイン制作を進めるときに必ずぶつかる壁——「クラウドストレージ（OneDrive / SharePoint）上のファイル競合（コンフリクト）とデータ破損」を、CorelDRAW VBAの力でスマートに解決する方法を解説します。
一見「上級プロ向け」に思えるクラウドAPI連携や排他制御ですが、仕組みを紐解けば「安全な保存のルーティンをプログラムにやらせるだけ」です。「ここをクリアすれば、CorelDRAW VBAの基本はバッチリですよ！」と言えるレベルまで、優しく丁寧にお伝えしていきますね。
—
1. なぜクラウド上のCDRファイルは「上書き事故」が起きるのか？
まずは問題の背景を整理しておきましょう。
オフィスやチームでOneDriveやSharePointなどのクラウド同期フォルダを使い、複数人で同じCDR（CorelDRAW）ファイルを開いて作業した経験はありませんか？
このとき、以下のようなトラブルがよく発生します。
【よくあるトラブル】
Aさん：デザインを変更して保存 ───┐
├─► クラウド上で競合！「ファイル名_コピー.cdr」が発生
Bさん：ほぼ同時に保存 ───┘ 最悪の場合、ファイルが破損して開けなくなる…
原因は「同期のタイミング」と「CorelDRAWの保存構造」
CorelDRAWのCDRファイルは、内部的にはグラフィック情報や埋め込み画像をZIP形式で圧縮した構造（パッケージ）になっています。保存処理中、CorelDRAWはファイルを一度分解して書き込みを行います。
この書き込みの最中にOneDriveなどの同期ソフトが「お、ファイルが更新されたな！」と検知してクラウドへアップロードを開始してしまうと、書き込み処理とアップロード処理がぶつかり（レースコンディション）、ファイルが壊れてしまうのです。
—
2. コンフリクトを防ぐ「3つの鉄則」
この問題をVBAで解決するために、プロの現場では次の3つの鉄則を守った自動化パイプラインを構築します。
[ 1. ロック確認 ] ──► [ 2. ローカル一時保存 ] ──► [ 3. バージョン付き同期 ]
誰かが作業中なら 安全なPCローカル領域で 日付・バージョン名を付与して
警告して保存をストップ 完璧に保存完了させる クラウド同期フォルダへ転送
1. 排他ロック（Lock Check）：
誰かが作業中であることを示す「目印（.lockファイル）」を作成し、二重編集を防ぐ。
2. ローカル・ステージング保存（Staging）：
直接クラウド同期フォルダに書き込まず、PC内部の安全な「一時フォルダ（Temp）」に保存する。
3. バージョン管理付き同期（Version Sync）：
保存完了後、ファイル名に「日付_バージョン」を付与してクラウド同期フォルダへ安全にコピーする。
この流れをVBAに組み込むことで、絶対に失敗しない自動保存システムが完成します。
—
3. 実践！クラウド直結・排他制御＆自動同期VBAコード
それでは、実際のVBAコードを見ていきましょう。
CorelDRAWのVBAエディタ（`Alt + F11`）を開き、新しい標準モジュールを追加して以下のコードを貼り付けてみてください。
コピペで使える完全版コード
Option Explicit
‘ ==============================================================================
‘ CorelDRAW クラウド連携・安全保存パイプライン
‘ 目的: OneDrive/SharePoint環境下でのコンフリクト・ファイル破損の防止
‘ ==============================================================================
Public Sub SafeSaveToCloud()
Dim doc As Document
Set doc = ActiveDocument
‘ 1. アクティブなドキュメントが存在するかチェック
If doc Is Nothing Then
MsgBox “開かれているドキュメントがありません。”, vbExclamation, “エラー”
Exit Sub
End Sub
‘ ————————————————————————–
‘ 設定項目（ご自身の環境に合わせてパスを変更してください）
‘ ————————————————————————–
Dim cloudFolderPath As String
Dim localTempPath As String
Dim fileNameBase As String
‘ クラウド同期フォルダのパス
cloudFolderPath = “C:\Users\” & CreateObject(“WScript.Network”).UserName & “\OneDrive – Company\ProjectA\”
‘ ローカルの作業用一時領域（Tempフォルダ）
localTempPath = Environ(“TEMP”) & “\CorelDRAW_Staging\”
‘ ファイルの基本名
fileNameBase = “Main_Design”
‘ フォルダが存在しない場合は自動作成
CreateDirectoryIfNotExist localTempPath
‘ ————————————————————————–
‘ ステップ 1: 排他ロック（.lock）の確認
‘ ————————————————————————–
Dim lockFilePath As String
lockFilePath = cloudFolderPath & fileNameBase & “.lock”
Dim fso As Object
Set fso = CreateObject(“Scripting.FileSystemObject”)
If fso.FileExists(lockFilePath) Then
‘ 他のユーザーが作業中かどうかのチェック
Dim fileStream As Object
On Error Resume Next
Set fileStream = fso.OpenTextFile(lockFilePath, 1) ‘ 読み込みモードで開く
Dim lockedBy As String
If Err.Number = 0 Then
lockedBy = fileStream.ReadAll
fileStream.Close
Else
lockedBy = “他のユーザー”
End If
On Error GoTo 0
MsgBox “現在、このデザインは「” & lockedBy & “」さんが編集・保存中です。” & vbCrLf & _
“競合を防ぐため、しばらく時間をおいてから再実行してください。”, vbCritical, “排他制御アラート”
Exit Sub
End If
‘ ————————————————————————–
‘ ステップ 2: 自らが編集権を取得（ロックファイルの生成）
‘ ————————————————————————–
On Error Resume Next
Dim lockFile As Object
Set lockFile = fso.CreateTextFile(lockFilePath, True)
If Err.Number <> 0 Then
MsgBox “クラウドフォルダへの書き込み権限がないか、アクセスできません。”, vbCritical, “エラー”
Exit Sub
End If
‘ ロックファイルに「誰が・いつ」ロックしたかを記録
lockFile.WriteLine CreateObject(“WScript.Network”).UserName & ” (” & Now & “)”
lockFile.Close
On Error GoTo 0
‘ ————————————————————————–
‘ ステップ 3: CorelDRAWの高速・安全ローカル保存
‘ ————————————————————————–
Dim timestamp As String
timestamp = Format(Now, “yyyy-mm-dd_hhnnss”)
Dim tempFilePath As String
tempFilePath = localTempPath & fileNameBase & “_” & timestamp & “.cdr”
‘ CorelDRAWの描画更新を一時停止して処理を高速化
Application.Optimization = True
On Error GoTo ErrorHandler
‘ ローカルの一時フォルダへ保存（ここが一番安全！）
Dim saveOpt As StructSaveAsOptions
Set saveOpt = CreateStructSaveAsOptions
saveOpt.Version = cdrCurrentVersion ‘ 最新形式で保存
doc.SaveAs tempFilePath, saveOpt
‘ ————————————————————————–
‘ ステップ 4: クラウド同期フォルダへの安全転送とロック解除
‘ ————————————————————————–
Dim targetCloudPath As String
targetCloudPath = cloudFolderPath & fileNameBase & “_” & timestamp & “.cdr”
‘ ローカルからクラウドフォルダへ安全にコピー
fso.CopyFile tempFilePath, targetCloudPath, True
‘ 最新版として「最新作業用（Latest）」も更新
Dim latestCloudPath As String
latestCloudPath = cloudFolderPath & fileNameBase & “_LATEST.cdr”
fso.CopyFile tempFilePath, latestCloudPath, True
‘ 処理完了後、ロックファイルを削除して解放
If fso.FileExists(lockFilePath) Then
fso.DeleteFile lockFilePath, True
End If
‘ 描画更新の再開
Application.Optimization = False
Application.Refresh
MsgBox “クラウドへの安全な同期が完了しました！” & vbCrLf & _
“保存バージョン: ” & fileNameBase & “_” & timestamp & “.cdr”, vbInformation, “保存成功”
Exit Sub
ErrorHandler:
‘ エラーが発生した場合は必ず描画更新を元に戻し、ロックを解除する
Application.Optimization = False
Application.Refresh
If fso.FileExists(lockFilePath) Then
fso.DeleteFile lockFilePath, True
End If
MsgBox “保存処理中にエラーが発生しました: ” & Err.Description, vbCritical, “システムエラー”
End Sub
‘ ——————————————————————————
‘ 汎用関数: 存在しないディレクトリを再帰的に作成する
‘ ——————————————————————————
Private Sub CreateDirectoryIfNotExist(ByVal path As String)
Dim fso As Object
Set fso = CreateObject(“Scripting.FileSystemObject”)
If Not fso.FolderExists(path) Then
‘ 親フォルダを確認しながら作成
CreateDirectoryIfNotExist fso.GetParentFolderName(path)
fso.CreateFolder path
End If
End Sub
—
4. コードの解説とポイント
初心者の方や「マクロの記録」から脱却したい方向けに、このコードで使われている本質的なテクニックを噛み砕いて解説しますね！
ポイント1：`FileSystemObject`（FSO）を使ったファイル操作
VBA標準の`Dir`や`SaveAs`だけでなく、Windowsの強力なツールである`Scripting.FileSystemObject`を使っています。これを使うことで、ファイルの存在確認（`FileExists`）やコピー（`CopyFile`）が確実に行えます。
ポイント2：`Application.Optimization = True` の魔法
CorelDRAW VBAで重い処理や保存を行う際、このプロパティを`True`にすると画面の再描画を一時的にストップできます。
作業中の画面がチラつかず、処理速度が何倍もアップする必須テクニックです！ただし、処理が終わったら（またはエラーが起きたら）必ず`False`に戻すのがルールです。
ポイント3：アトミック（不可分）な保存設計
クラウド同期フォルダに直接保存するのではなく、「PC内部のTempフォルダに保存を完了させてから、完成品をクラウドへ一括コピーする」というアプローチを取っています。
これにより、同期途中の不完全なファイルがクラウドに上がってしまう事故を100%防ぐことができます。
—
5. 初心者が陥りやすいエラーと回避テクニック
開発中に「あれ？動かないぞ？」となったら、以下のポイントをチェックしてみてください。
| 発生しやすいエラー | 原因 | 対策・回避テクニック |
| :— | :— | :— |
| 「パスが見つかりません」 | 保存先のフォルダが存在しない | コード内の `CreateDirectoryIfNotExist` を使い、事前にフォルダを自動生成する。 |
| 画面がフリーズして動かない | `Optimization = True` のままエラー停止した | エラーハンドリング（`On Error GoTo ErrorHandler`）を記述し、必ず `Optimization = False` を通るようにする。 |
| ファイルがロックされたまま | 途中で処理が強制終了した | 手動でクラウド上の `.lock` ファイルを削除する運用ルールを決めておく。 |
—
6. まとめ：ここをクリアすればCorelDRAW VBAの基本はバッチリ！
今回のプログラムでは、以下の要素を網羅しました。
- CorelDRAW固有の操作（ドキュメントの安全な保存、画面描画の制御）
- Windows API/ファイルシステム制御（ファイル・フォルダの操作、排他ロック）
- プロレベルのエラー処理（予期せぬ事故でもCorelDRAWを安全に復帰させる構造）
これらは、CorelDRAW VBAで実用的な業務ツールを作成するための「核」となる知識です。ここを理解して応用できるようになれば、単なるマクロの記録を完全に脱却し、「現場の業務フローそのものを劇的に変革するプログラミング」ができるようになります！
まずはローカル環境でコードを動かしてみて、ファイルが安全に作成される感動を味わってみてくださいね。あなたのデザイン業務が、VBAの力でもっと快適になることを応援しています！
