こんにちは、現場の最前線で自動化の限界に挑むエンジニアの皆さん。そして、これから「マクロの記録」を卒業し、真のプログラミングの世界へ踏み出そうとしている皆さん。
今日は、PowerPoint VBAの世界において、多くの人がぶつかる「目に見えない壁」——ネットワークの不安定さを克服する方法についてお話しします。
「自分のパソコンでは動くのに、会社の共有フォルダー（UNCパス）を指定すると時々エラーで止まる……」
「VPN経由だと、保存中に接続が切れてマクロが強制終了してしまう……」
そんな悩みを抱えていませんか？実は、プロの現場で使われるツールと、趣味のスクリプトを分ける境界線は、この「例外（エラー）への対応力」にあります。
今回は、ネットワークの遅延や切断を想定し、何度か自動でやり直す（リトライ）仕組みと、失敗するたびに待ち時間を長くする（バックオフ）制御を組み込んだ、最高に堅牢な保存・PDF変換スクリプトを伝授します。
これをマスターすれば、PowerPoint VBAの基本はバッチリ。自信を持って「私のツールは壊れません」と言えるようになりますよ。
—
1. なぜ「そのまま保存」ではいけないのか？
通常、PowerPointを保存するときは `ActivePresentation.SaveAs` という命令を使います。ローカルのデスクトップならこれで十分です。
しかし、宛先が `\\ServerName\Shared\Report.pptx` のようなUNCパス（ネットワーク上の場所）だと話が変わります。
- 通信がほんの一瞬途切れた（瞬断）
- 他の誰かがファイルを開こうとしてロックがかかった
- VPNの帯域が狭くて応答が遅れた
これらの要因で、VBAは容赦なく「実行時エラー」を吐いて止まってしまいます。これを防ぐには、「失敗しても、少し待ってからもう一度試す」という、人間なら当たり前に行う判断をプログラムに教え込む必要があるのです。
—
2. 堅牢な保存を実現する「3つの鉄則」
プロのコードには、必ず以下の3つの要素が組み込まれています。
1. リトライ（再試行）: 失敗しても即座に諦めず、指定回数まで繰り返す。
2. ウェイト（待機）: 次の試行まで少し時間を置く。
3. 指数バックオフ: 1回目は1秒、2回目は2秒、3回目は4秒……と、待機時間を徐々に延ばす（サーバーの負荷を下げ、復旧を待つ賢い戦略）。
では、これらを盛り込んだ究極のコードを見てみましょう。
—
3. 【実践】ネットワーク対応・自動リトライ機能付きPDF変換スクリプト
このコードは、開いているプレゼンテーションをネットワーク上の指定パスにPDFとして書き出すものです。
Option Explicit
‘ Windowsの機能を使って「指定時間待機」するための宣言
‘ これにより、ExcelのApplication.Waitよりも精密な制御が可能です
If VBA7 Then
Declare PtrSafe Sub Sleep Lib “kernel32” (ByVal dwMilliseconds As LongPtr)
Else
Declare Sub Sleep Lib “kernel32″ (ByVal dwMilliseconds As Long)
End If
”’
”’
Sub RobustSaveAsPDF()
Dim targetPath As String
‘ 保存先（環境に合わせて書き換えてください。UNCパスもOK）
targetPath = “\\YourServer\SharedFolder\Report.pdf”
Dim success As Boolean
‘ 自作の「リトライ機能付き出力関数」を呼び出す
success = SaveAsPDFWithRetry(ActivePresentation, targetPath)
If success Then
MsgBox “無事に保存が完了しました！”, vbInformation, “成功”
Else
MsgBox “ネットワークエラーにより保存に失敗しました。時間をおいて再試行してください。”, vbCritical, “エラー”
End If
End Sub
”’
”’
Function SaveAsPDFWithRetry(ByRef pres As Presentation, ByVal filePath As String) As Boolean
Dim maxRetries As Integer: maxRetries = 5 ‘ 最大5回まで挑戦
Dim attempt As Integer: attempt = 1
Dim waitTime As Long: waitTime = 1000 ‘ 初回待ち時間は1秒（1000ミリ秒）
On Error Resume Next ‘ エラーが起きてもプログラムを止めず、次へ進む
Do While attempt <= maxRetries
' エラー情報をクリア
Err.Clear
' PDFとしてエクスポート（ここがメインの処理）
pres.ExportAsFixedFormat _
Path:=filePath, _
FixedFormatType:=ppFixedFormatTypePDF, _
Intent:=ppFixedFormatIntentPrint
' エラーがなければループを抜ける
If Err.Number = 0 Then
SaveAsPDFWithRetry = True
Exit Function
End If
' --- ここからエラー発生時の処理 ---
Debug.Print "試行 " & attempt & " 回目失敗: " & Err.Description
' 最終試行でなければ、待機してリトライ
If attempt < maxRetries Then
' 指数バックオフ：待ち時間を倍にしていく
' 1秒 -> 2秒 -> 4秒 -> 8秒…
Sleep waitTime
waitTime = waitTime 2
DoEvents ‘ 待機中にPowerPointがフリーズするのを防ぐおまじない
End If
attempt = attempt + 1
Loop
On Error GoTo 0 ‘ エラーハンドリングを通常に戻す
SaveAsPDFWithRetry = False ‘ 全試行失敗
End Function
—
4. コードの深掘り解説：ここが「プロ」の視点
① `Sleep` APIの活用
VBA標準の `Wait` 関数やループによる時間稼ぎは、CPUに無駄な負荷をかけたり、精度が低かったりします。Windowsの心臓部である `kernel32` から `Sleep` を呼び出すことで、ミリ秒単位の正確な待機を、OSに優しく実行できます。
② `On Error Resume Next` の正しい使い方
初心者がこれを使うと「どこでエラーが起きたか分からなくなる」という罠に陥ります。しかし、今回のように「エラーが起きることを前提に、その後の挙動を自分で制御したい場合」には最強の武器になります。`Err.Number = 0` かどうかを毎回チェックするのが、熟練の技です。
③ 指数バックオフの魔法
ネットワークエラーの多くは「一時的な混雑」です。すぐに再試行すると、余計に混雑を悪化させます。待機時間を `waitTime 2` と倍増させていくことで、システムの回復を待つ余裕が生まれ、成功率が劇的に上がります。
—
5. 陥りやすいエラーと対策
- エラー 70 (書き込み権限なし):
ネットワーク上のファイルが誰かに開かれている場合に発生します。リトライで解決しない場合は、ファイル名にタイムスタンプ（`Report_20231027_1430.pdf`など）を付与する設計に変更するのも手です。
- パスが見つかりません:
ドライブレター（`Z:\`）を使っていると、PCによって割り当てが異なりエラーになります。必ず `\\` から始まるUNCパスを使うようにしましょう。
—
結びに：一歩先を行くエンジニアへ
今回のロジックを身につければ、PowerPointだけでなく、ExcelやWordの自動化でも「止まらない、壊れない」システムを構築できるようになります。
「マクロが動けばいい」という段階から、「どんな環境でも確実に完遂させる」というプロの視点へ。このコードをあなたのツールボックスに加えて、ネットワーク越しの作業も涼しい顔でこなしてください。
ここをクリアすれば、PowerPoint VBAの基本、そして「実戦で使えるコード」の神髄はバッチリですよ。応援しています！
