プレゼン　トラのアナ

指定したフォルダにある全てのPPTファイルのスライドをJPG画像形式に変換します。

PPTファイルのスライドの画像をウェブページに掲載したり、パワーポイント環境のないパソコンでスライドを見てもらう際の応急的措置として、スライドを全て画像として出力する際に便利です。

Sub test()
    Dim myPP   As Presentation
    Dim i      As Long
    Dim myName As String
    With Application.FileSearch
        .FileName = "*"
        .FileType = msoFileTypePowerPointPresentations
        '下行で指定フォルダ名を変更してください
        'サンプルでは　Cルートフォルダが対象になります
        .LookIn = "c:\"
        .Execute
        For i = 1 To .FoundFiles.Count
            Set myPP = Presentations.Open(.FoundFiles(i))
            myName = Left(.FoundFiles(i), _
            Len(.FoundFiles(i)) - 3) & "jpg"
            myPP.SaveAs myName, ppSaveAsJPG, msoFalse
            myPP.Close
        Next
    End With
End Sub