Office中国论坛/Access中国论坛

标题: 【源码】VBA自动将PPT演示文稿导出为一张张的图片 [打印本页]

作者: tmtony 时间: 2015-7-11 09:00
标题: 【源码】VBA自动将PPT演示文稿导出为一张张的图片
因自己需要，要自动将Powerpoint演示文稿导出为一张张的图片（如对方没有安装PPT，但要查看文稿的内容），通过以下VBA代码就可轻松实现。

应用于 Presentation对象。

本示例将当前演示文稿保存为 Microsoft PowerPoint 演示文稿，然后将其中的每个幻灯片导出为可移植网络图形 (PNG) 文件并保存在 Current Work 文件夹中。本示例还将每个导出的幻灯片的高度和宽度均设为 100 像素。

With ActivePresentation       .SaveAs FileName:="c:\工作目录\年度销售报告", _
         FileFormat:=ppSaveAsPresentation
.Export Path:="c:\工作目录", FilterName:="png", _
   ScaleWidth:=100, ScaleHeight:=100
End With

应用于 Slide对象。

本示例将当前演示文稿中第三张幻灯片以 JPEG 图形格式导出到磁盘上。该幻灯片将保存为 Slide 3 of Annual Sales.jpg。

With Application.ActivePresentation.Slides(3)
   .Export "c:\my documents\图片\" & _
         "销售报告第2页", "JPG"
End With

应用于 Slide 和 SlideRange对象的 Export方法。

使用指定的图形筛选器导出一张幻灯片或幻灯片范围，并将导出的文件以指定的文件名保存。

expression.Export(FileName, FilterName, ScaleWidth, ScaleHeight)

expression  必选。该表达式返回上述对象之一。

FileName  必选。String 类型。将导出并保存到磁盘的文件的名称。可以包括完整路径；如果不包括完整路径，Microsoft PowerPoint 在当前文件夹中创建一个文件。

FilterName  必选。String 类型。要导出幻灯片的图形格式。指定的图形格式必须已在 Windows 注册表中注册一个输出筛选器。可以指定注册的文件扩展名或筛选器名称。PowerPoint 首先在注册表中搜索匹配的文件扩展名。如果没有找到与指定字符串匹配的扩展名，PowerPoint 将查找匹配的筛选器名称。

ScaleWidth  可选。Long 类型。导出的幻灯片的宽度（以像素为单位）。

ScaleHeight  可选。Long 类型。导出的幻灯片的高度（以像素为单位）。

说明

导出一个演示文稿不会将演示文稿的Saved属性值设为 True。

PowerPoint 使用指定的图形筛选器保存每张单独的幻灯片。导出并保存到磁盘的幻灯片的名称由 PowerPoint 决定。通常情况下，这些文件保存为 Slide1.wmf、Slide2.wmf 等。保存文件的路径在 FileName参数中指定。

应用于 Presentation对象的 Export方法。

使用指定的图形筛选器导出演示文稿中的每张幻灯片，并将导出的文件保存在指定的文件夹中。

expression.Export(Path, FilterName, ScaleWidth, ScaleHeight)

expression  必选。该表达式返回一个Presentation对象。

Path  必选。String 类型。保存导出幻灯片的文件夹所在路径。可以包括完整路径；如果不包括完整路径，Microsoft PowerPoint 在当前文件夹中为导出的幻灯片创建一个子文件夹。

FilterName  必选。String 类型。要导出的幻灯片的图形格式。指定的图形格式必须在 Windows 注册表有注册的输出筛选器。可以指定注册的扩展名或筛选器名称。PowerPoint 首先在注册表中搜索匹配的扩展名。如果没有找到与指定字符串匹配的扩展名，PowerPoint 将查找匹配的筛选器名称。

ScaleWidth  可选。Long 类型。导出的幻灯片的宽度（以像素为单位）。

ScaleHeight  可选。Long 类型。导出的幻灯片的高度（以像素为单位）。

说明

导出一个演示文稿不会将演示文稿的Saved属性值设为 True。

PowerPoint 使用指定的图形筛选器保存演示文稿中每张单独的幻灯片。导出并保存到磁盘的幻灯片的名称由 PowerPoint 决定。通常情况下，这些文件保存为 Slide1.wmf、Slide2.wmf 等。保存文件的路径在 Path参数中指定。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)