滴滴注册网站,邯郸网站建设找谁,如何制作一个报名微信小程序,网店代运营的公司有哪些搜到的代码,可能得自己改一下. 导出当前文件夹下所有 PowerPoint 演示文稿的第一张幻灯片 并以图形文件格式保存在当前文件夹下 变量声明和初始化Dim wShell, pptApp, fso, folder, file, slide, outFileSet wShell WScript.CreateObject(WScript.Shell) 获取当前…搜到的代码,可能得自己改一下. 导出当前文件夹下所有 PowerPoint 演示文稿的第一张幻灯片 并以图形文件格式保存在当前文件夹下 变量声明和初始化Dim wShell, pptApp, fso, folder, file, slide, outFileSet wShell WScript.CreateObject(WScript.Shell) 获取当前文件夹Set fso CreateObject(Scripting.FileSystemObject)Set folder fso.GetFolder(wShell.CurrentDirectory)Set fso NothingMsgBox(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 NextpptApp.Presentations(1).CloseEnd IfNext 退出 PowerPoint 应用程序pptApp.Quit 清理对象Set pptApp NothingSet wShell Nothing
