【生存戦略】OneDriveの「上書き」から身を守る：PowerPoint VBAによる二重バックアップ・エンジニアリング
こんにちは。自動化の深淵へようこそ。
皆さんは、OneDrive上のPowerPointで作業していて、ふと「あ、今の操作、取り消せないかも……」と血の気が引いた経験はありませんか？
OneDriveの「自動保存」は、非常に強力な味方です。しかし、エンジニアの視点から見ると、それは「常に最新の状態（＝ミスをした状態）へ、容赦なく上書きし続けるプロセス」でもあります。バージョン履歴機能は確かに存在しますが、いざという時に「あの時点のファイルを取り出す」という操作は、直感的な作業フローを大きく阻害します。
今日は、そんなクラウドの「便利さと危うさ」を同時にコントロールする、プロフェッショナルな二重バックアップ・マクロを構築していきましょう。
「マクロの記録」から一歩踏み出し、「オブジェクトの制御」と「ファイルシステムの操作」をマスターする。ここをクリアすれば、あなたのPowerPoint VBAスキルは、単なる「作業の自動化」から「システムの構築」へと進化します。
1. 設計思想：なぜ「ミラーリング」が必要なのか
まず、設計図を頭に描きましょう。私たちが作るものは、単なるコピーではありません。
1. メイン（クラウド）: OneDrive上で常に最新の状態を維持。
2. ミラー（ローカル）: 物理的なローカルストレージに、「いつ、どの状態だったか」を刻印したタイムスタンプ付きファイルとして、世代ごとに保存する。
この「物理的な世代管理」を行うことで、クラウドの不具合や誤操作による上書きリスクを、完全にゼロに近づけることができます。
2. 実装：二重バックアップ・マクロ
それでは、魂を込めて書いたコードを見ていきましょう。このコードは、単にファイルをコピーするだけでなく、エラーハンドリング（異常系の処理）を組み込んだ、実戦的な構成にしています。
Option Explicit
''' <summary>
''' プレゼンテーションを保存し、同時にローカルの指定フォルダへ
''' タイムスタンプ付きでミラーリングバックアップを作成する。
''' </summary>
Sub SmartSaveWithMirrorBackup()
' --- 設定エリア ---
' バックアップを保存したいローカルのパスを指定してください（最後に \ を入れる）
' ※OneDrive内のパスではなく、必ずPC内のローカルパス（C:\Users\...等）を指定してください。
Const BACKUP_DIR As String = "C:\Users\YourName\Documents\PPT_Backup\"
' ------------------
Dim pptPres As Presentation
Dim fso As Object
Dim currentPath As String
Dim fileName As String
Dim fileExt As String
Dim baseName As String
Dim timestamp As String
Dim backupFileName As String
Dim backupFullPath As String
' オブジェクトの初期化
Set pptPres = ActivePresentation
Set fso = CreateObject("Scripting.FileSystemObject")
' エラーハンドリング：何か問題が起きたら ErrorHandler ラベルへ飛ぶ
On Error GoTo ErrorHandler
' 1. 現在のファイルが一度も保存されていない場合は警告して終了
If pptPres.Path = "" Then
MsgBox "このファイルはまだ一度も保存されていません。" & vbCrLf & _
"まずは手動で一度保存を行ってください。", vbExclamation, "保存エラー"
Exit Sub
End If
' 2. バックアップフォルダが存在するか確認。なければ作成する
If Not fso.FolderExists(BACKUP_DIR) Then
' フォルダが存在しない場合、作成を試みる（階層が深い場合は注意）
fso.CreateFolder (BACKUP_DIR)
End If
' 3. ファイル情報の分解
' 例: "C:\Work\Presentation.pptx" -> baseName: "Presentation", fileExt: ".pptx"
currentPath = pptPres.FullName
baseName = fso.GetBaseName(currentPath)
fileExt = fso.GetExtensionName(currentPath)
fileExt = "." & fileExt ' ドットを戻す
' 4. タイムスタンプの生成 (YYYYMMDD_HHMMSS形式)
timestamp = Format(Now, "yyyymmdd_hhmmss")
' 5. バックアップファイル名の組み立て
' 例: Presentation_20231027_153045.pptx
backupFileName = baseName & "_" & timestamp & fileExt
backupFullPath = BACKUP_DIR & backupFileName
' 6. 【重要】まず現在のプレゼンテーションを保存する
' これにより、コピーされるファイルが「最新の状態」になる
pptPres.Save
' 7. ファイルの物理コピーを実行
fso.CopyFile currentPath, backupFullPath, True
' 成功メッセージ（運用に合わせてコメントアウトしてもOK）
Debug.Print "Backup Successful: " & backupFullPath
' MsgBox "保存とバックアップが完了しました。", vbInformation, "完了"
Exit Sub
ErrorHandler:
' エラーが発生した場合の処理
MsgBox "エラーが発生しました。" & vbCrLf & _
"エラー番号: " & Err.Number & vbCrLf & _
"内容: " & Err.Description, vbCritical, "システムエラー"
End Sub3. 伝説のアーキテクトによる「コードの解剖学」
このコードが、なぜ「ただの記録」と違うのか。その本質を解説します。
① FileSystemObject (FSO) の採用
多くの初学者は `FileCopy` というVBA標準の命令を使おうとします。しかし、私はあえて `Scripting.FileSystemObject` を推奨します。
FSOは、ファイルやフォルダを「オブジェクト」として扱います。フォルダが存在するか確認する (`FolderExists`)、ファイル名から拡張子だけを抜き出す (`GetExtensionName`) といった操作が、極めて堅牢かつスマートに行えるからです。これは、「道具を使いこなす」ための第一歩です。
② タイムスタンプによる「非破壊的」保存
`Format(Now, “yyyymmdd_hhmmss”)` を使って、ファイル名に秒単位の時間を刻んでいます。これにより、同じファイルに対して何度実行しても、古いファイルが上書きされることなく、新しい「世代」として蓄積されていきます。これが「物理的な世代管理」の正体です。
③ エラーハンドリングの重要性
`On Error GoTo ErrorHandler`。これこそが、プロのコードと素人のコードを分ける境界線です。
もし、バックアップ先のフォルダが読み取り専用だったり、ディスク容量がいっぱいだったりした場合、マクロは突然停止し、ユーザーを混乱させます。エラーを適切にキャッチし、ユーザーに「何が起きたのか」を伝える。これが「信頼されるシステム」の条件です。
4. 陥りやすい罠：OneDrive特有の「パス問題」
ここが、今回の最も重要なアドバイスです。
OneDrive上のファイルを開いているとき、`pptPres.Path` が `https://d.docs.live.net/…` のような URL形式 で返ってくることがあります。
VBAの `FileCopy` や `FSO` は、この 「Web上のURL」を直接操作することができません。
【対策】
コード内の `BACKUP_DIR`（バックアップ先）は、必ず `C:\Users\…` や `D:\Backup\…` といった、PC内のローカルパスを指定してください。
「元ファイルがクラウドにあっても、コピー先はローカルにする」というルールを守ることで、この問題は回避できます。
5. 次のステップへ
おめでとうございます。あなたは今、単に「作業を楽にする」だけでなく、「作業の安全性を担保する」という、エンジニアリングの重要な領域に足を踏み入れました。
このマクロをベースに、例えば以下のような拡張を考えてみてください。
- バックアップが100世代を超えたら、古いものを自動で削除する機能。
- 保存時に、PDF形式でも同時に書き出す機能。
「なぜこのコードが必要なのか？」という問いを持ち続ける限り、あなたの成長は止まりません。
さあ、自信を持って、このコードをあなたの最強の武器として組み込んでください。
ここをクリアすれば、PowerPoint VBAの基本はバッチリですよ。
