|
相談にのってください。お願いします。(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については全くと言っていいほど知識がないため、途方に暮れております。
どうすれば解決できるか、お知恵をお借りできますでしょうか。情報に不足があれば仰ってください。何卒よろしくお願いします。
|
|