PowerPoint 動画エクスポート機能 マクロを活用した60FPS動画の制作

Question

PowerPointの「エクスポート⇒ビデオの作成」ないし「記録⇒ビデオにエクスポート」を利用すると、スライドをmp4ないしwmv形式に変換して保存できるため重宝しています。

ところが、既存の設定ではフレームレートが30FPS（正確にはmp4で30.3FPS）固定となっており、スライドショー再生時のアニメーションの滑らかさが失われてしまいます。そこで、60FPSで動画を作成する方法はないか考えたところ、マクロ機能を使用することで60FPSの動画がエクスポート出来る事例が多数報告されていたため、公開されているコードを参考にしてマクロを作成してみました。

しかし、実際に作成してみたところ、どうしても途中でエラーメッセージが出て失敗となります。色々と検証してみましたが、何が問題なのか原因が特定できませんでした。

そこで、皆様のお知恵を拝借したいと思います。宜しくお願い致します。

＜使用環境＞

OS:Windows 10 Home 64bit 22H2 19045.2364

CPU:Intel Core i7 4700MQ

Office:Microsoft PowerPoint for Microsoft 365 MSO (バージョン 2211 ビルド 16.0.15831.20098) 64 ビット

＜動画作成の為の元素材pptxファイル＞

スライド数:54枚

サイズ:30MB

アニメーション:あり

ミュージックの挿入:あり

ビデオの挿入:なし

＜使用コード＞

Sub PowerPointVideo()

If ActivePresentation.CreateVideoStatus <> ppMediaTaskStatusInProgress Then

ActivePresentation.CreateVideo FileName:=Environ("USERPROFILE") & "\Desktop\Your PowerPoint Video.wmv", _

UseTimingsAndNarrations:=True, _

VertResolution:=1080, _

FramesPerSecond:=60, _

Quality:=100

Else: MsgBox "There is another conversion to video in progress"

End If

End Sub

※コード引用元：https://s3.amazonaws.com/pptvideo/files/60-fps-ppt-macro-code.txt

＜エラー内容＞

＜デバッグ状況＞

＜エラー時のヘルプ内容＞

オートメーション エラーです (エラー 440) | Microsoft Learn

Answer 1

lundrarさん、こんにちは。

エラーメッセージで調べましたところ、以下で同じ質問している方がいました。

Please help with error '-2147467259 (80004005)' Method 'CreateVideo' of object '_Presentation' failed - Microsoft Q&A

( ※＜Edge の拡張機能の翻訳＞などをご利用下さい。)

参考になると良いのですが。

また、VBA に関するご質問ですと、VBA 専用のフォーラムがある開発者向けの＜Msdnフォーラム＞の方が情報が集まり易いと思います。

・Msdn フォーラム(VBA)

解決されない場合は、よろしければそちらにも投稿して情報を集めてみて下さいね。

※現在Msdnフォーラムは初回プロファイルを作成してから質問が出来るまで1日待つ制限がありますが、待機後に質問は可能となりますのでお待ちいただければと思います。

Answer 2

早速のご回答ありがとうございました。

今回まさにご案内の事例と全く同じ原因でした。修正したところ見事に生成に成功いたしました。

ありがとうございました。

なお、私も本来は別のところに質問すべきだったかも、と思ったのですが、VBAそのものは実はほぼ初心者だったので、開発者向けだとさすがにためらわれ、まずはこちらにと思った次第です。

大変助かりました。

重ねてお礼申し上げます。

ありがとうございました。