PowerPoint VBAの「地雷」を回避せよ：プレゼン破損・ロック検知の極意
こんにちは。自動化の世界へようこそ。
日々、何千枚ものスライドを自動生成・操作していると、必ずぶつかる壁があります。それが「ファイルが開けない」というエラーです。
PowerPoint VBAで`Presentations.Open`を叩くとき、相手が壊れていたり、誰かが編集中のロックファイルだったりすると、容赦なく処理はフリーズし、あなたの自動化ルーチンは死にます。
今回は、そんな「地雷」を踏む前に安全を確認する、プロ仕様の事前判定ラッパー関数を伝授しましょう。
—
なぜ「いきなり開く」のが危険なのか？
PowerPointのオブジェクトモデルは、非常に繊細です。`Presentations.Open`メソッドを呼び出すということは、PowerPointという重厚なエンジンをファイルに直結させる行為。
もしファイルが破損していたら？
- PowerPoint自体が「修復しますか？」というダイアログを出し、VBAの実行はそこで永遠に停止します。
- ネットワークドライブ上の他人のファイルなら？
- 「読み取り専用」または「ロック中」の警告画面が立ちふさがり、自動化は完全に沈黙します。
私たちは「開く」という行為の前に、「そのファイルは会話ができる状態か？」を外側からチェックする必要があるのです。
—
現場で使える「最強の事前チェック関数」
私たちは、以下の2つの手法を組み合わせた「二段構え」のガードを作成します。
1. FSO（FileSystemObject）による排他制御確認: ファイルが既に誰かに握られていないか。
2. Errオブジェクトによる例外捕捉: そもそもファイルとして成立しているか。
実装コード
‘ 必要なライブラリ：Microsoft Scripting Runtime (FSO)
‘ VBEのメニュー[ツール] -> [参照設定] から「Microsoft Scripting Runtime」にチェックを入れてください。
Public Function IsFileAccessible(ByVal filePath As String) As Boolean
Dim fso As Object
Dim fileStream As Object
‘ ファイルの存在確認
Set fso = CreateObject(“Scripting.FileSystemObject”)
If Not fso.FileExists(filePath) Then
Debug.Print “エラー: ファイルが存在しません。”
IsFileAccessible = False
Exit Function
End If
‘ 【重要】排他制御のチェック
‘ ファイルを読み取りモードで開こうとしてみる（失敗すれば他者が使用中）
On Error Resume Next
Set fileStream = fso.OpenTextFile(filePath, 1, False)
If Err.Number <> 0 Then
Debug.Print “エラー: ファイルが他のプロセスで使用中、またはアクセス権限がありません。”
IsFileAccessible = False
Else
‘ 開けたら即座に閉じる（これがリソースリークを防ぐ鉄則）
fileStream.Close
IsFileAccessible = True
End If
On Error GoTo 0
Set fileStream = Nothing
Set fso = Nothing
End Function
—
コードの解説：なぜこれが「プロ仕様」なのか？
1. `OpenTextFile` の活用
多くの初心者は`Presentations.Open`で直接開こうとしますが、これは「重すぎる」のです。`FSO`を使ってテキストファイルとして開く（`1`はForReading）ことで、PowerPointのエンジンを起動させずに「ファイルがロックされているか」だけを瞬時に判定します。メモリの節約にもなり、非常に高速です。
2. `On Error Resume Next` の正しい使い方
VBAでエラーを無視するのは危険ですが、このように「成功するか失敗するかを試したい」という限定的な条件下では最強の武器になります。`Err.Number <> 0`をチェックすることで、エラーの発生を検知し、安全に終了処理へと向かわせています。
3. リソースの解放（ライフサイクルの管理）
`Set fileStream = Nothing` を忘れないでください。オブジェクトを野放しにすると、大規模な自動化処理において「メモリリーク」を引き起こし、PowerPointが徐々に重くなっていきます。
—
運用時のアドバイス：自動化の更なる高みへ
この関数を作成したら、メインの処理はこう変わります。
Sub OpenPresentationSafely()
Dim targetPath As String
targetPath = “C:\Reports\Monthly.pptx”
If IsFileAccessible(targetPath) Then
‘ 安全な場合のみ開く
Application.Presentations.Open targetPath
Else
‘ ログを出すなり、スキップするなりの代替処理
MsgBox “現在ファイルは開けません。後で再試行してください。”
End If
End Sub
陥りやすい罠：ネットワークドライブのタイムラグ
社内サーバー上のファイルは、ネットワークの瞬断や同期処理（OneDrive/Boxなど）の影響で、一瞬だけ「使用中」になることがあります。もしこの関数で弾かれた場合は、すぐに諦めるのではなく、`Application.Wait` を使って数秒待ってから再試行する「リトライ処理」を組み込むと、自動化の安定性は劇的に向上します。
—
最後に：エンジニアとしての誇り
「コードが動けばいい」のではなく、「エラーが起きてもシステムを壊さない」こと。
これが、PowerPoint VBAを掌握したエンジニアが持つべき視点です。
今回紹介した事前チェックは、あなたが寝ている間に動く自動化プログラムの「守護神」となります。ぜひあなたのツールボックスに加えて、より堅牢な自動化の世界を切り拓いてください。
何か詰まったら、いつでも聞いてくださいね。応援しています。
