質問: 1つのフォルダ内に、大量のPowerPointファイルがあり、 一括で2ページ目のみを「jpg」ファイルに変換を行いたいと思っています。 ・フォルダ内に100以上のPowerPointファイルがある ・全てのPowerPointファイル内のページ目のみjpg保存 色々と方法を検索してみたのですがやり方が分からず・・・ windows環境でできる方法をご教示いただきたいです。
回答: 一括で自動変換するのでしたら、マクロ処理になります。 [開発]タブの[Visual Basic]から開くウィンドウの[挿入]-[標準モジュール]から表示される白紙部分に以下を記述し、そのウィンドウを閉じます。Sub Test() Const FPath As String = "C:\aaa\bbb" '※1(下記) Const myDir As String = "C:\mmm\nnn" '※2(下記) Dim FName As String, SAV As String Application.WindowState = ppWindowMinimized FName = Dir$(FPath & "\*.ppt*") Do While FName <> "" Presentations.Open FPath & "\" & FName SAV = Left(FName, InStrRev(FName, ".") - 1) Presentations(FName).Slides(2).Export _ FileName:=myDir & "\" & SAV & ".jpg", FilterName:="jpg" Presentations(FName).Close FName = Dir$ Loop Application.WindowState = ppWindowMinimized MsgBox "処理完了です" End Sub※1:ここで、元ファイルのフォルダを指定してください。 ※2:ここで、画像保存先のフォルダを指定してください。 ↓ [開発]タブの[マクロ]から上記マクロを指定して[実行]します。 (メモ) 100以上のファイルを処理するテストはしていませんが、時間は多少かかります。ページ数が多いファイルが多いと開くのに時間がかかりますので、全体の処理時間はより長くなるでしょう。 [完了]のメッセージが出たら、※2で指定したフォルダを開いてみてください。 なお、Presentations(FName).Slides(2).Export の( )内で2ページ目を指定しています。 先頭ページをしていする場合は、(1)にします。