PowerPoint VBAを掌握する極限の知見：CreateVideoメソッドによる4K/フルHD動画一括エクスポートの自動化
プレゼンテーションの動画化（`.mp4`出力）は、マーケティング部門のプロモーション自動化や、サイネージ配信用コンテンツの無人生成において極めて強力な武器となる。
しかし、PowerPointの標準GUI操作による動画書き出しは、長大なレンダリング待ち時間を強いるだけでなく、複数ファイルを一括処理する現場においては悪夢のような非効率を生む。さらに、`CreateVideo`メソッドはPowerPointオブジェクトモデルの中でも「最も非同期処理の挙動が掴みにくい地雷原の一つ」として恐れられている。
今回は、VBAから`CreateVideo`を完全に手懐け、解像度・フレームレート・スライド秒数をプログラムから完全に制御し、メモリリークを排除した極限のプロダクションコードを提示する。
—
1. CreateVideoメソッドの深層と罠
PowerPoint 2013以降、`Presentation.CreateVideo`メソッドが解放された。理論上は一撃で動画を生成できるが、シニアエンジニアが直面する最大の壁は「バックグラウンドレンダリングの完了待ち（同期）」である。
`CreateVideo`は非同期（あるいは半同期的）にバックグラウンドプロセスとして実行される。VBA側でループを回してステータスを監視しなければ、コードが先走ってファイルを保存前に閉じたり、最悪の場合はPowerPointプロセスごとクラッシュする。
実装上の主要パラメータと注意点
- `FileName`: 出力先のフルパス。既存ファイルがある場合は上書きされる。
- `UseTimingsAndNarrations`: スライド毎の手動切り替えタイミング（ナレーション含む）を使うか否か。
- `DefaultSlideDuration`: タイミングが設定されていないスライドのデフォルト秒数（秒）。
- `VertResolution`: 垂直解像度。4Kなら `2160`、フルHDなら `1080` を指定する。
- `FramesPerSecond`: フレームレート。通常は `30` または `60`。
—
2. 【実用コード】メモリ最適化と非同期監視を網羅した最高峰のVBA実装
以下のコードは、指定したプレゼンテーションを読み込み、4K解像度（3840×2160 / 垂直2160）かつ60fps、1スライドあたりの表示秒数を厳密に指定してMP4として書き出すプロシージャである。
Option Explicit
‘ —————————————————————–
‘ ódulo名: ModVideoExporter
‘ 概要: プレゼンテーションを最高画質（4K/60fps）でMP4出力する極限最適化モジュール
‘ —————————————————————–
Public Sub ExportPresentationTo4KVideo()
Dim targetPres As Presentation
Dim sourcePath As String
Dim outputPath As String
Dim fso As Object
‘ パス設定（環境に合わせて変更すること）
sourcePath = “C:\Automation\Templates\MasterPresentation.pptx”
outputPath = “C:\Automation\Output\Promo_4K.mp4”
Set fso = CreateObject(“Scripting.FileSystemObject”)
‘ 入力ファイルの存在確認
If Not fso.FileExists(sourcePath) Then
MsgBox “指定されたプレゼンテーションが存在しません: ” & sourcePath, vbCritical, “致命的エラー”
Exit Sub
End If
‘ 既存の出力ファイルが存在する場合は削除（ロック回避）
On Error Resume Next
If fso.FileExists(outputPath) Then fso.DeleteFile outputPath, True
On Error GoTo 0
‘ 画面描画の完全停止（パフォーマンス極大化）
Application.ScreenUpdating = False
Application.DisplayAlerts = ppAlertsNone
‘ プレゼンテーションを非表示でサイレントオープン
‘ ※ 画面上にウィンドウを出さないことでGDIリソースの無駄な消費を防ぐ
Set targetPres = Presentations.Open(FileName:=sourcePath, ReadOnly:=True, WithWindow:=msoFalse)
‘ 動画生成の実行
Call ExecuteRobustVideoExport( _
Pres:=targetPres, _
OutputFileName:=outputPath, _
VertRes:=2160, _ ‘ 4K解像度 (2160p)
FPS:=60, _ ‘ 滑らかな60フレーム
DefaultDuration:=5 ‘ 各スライドのデフォルト秒数
)
‘ オブジェクトのライフサイクル管理：明確な解放
targetPres.Close
Set targetPres = Nothing
Set fso = Nothing
‘ 画面描画の復元
Application.DisplayAlerts = ppAlertsAll
Application.ScreenUpdating = True
MsgBox “4K動画のエクスポートが正常に完了しました。” & vbCrLf & outputPath, vbInformation, “処理完了”
End Sub
‘ —————————————————————–
‘ 内部プロシージャ: CreateVideoの進捗監視とハングアップ防止
‘ —————————————————————–
Private Sub ExecuteRobustVideoExport(ByRef Pres As Presentation, ByVal OutputFileName As String, _
ByVal VertRes As Long, ByVal FPS As Long, ByVal DefaultDuration As Long)
Dim conversionStatus As PpMediaTaskStatus
Dim startTime As Double
Dim timeoutSeconds As Double
‘ タイムアウト設定（例: 30分 = 1800秒）
timeoutSeconds = 1800
startTime = Timer
‘ CreateVideoの実行
‘ UseTimingsAndNarrations = msoFalse にし、DefaultDurationを強制適用する
Pres.CreateVideo FileName:=OutputFileName, _
UseTimingsAndNarrations:=msoFalse, _
DefaultSlideDuration:=DefaultDuration, _
VertResolution:=VertRes, _
FramesPerSecond:=FPS
‘ 非同期レンダリングの完了をポーリングで監視
‘ ※ PowerPointは動画生成中、CreateVideoStatusプロパティで状態を返す
Do
DoEvents ‘ UIのフリーズを防ぎつつOSに制御を返す
‘ タイムアウト検知
If (Timer – startTime) > timeoutSeconds Then
‘ プロセス強制中断（APIレベルでの介入が必要な場合あり）
Err.Raise vbObjectError + 1000, “ExecuteRobustVideoExport”, “動画のレンダリングがタイムアウトしました。”
End If
conversionStatus = Pres.CreateVideoStatus
‘ デバッグ用（イミディエイトウィンドウに出力）
‘ Debug.Print “Rendering Status: ” & conversionStatus
If conversionStatus = ppMediaTaskStatusDone Then Exit Do
If conversionStatus = ppMediaTaskStatusFailed Then
Err.Raise vbObjectError + 1001, “ExecuteRobustVideoExport”, “PowerPointのエンジン内部で動画エンコードに失敗しました。”
End If
‘ CPU負荷軽減のためのスリープ（1秒毎にポーリング）
Application.Wait (Now + TimeValue(“0:00:01”))
Loop While conversionStatus = ppMediaTaskStatusInProgress Or conversionStatus = ppMediaTaskStatusQueued
End Sub
—
3. シニアエンジニアが押さえるべき「極限の知見」とアーキテクチャ上の注意点
実務の現場において、上記のコードを単にコピー＆ペーストするだけでは、環境依存のエラーやリソース枯渇に足元をすくわれる。以下の知見をシステム設計に組み込んでほしい。
① GUIレス（`WithWindow:=msoFalse`）の重要性
PowerPointのオートメーションにおいて、ウィンドウを表示させたままレンダリングを行うと、DirectX/Direct3Dの描画パイプラインがUIスレッドと競合し、処理速度が著しく低下する。さらに、OSの画面ロックやスクリーンセーバーが発動した瞬間にレンダリングが中断されるトラブルが多発する。
必ず `WithWindow:=msoFalse` でバックグラウンドインスタンスとして処理すること。
② コーデックとハードウェアアクセラレーションの依存性
`CreateVideo`メソッドが出力するMP4のエンコード品質は、実行環境のGPU（グラフィックボード）およびビデオドライバの性能に強く依存する。
- サーバーOS（Windows Server等）上でHeadless（ヘッドレス）実行する場合、GPUが認識されずにCPUエンコードとなり、処理時間が数倍に跳ね上がる、あるいは失敗することがある。
- 社内システムとして自動化基盤を構築する場合は、実行端末のGPUドライバが最新に保たれているか、あるいはハードウェアエンコードが無効化されていないかの検証が不可欠である。
③ 例外処理とCOMコンポーネントの参照リーク防止
VBAにおけるエラーハンドリングの鉄則として、エラー発生時にも必ず `Application.DisplayAlerts` や `ScreenUpdating` の状態を元に戻し、オブジェクト変数（`Set ~ = Nothing`）を解放しなければならない。さもないと、不可視のままのPowerPointプロセス（`POWERPNT.EXE`）がタスクマネージャーに常駐し続け、メモリリークを引き起こす。
本番運用では、必ず `On Error GoTo ErrorHandler` を実装し、クリーンアップ処理を共通化する構造を取り入れること。
—
総括
PowerPoint VBAによる動画一括エクスポートは、単なる「おまけの機能」ではない。適切な非同期ポーリング制御と、GPU/メモリリソースを意識したライフサイクル管理を施すことで、完全無人型の高精度映像生成パイプラインへと昇華させることが可能だ。
レガシーとモダンが交錯するVBAの世界において、システムを意図通りにコントロールするのは他ならぬアーキテクト自身の知見である。現場の自動化効率を極限まで高めてほしい。
