深夜のPCが「働き者」に変わる。PowerPointを完全無人・高速PDF変換機にする極意
こんにちは。自動化の世界へようこそ。
「手作業でPPTXを開き、名前を付けて保存からPDFを選択する」——この退屈なルーチンを、まだ人間がやっているのですか？
今日は、PowerPoint VBAの限界を超え、Windowsタスクスケジューラと連携して「深夜のオフィスで誰もいないPCをPDF変換工場に変える」ための、アーキテクト級の自動化手法を伝授します。
この記事を読み終える頃には、あなたは「マクロを実行する人」から「自動化インフラを設計するエンジニア」へと一歩進化しているはずです。
—
1. なぜ「VBA単体」では足りないのか？
多くの入門者は、PowerPointの中にVBAを書き込み、ボタンを押して実行しようとします。しかし、これは「人間が横にいること」を前提としたお遊戯です。
エンタープライズ領域で求められるのは、「存在しないユーザー（無人実行）」での安定動作です。 画面（GUI）を表示させず、メモリリークを許さず、エラーが発生しても黙ってログを残し、次のタスクへ進む。これこそがプロの仕事です。
今回は、PowerPoint VBAではなく、より堅牢な「VBScript（.vbs）」をホストとして使い、外部からPowerPointのCOMオブジェクトを制御する手法を採用します。
—
2. 究極の自動変換スクリプト（VBScript）
以下のコードをコピーし、メモ帳に貼り付けて `BatchPDF.vbs` という名前で保存してください。
‘ — 限界を超えたPDF一括変換スクリプト —
Option Explicit
Dim pptApp, pptPres
Dim fso, folder, file
Dim sourceFolder, outputFolder
‘ 設定：フォルダパスを指定（末尾の\を忘れないこと）
sourceFolder = “C:\PPT_Input\”
outputFolder = “C:\PDF_Output\”
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set pptApp = CreateObject(“PowerPoint.Application”)
‘ 完全にサイレントで動作させるための魔法
‘ VisibleをFalseにすることで、裏側で高速処理させる
pptApp.Visible = False
Set folder = fso.GetFolder(sourceFolder)
For Each file In folder.Files
‘ PPTXファイルのみを対象にする
If LCase(fso.GetExtensionName(file.Path)) = “pptx” Then
On Error Resume Next ‘ エラーで止まらずにログへ流す設計
Set pptPres = pptApp.Presentations.Open(file.Path, , , False)
‘ PDFとして保存（1024 = ppSaveAsPDF）
‘ サーバーサイドでは余計なダイアログを出させないのが鉄則
pptPres.SaveAs outputFolder & fso.GetBaseName(file.Name) & “.pdf”, 1024
pptPres.Close
If Err.Number <> 0 Then
WScript.Echo “Error on: ” & file.Name & ” – ” & Err.Description
End If
On Error GoTo 0
End If
Next
‘ オブジェクトの解放（ここを怠るとメモリがゴミ屋敷になります）
pptApp.Quit
Set pptPres = Nothing
Set pptApp = Nothing
Set fso = Nothing
—
3. このコードが「プロ仕様」である理由
① `pptApp.Visible = False` の重要性
GUIを表示させないことで、描画リソースを大幅に節約します。これにより、処理速度が飛躍的に向上するだけでなく、タスクスケジューラ環境下での「画面の描画待ち」によるハングアップを防ぎます。
② `On Error Resume Next` との付き合い方
バッチ処理では、1つのファイルが壊れていただけで全体の処理を止めてはいけません。エラーを握りつぶすのではなく、エラーログとして出力する準備をしておくこと。これがシステムを「止めない」ための知恵です。
③ オブジェクトの明示的解放
`Set pptApp = Nothing` を忘れると、バックグラウンドで `POWERPNT.EXE` がゾンビのように残り続け、メモリを食いつぶします。クリーンな終了処理は、エンジニアとしての品格です。
—
4. Windowsタスクスケジューラへの組み込み
このスクリプトを深夜に動かすには、以下のステップで設定します。
1. タスクスケジューラの起動: 「タスクの作成」を選択。
2. 全般タブ: 「ユーザーがログオンしているかどうかにかかわらず実行する」にチェック（これが無人実行の鍵です）。
3. トリガー: 「毎日」の「深夜2時」などに設定。
4. 操作: 「プログラムの開始」で `wscript.exe` を指定し、引数に `C:\Path\To\BatchPDF.vbs` を渡します。
—
最後に：自動化は「愛」です
PowerPoint VBAを操ることは、単なるコード書きではありません。
毎日同じ作業を繰り返している同僚を救い、深夜のPCという「眠れるリソース」を最大限に活用すること。それは、技術者としての優しさであり、愛です。
まずはこのスクリプトを、手元の数ファイルで試してみてください。そして、エラーが出たら「なぜ？」とログを読み解く。その繰り返しが、あなたを真の自動化エンジニアへと押し上げます。
もし壁にぶつかったら、またここに戻ってきてください。いつでも準備はできていますよ。
