3.2导出和关闭演示文稿

这里讲的导出指的是讲幻灯片以图片或PDF文件等形式导出，有两种方法。[大谦Excel，dqexcel点com]

第一种方法是使用Presentation对象的Export方法将演示文稿中的每个幻灯片以指定格式的图片导出到指定目录下。该方法的语法格式为：

code.vba 
pr.Export Path, FilterName, ScaleWidth, ScaleHeight

其中，Path表示图片的保存路径，FilterName表示图片文件的扩展名，ScaleWidth和ScaleHeight表示图片的宽度和高度，单位为像素。

下面用Export方法将当前演示文稿中的幻灯片以png格式图片的形式保存到C盘下的Current Work目录下，图片带下为长和宽均为100像素。

code.vba 
Sub test()
  Dim pr As Presentation
  Set pr = Presentations.Open("D:\test.pptx")
  pr.Export Path:="D:\", FilterName:="jpg", ScaleWidth:=100, ScaleHeight:=100
End Sub

第二种方法是使用Presentation对象的ExportAsFixedFormat方法将当前演示文稿保存为指定格式的文档，如PDF文档、XPS文档等。该方法的语法格式为：

code.vba 
pr.ExportAsFixedFormat Path, FixedFormatType, Intent, FrameSlides, HandoutOrder, OutputType, PrintHiddenSlides, PrintRange, RangeType, SlideShowName, IncludeDocProperties, KeepIRMSettings, DocStructureTags, BitmapMissingFonts, UseISO19005_1, ExternalExporter

该方法的参数比较多，Path表示文档的保存路径，FixedFormatType表示文档导出格式，指为ppFixedFormatTypePDF或2时导出为PDF格式，值为ppFixedFormatTypeXPS或1时导出为XPS格式。

下面用ExportAsFixedFormat方法将当前演示文稿保存为PDF文档：

code.vba 
Sub test2()
  Dim pr As Presentation
  Set pr = Presentations.Open("D:\test.pptx")
  pr.ExportAsFixedFormat Path:="D:\test.pdf", Fixedformattype:=ppFixedFormatTypePDF ', PrintRange:=Nothing
End Sub

用Presentation对象的Close方法关闭演示文稿。

code.vba 
pr.Close