Shape.Export 方法 (PowerPoint)

项目
01/17/2024

使用指定的图形筛选器导出形状，并将导出的文件保存在指定的文件名下。

语法

表达式。导出 (参数)

expression 一个代表 Shape 对象的变量。

参数

名称	必需/可选	数据类型	说明
PathName	必需	String	将导出并保存到磁盘的文件的名称。可以包括完整路径；如果不包括完整路径，Microsoft PowerPoint 就会在当前文件夹中创建一个文件。以磅为单位指定阴影水平移动的距离。正值使阴影向右移动，负值使阴影向左移动。
筛选	必需	PpShapeFormat	用于创建导出图像文件的图形筛选器。
ScaleWidth	可选	长型	图像的宽度（以磅为单位）。默认值为幻灯片宽度。
ScaleHeight	可选	长型	图像的高度（以磅为单位）。默认值为幻灯片高度。
ExportMode	可选	ppExportMode	缩放方法在创建导出的图像文件时使用。如果未指定，则尺寸将相对于幻灯片的大小进行缩放。

枚举

PpShapeFormat 枚举 (PowerPoint)

名称	值	说明
ppShapeFormatBMP	3	位图
ppShapeFormatEMF	5	增强型图元文件
ppShapeFormatGIF	0	静态 GIF
ppShapeFormatJPG	1	压缩的 JPG
ppShapeFormatPNG	2	无损 PNG
ppShapeFormatSVG	6	可缩放矢量图形
ppShapeFormatWMF	4	Windows Metafile

ExportMode 枚举 (PowerPoint)

名称	值	说明
ppClipRelativeToSlide	2	保留以备今后使用
ppRelativeToSlide	1	相对于幻灯片的尺寸缩放图像
ppScaleToFit	3	保留以备今后使用
ppScaleXY	4	保留以备今后使用

备注

PowerPoint 使用指定的图形筛选器保存每个形状。导出并保存到磁盘的形状的名称由 PathName 参数确定，该参数应包括所选图形筛选器的相应文件扩展名。

ScaleWidth 和 ScaleHeight 参数用于相对于幻灯片尺寸缩放导出的图像大小。例如，如果在幻灯片上创建了一个普通的 1 英寸方形形状，它将在对象模型中测量为 72x72 磅。在不使用任何比例因子的情况下导出时，将应用默认比例 1：1，PowerPoint 将使用 96DPI 创建 96x96 像素图像。如果使用比例因子 2x，如以下示例 2 所示，则导出的图像将为 192x192 像素。

如果未完全下载幻灯片和/或形状，此方法将失败并发生错误。有关分部文档的详细信息，请参阅使用分部文档。

在 macOS 上从 PowerPoint 导出时，必须在 Office 沙盒文件夹或 PowerPoint 沙盒文件夹中创建文件：

/Users/[username]/Library/Group Containers/UBF8T346G9.Office /Users/[username]/Library/Containers/com.microsoft.Powerpoint/Data

如果尝试在这些沙盒位置之外使用路径，则会引发自动化错误。

可用性

SVG 筛选器在 Windows 版本 2302 及更高版本上可用。

导出方法在 16.82 版及更高版本的 macOS 上可用。

示例

以下示例将活动演示文稿中的所有 SVG 形状作为 SVG 文件导出到用户的“图片”文件夹。默认 的 PpRelativeToSlide 值用于 ExportMode 参数，这意味着导出的图像将为


For Each oSld In ActivePresentation.Slides
    For Each oShp In oSld.Shapes
        If oShp.Type = msoGraphic Then
            FileName = oShp.Name & ".svg"
            PathToFolder = Environ("USERPROFILE") & "\Pictures\"
            oShp.Export PathToFolder & FileName, ppShapeFormatSVG
        End If
    Next
Next

以下示例使用缩放功能以相对于幻灯片的大小导出所选对象。在本例中，幻灯片是标准 16：9 大小，即 960x540 磅。导出的图像是在幻灯片上创建的，其大小是其大小的两倍。


PathToFile = Environ("USERPROFILE") & "\Pictures\export.png"

With ActiveWindow.Selection.ShapeRange(1)
        .Export PathToFile, ppShapeFormatPNG, 1920, 1080, ppRelativeToSlide
End With