搜到的代码,可能得自己改一下.

'' 导出当前文件夹下所有 PowerPoint 演示文稿的第一张幻灯片

'' 并以图形文件格式保存在当前文件夹下

'' 变量声明和初始化

Dim wShell, pptApp, fso, folder, file, slide, outFile

Set wShell = WScript.CreateObject("WScript.Shell")

'' 获取当前文件夹

Set fso = CreateObject("Scripting.FileSystemObject")

Set folder = fso.GetFolder(wShell.CurrentDirectory)

Set fso = Nothing

'MsgBox(folder.Path)

'' 打开 PowerPoint 应用程序

Set pptApp = WScript.CreateObject("PowerPoint.Application")

pptApp.Activate

'' 遍历当前文件夹下所有文件

For Each file in folder.Files

'' 如果文件扩展名为 ppt(根据实际需要和 PowerPoint 程序版本，还可以是 pps, pptx 等)

If UCase(Mid(file.Name, InstrRev(file.Name, ".") + 1)) = "PPT" Then

' MsgBox(file.Name)

'' 设置输出文件名，此处使用原演示文稿名称

outFile = Trim(Left(file.Path, InStrRev(file.Path, ".") - 1)) & ".jpg"

' MsgBox(outFile)

pptApp.Presentations.Open file.Path

'' 此处只需要第一张幻灯片

Set slide = pptApp.ActivePresentation.Slides(1)

'' 如果需要导出多张幻灯片，使用如下循环

' For Each slide in pptApp.ActivePresentation.Slides.Range(1)

'' Export(String FileName, String FilterName, Long ScaleWidth, Long ScaleHeight)

'' FilterName 可以为 gif, jpg, png, bmp, wmf, tif 等。

slide.Export outFile, "jpg", 320, 240

' Next

pptApp.Presentations(1).Close

End If

Next

'' 退出 PowerPoint 应用程序

pptApp.Quit

'' 清理对象

Set pptApp = Nothing

Set wShell = Nothing