はじめに：クラウド同期時代の「サイレント・コンフリクト」を打ち砕く
CorelDRAW（.cdr）を用いたデザイン業務の現場において、SharePointやOneDriveといったクラウドストレージの導入は、いまや避けられない潮流となっている。しかし、多くの開発現場や自動化担当者が陥る悲惨な罠がある。「ローカル同期フォルダにCorelDRAW VBAから直接ファイルを上書き保存すればいい」という安易な設計だ。
CorelDRAWの巨大なベクターデータは、保存時にZIP圧縮を伴うアトミックな一時ファイル処理を行う。これがクラウドストレージの同期エンジン（OneDrive Sync Client等）のポーリングタイミングと衝突した瞬間、以下のような破滅的現象が起きる。
- 競合ファイル（`デザインデータ_コピー(1).cdr` や `デザインデータ_Conflict.cdr`）の大量発生
- 同期遅延による旧バージョンによる上書き（サイレント・データロスト）
- CorelDRAW保存中におけるファイルロック競合によるVBAの異常終了（ランタイムエラー）
エンタープライズ環境で要求されるのは、単なる「マクロによる保存」ではない。Microsoft Graph APIを介して直接クラウド上のリソースに対し排他制御（チェックアウト／ロック）を行い、安全にバージョン管理されたデータをパイプライン経由で同期させる高度な堅牢性である。
本稿では、CorelDRAW VBAからWinHttpを用いてMicrosoft Graph APIに直結し、事前ロック確認・排他制御・自動バージョン管理アップロード・アンロックを完了させる極めて堅牢なプロダクションコードと、そのアーキテクチャ設計を徹底解説する。
—
1. アーキテクチャ設計：なぜ「ローカル同期フォルダ監視」は破綻するのか？
まず、なぜ従来のローカル同期フォルダ依存の自動化が失敗するのか、その物理的なメカニズムを解剖しよう。
[従来の非推奨モデル]
CorelDRAW VBA —> (SaveAs) —> ローカル同期フォルダ (C:\OneDrive\…)
| (ファイル変更検知)
v
OneDrive Sync Agent (ロック取得)
^ (競合・書き込み拒否)
別の設計者 (同時編集)
このモデルでは、CorelDRAWがファイルを出力している最中にOneDrive Sync Clientがファイルをロックし、読み込みを開始する。CorelDRAW側は一時ファイルの消去やリネームに失敗し、例外をスローする。
本稿で構築する「API直結型・排他制御パイプライン」のアーキテクチャは以下の通りだ。
[推奨：API直結型排他制御モデル]
CorelDRAW VBA
| 1. REST API (Graph API) でSharePoint上の対象ファイルを【Checkout (ロック)】
| 2. 他者の編集を物理的にブロック (HTTP 423 / Locked)
| 3. ローカル一時領域 (TEMP) にCorelDRAWネイティブ保存
| 4. REST API (PUT / Upload Session) でSharePointへ直接アップロード
| 5. メタデータ（バージョン注記）更新 ＆ 【Checkin (アンロック)】
v
SharePoint / OneDrive for Business (完全な整合性を保証)
クラウド側をマスター（正書）とし、ローカルの同期クライアントの動作を完全にバイパスしてAPIレベルで排他制御を完結させる。これにより、競合ファイルの発生率はゼロになる。
—
2. 堅牢なパイプラインのライフサイクル
このパイプラインを実装するにあたり、オブジェクトのライフサイクルと例外処理（ロールバック設計）を徹底しなければならない。
1. 認証トークン取得 (`OAuth2 Client Credentials` または `Refresh Token`)
2. クラウド上のファイル状態確認 ＆ チェックアウト（排他ロック）
- 既に誰かがチェックアウトしている場合：処理を中断し、ユーザー（またはログ）にロック保持者を通知。
3. ローカル安全領域（`Environ(“TEMP”)`）へのCorelDRAWネイティブ高速保存
- アトミックな書き込みを保証するため、ネットワークドライブではなくローカルNVMe/SSD上のTEMP領域を使用する。
4. クラウドへバイナリストリームのダイレクトアップロード
5. チェックイン（ロック解除） ＆ バージョンコメントの付与
6. ローカル一時ファイルの完全削除
どのフェーズで例外が発生しても、「ロックの放置」および「壊れた一時ファイルの残留」を絶対に許さない構造を構築する。
—
3. プロダクションコード実装
以下に、実務でそのまま導入可能な完全モジュール構成のコードを示す。外部DLLへの依存を排除するため、`WinHttp.WinHttpRequest.5.1` および `MSXML2.DOMDocument.6.0`（JSON解析用・テキスト処理用）を使用する。
3.1 依存ライブラリの設定
VBAエディタの `ツール` -> `参照設定` で以下を有効化すること。
- Microsoft XML, v6.0
- （※ WinHttpは CreateObject による動的生成を行うため参照設定不要）
—
【クラスモジュール】`clsGraphApiManager`
SharePoint / OneDrive APIとの通信および排他制御を一元管理するコアエンジン。
‘ Module Name: clsGraphApiManager
‘ Description: Microsoft Graph API を使用した SharePoint/OneDrive の排他制御およびファイル同期クラス
Option Explicit
Private pTenantId As String
Private pClientId As String
Private pClientSecret As String
Private pAccessToken As String
Private pHttp As Object
Public Sub Initialize(ByVal TenantId As String, ByVal ClientId As String, ByVal ClientSecret As String)
pTenantId = TenantId
pClientId = ClientId
pClientSecret = ClientSecret
Set pHttp = CreateObject(“WinHttp.WinHttpRequest.5.1”)
End Sub
‘ — Azure AD OAuth2.0 トークン取得 —
Public Function Authenticate() As Boolean
Dim url As String
Dim body As String
url = “https://login.microsoftonline.com/” & pTenantId & “/oauth2/v2.0/token”
body = “client_id=” & pClientId & _
“&scope=https%3A%2F%2Fgraph.microsoft.com%2F.default” & _
“&client_secret=” & pClientSecret & _
“&grant_type=client_credentials”
With pHttp
.Open “POST”, url, False
.setRequestHeader “Content-Type”, “application/x-www-form-urlencoded”
.send body
If .Status = 200 Then
pAccessToken = ParseJsonValue(.responseText, “access_token”)
Authenticate = True
Else
Authenticate = False
Err.Raise vbObjectError + 1001, “clsGraphApiManager”, “認証失敗: ” & .responseText
End If
End With
End Function
‘ — SharePointドライブ項目のチェックアウト（排他ロック） —
Public Function CheckoutFile(ByVal SiteId As String, ByVal ItemId As String) As Boolean
Dim url As String
url = “https://graph.microsoft.com/v1.0/sites/” & SiteId & “/drive/items/” & ItemId & “/checkout”
With pHttp
.Open “POST”, url, False
.setRequestHeader “Authorization”, “Bearer ” & pAccessToken
.send
‘ HTTP 204 No Content はチェックアウト成功を意味する
If .Status = 204 Then
CheckoutFile = True
ElseIf .Status = 409 Then
‘ 既に他ユーザーがチェックアウト中
CheckoutFile = False
Else
Err.Raise vbObjectError + 1002, “clsGraphApiManager”, “チェックアウトエラー: ” & .responseText
End If
End With
End Function
‘ — バイナリファイルのダイレクトアップロード（4MB以下向けストリーム） —
Public Function UploadFile(ByVal SiteId As String, ByVal ItemId As String, ByVal LocalFilePath As String) As Boolean
Dim url As String
Dim fileStream As Object
Dim binaryData() As Byte
‘ ローカルファイルをバイナリとして読み込み
binaryData = ReadBinaryFile(LocalFilePath)
url = “https://graph.microsoft.com/v1.0/sites/” & SiteId & “/drive/items/” & ItemId & “/content”
With pHttp
.Open “PUT”, url, False
.setRequestHeader “Authorization”, “Bearer ” & pAccessToken
.setRequestHeader “Content-Type”, “application/octet-stream”
.send binaryData
If .Status = 200 Or .Status = 201 Then
UploadFile = True
Else
Err.Raise vbObjectError + 1003, “clsGraphApiManager”, “アップロード失敗: ” & .responseText
End If
End With
End Function
‘ — チェックイン（ロック解除とメジャーバージョン更新） —
Public Function CheckinFile(ByVal SiteId As String, ByVal ItemId As String, ByVal Comment As String) As Boolean
Dim url As String
Dim jsonBody As String
url = “https://graph.microsoft.com/v1.0/sites/” & SiteId & “/drive/items/” & ItemId & “/checkin”
jsonBody = “{“”comment””: “”” & Comment & “””, “”checkInAs””: “”published””}”
With pHttp
.Open “POST”, url, False
.setRequestHeader “Authorization”, “Bearer ” & pAccessToken
.setRequestHeader “Content-Type”, “application/json”
.send jsonBody
If .Status = 204 Then
CheckinFile = True
Else
Err.Raise vbObjectError + 1004, “clsGraphApiManager”, “チェックイン失敗: ” & .responseText
End If
End With
End Function
‘ — 補助関数: バイナリ読み込み —
Private Function ReadBinaryFile(ByVal FilePath As String) As Byte()
Dim stream As Object
Set stream = CreateObject(“ADODB.Stream”)
With stream
.Type = 1 ‘ adTypeBinary
.Open
.LoadFromFile FilePath
ReadBinaryFile = .Read
.Close
End With
Set stream = Nothing
End Function
‘ — 補助関数: 簡易JSONレスポンス解析 —
Private Function ParseJsonValue(ByVal JsonText As String, ByVal Key As String) As String
Dim searchStr As String
Dim startPos As Long, endPos As Long
searchStr = “””” & Key & “””:”””
startPos = InStr(JsonText, searchStr)
If startPos > 0 Then
startPos = startPos + Len(searchStr)
endPos = InStr(startPos, JsonText, “”””)
ParseJsonValue = Mid(JsonText, startPos, endPos – startPos)
Else
ParseJsonValue = “”
End If
End Function
—
【標準モジュール】`modCorelSyncPipeline`
CorelDRAWのアプリケーションとGraph APIを連携させるオーケストレーションモジュール。
‘ Module Name: modCorelSyncPipeline
‘ Description: CorelDRAWドキュメントの安全な保存とSharePoint自動同期パイプライン
Option Explicit
‘ — 設定情報（本来は環境変数や暗号化された外部設定ファイルから読み込むべき項目） —
Private Const TENANT_ID As String = “your-tenant-id-guid”
Private Const CLIENT_ID As String = “your-client-id-guid”
Private Const CLIENT_SECRET As String = “your-client-secret”
Private Const SHAREPOINT_SITE_ID As String = “your-site-id”
Private Const TARGET_ITEM_ID As String = “your-drive-item-id”
Public Sub ExecuteSecureCloudSave()
Dim graphApi As clsGraphApiManager
Dim doc As Document
Dim tempPath As String
Dim fileName As String
Dim saveOptions As StructSaveAsOptions
Dim isLocked As Boolean
Set doc = ActiveDocument
If doc Is Nothing Then
MsgBox “アクティブなドキュメントが存在しません。”, vbExclamation, “エラー”
Exit Sub
End If
‘ CorelDRAWの描画・UI更新を一時停止してパイプラインの高速化を図る
CorelScript.Unfreeze
Application.Optimization = True
tempPath = Environ(“TEMP”) & “\” & “CorelPipeline_” & Format(Now, “yyyymmdd_hhmmss”) & “.cdr”
On Error GoTo ErrorHandler
‘ 1. APIマネージャーの初期化と認証
Set graphApi = New clsGraphApiManager
graphApi.Initialize TENANT_ID, CLIENT_ID, CLIENT_SECRET
StatusBar.Text = “クラウド認証を実行中…”
If Not graphApi.Authenticate() Then Exit Sub
‘ 2. 排他ロック（チェックアウト）の試行
StatusBar.Text = “クラウド上のファイルをロック中…”
isLocked = graphApi.CheckoutFile(SHAREPOINT_SITE_ID, TARGET_ITEM_ID)
If Not isLocked Then
MsgBox “対象ファイルは現在他のユーザーによって編集ロックされています。” & vbCrLf & _
“時間を置いて再実行してください。”, vbCritical, “排他制御エラー”
GoTo CleanUp
End If
‘ 3. ローカルTEMP領域への高速ネイティブ保存
StatusBar.Text = “ローカル一時ファイルを生成中…”
Set saveOptions = CreateStructSaveAsOptions
With saveOptions
.Filter = cdrCDR
.Version = cdrCurrentVersion
.IncludeICCProfile = True
End With
doc.SaveAs tempPath, saveOptions
‘ 4. クラウドへのダイレクトアップロード
StatusBar.Text = “SharePointへデータを転送中…”
graphApi.UploadFile SHAREPOINT_SITE_ID, TARGET_ITEM_ID, tempPath
‘ 5. チェックイン（ロック解除とバージョン更新）
StatusBar.Text = “チェックインおよびバージョン更新処理中…”
Dim versionComment As String
versionComment = “Automated Save via CorelDRAW Pipeline by ” & Application.UserName & ” at ” & Now
graphApi.CheckinFile SHAREPOINT_SITE_ID, TARGET_ITEM_ID, versionComment
StatusBar.Text = “同期が正常に完了しました。”
MsgBox “クラウドストレージへの安全な保存とバージョン管理の同期が完了しました。”, vbInformation, “成功”
CleanUp:
‘ 6. 後始末（クリーンアップ）
Application.Optimization = False
Application.Refresh
‘ ローカル一時ファイルの安全な削除
If Dir(tempPath) <> “” Then
On Error Resume Next
Kill tempPath
On Error GoTo 0
End If
Exit Sub
ErrorHandler:
‘ 例外発生時：現場を破綻させないための自動ロールバック処理
Application.Optimization = False
Application.Refresh
MsgBox “パイプライン処理中に重篤なエラーが発生しました:” & vbCrLf & Err.Description, vbCritical, “システムエラー”
‘ ローカル一時ファイルの消去
If Dir(tempPath) <> “” Then
On Error Resume Next
Kill tempPath
On Error GoTo 0
End If
End Sub
—
4. 開発・運用における極限の知見と注意点
アーキテクチャを現場で何年間も無停止で動かすためには、以下の「実務の罠」を理解し、対策を講じておく必要がある。
4.1 4MB以上の巨大CDRファイルにおける「Upload Session」の適用
上記コードの `UploadFile` メソッドは、単一の `PUT` リクエストを使用しているため、Microsoft Graph APIの制限上、4MB以下の小型ファイルに適している。実務で数万のベクターオブジェクトや高解像度ビットマップを含み、ファイルサイズが数十MB〜数百MBに達する場合は、`createUploadSession` APIを用いたマルチパート分割アップロード（Chunked Upload）に書き換える必要がある。
[大容量ファイル出力時のパイプライン]
1. POST /drive/items/{id}/createUploadSession
2. 320KiBの倍数（例: 3.2MB単位）でバイナリを分割（Bytes Range）
3. ループ処理でPUTを連続発行
4. 最終フラグメント送信で自動結合
これを実装しないと、通信タイムアウト（HTTP 504 Gateway Timeout）によりパイプラインが壊壊する。
4.2 CorelDRAW標準保存イベント（`DocumentBeforeSave`）のフックに関する制約
`ApplicationEvents` クラスを用いて CorelDRAWの `DocumentBeforeSave` イベントをフックし、標準の保存ボタン（Ctrl+S）をこのAPIパイプラインへリダイレクトさせたいという要望は多い。
しかし、`Cancel = True` を指定して標準保存をキャンセルした直後にAPI非同期通信を行うと、CorelDRAW内部のドキュメントステータス（`doc.Dirty` フラグ）が更新されず、UIと実際のファイル状態に乖離が生じる。
これを防ぐため、実用上は「専用のパイプライン実行ボタン（ツールバーのカスタムボタン）」をCorelDRAW UI上に配置し、オペレーターにはそのボタンを押させる運用を徹底させるのが最も安全である。
4.3 セキュリティ（Client Secretの保護）
VBAソースコード内にAzure ADの `ClientSecret` をハードコードすることは、セキュリティ監査上許されない。
プロダクション環境では、以下のいずれかの手法を取るべきだ。
1. Windows資格情報マネージャー（Credential Manager）からWin32 API経由で取得
2. 社内ローカルのセキュアな認証プロキシWeb APIを挟み、VBAからはそのプロキシを叩く
—
まとめ：真のエンタープライズVBAエンジニアへ
CorelDRAW VBAを「画面上の図形を動かすだけのマクロ言語」と捉えているうちは、プロフェッショナルとは呼べない。
本稿で解説したように、CorelDRAW内部の描画エンジン・ローカルファイルシステム・クラウドストレージのREST APIの3者をミリ秒単位・バイト単位で制御して初めて、現代の複雑なグラフィック制作現場に耐えうる「堅牢な自動化パイプライン」が完成する。
今回提供した排他制御およびダイレクト同期の設計思想とコードをベースに、自社のデザインインフラを真のエンタープライズ仕様へと昇華させてほしい。
