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については全くと言っていいほど知識がないため、途方に暮れております。

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

【77967】PowerPointファイルをmp4形式で保存したい。 初学者オクダ 16/2/21(日) 18:57 質問[未読]
【77968】Re:PowerPointファイルをmp4形式で保存した... ichinose 16/2/21(日) 19:15 発言[未読]
【77970】Re:PowerPointファイルをmp4形式で保存した... 初学者オクダ 16/2/21(日) 19:49 お礼[未読]
【77969】Re:PowerPointファイルをmp4形式で保存した... β 16/2/21(日) 19:39 発言[未読]
【77971】Re:PowerPointファイルをmp4形式で保存した... 初学者オクダ 16/2/21(日) 19:53 お礼[未読]

4390 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free