批量生成 PowerPoint 演示文稿缩略图

去年说过一回 SWF 截图的事儿，今年又该给 PPT（Microsoft PowerPoint 演示文稿）截图了。

测试环境：

Windows 2000 SP4, PowerPoint 2000, Windows Script 5.6

任务描述：

某文件夹中存有多个 .ppt 文件，现欲将每个 .ppt 文件的第一页保存为同一文件夹下 320*240 像素大小的 JPEG 格式图片，图片文件主文件名仍使用相应 .ppt 主文件名。

解决方案：

将以下代码复制粘贴到“记事本”，保存至该文件夹中，命名为“ppthumb.vbs”，在“我的电脑”或“资源管理器”窗口中进入该文件夹，双击“ppthumb.vbs”即可（假设当前用户具备管理员权限）。

'' 导出当前文件夹下所有 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

请参考注释修改代码以适应其他情况，包括但不限于处理 .pps, .pptx 等其他文件名的演示文稿，使用其他尺寸，保存成其他图片格式等。

探索过程：

第一个想法， Windows Explorer 是怎么干的？如果有相应的 API，直接拿来用就是了。但是因为不怎么会用 Google，未找到满意答案，日后再研究和/或请教吧……

第二个想法，截图软件配合自动测试软件，重复从 Explorer 里截取缩略图的键鼠动作，怎么越来越麻烦啊~~~

第三个想法，再 Google 一下吧，看看有啥批处理的妙法。结果呢，就找到了这个：新春献礼，《PPT转图片&文本》开源发布。

刚一看这个脚本，我就想到了 HTA（看这里：Introduction to HTML Applications (HTAs) ），但是先不管这个。

该脚本功能可够强大的了，可以将 .ppt 文件的每一页都保存为图片，还可以把文字也导出来。然而我现在只想把每个 .ppt 文件的第一页保存成指定大小的图片，使用该脚本简直是牛刀杀鸡，太阿裁衣（自己编的）……于是，在参考了该脚本、Microsoft PowerPoint Visual Basic 参考（在 PowerPoint 程序的帮助里）和当初的 SWF 截图脚本以后，就得到了上文中的那个 VBScript 脚本。