Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

4390 / 76734

←次へ　｜　前へ→


	【77967】PowerPointファイルをmp4形式で保存したい。

初学者オクダ - 16/2/21(日) 18:57 -


	引用なし

	パスワード

相談にのってください。お願いします。（Excel、PowerPointともに2013）
現在、ExcelVBAから特定フォルダ内のPowerPointをすべてmp4形式に変換しようと作業を進めております。
まずは1ファイルから、、、ということでインターネットの情報を見よう見まねでこのようなコードを打ってみましたがうまく動きません。
（SaveAs　列挙値が無効です、というメッセージでます。）

---------------------------------------------------------
ExcelのシートにコマンドボタンMP4を準備。クリックして実行。

Private Sub MP4_Click()

　　Dim objPPT As Object
　　Dim myPre As Object
　　
　　'ppt起動
　　Set objPPT = CreateObject("PowerPoint.Application")
　　
　　'ファイル開く
　　Set myPre = objPPT.Presentations.Open("ファイルA.pptx", True)
　　
　　'★★★★ファイルの保存（ここで実行エラー）★★★★★★
　　objPPT.ActivePresentation.SaveAs FileName:="ファイルB.mp4", FileFormat:=ppSaveAsMP4
　
End Sub
--------------------------------------------------
objPPT.ActivePresentation.SaveAs FileName:="ファイルB.pptx"
の場合には上手くいったので、あとは引数かなといじってみたところエラーになってしまいます。PowerPointVBAについては全くと言っていいほど知識がないため、途方に暮れております。

どうすれば解決できるか、お知恵をお借りできますでしょうか。情報に不足があれば仰ってください。何卒よろしくお願いします。

2 hits

▼

【77967】PowerPointファイルをmp4形式で保存したい。 初学者オクダ 16/2/21(日) 18:57