将幻灯片的所有形状保存到单个 JPG 图像中答案

【问题标题】：Save all Shapes of slide into single JPG image将幻灯片的所有形状保存到单个 JPG 图像中
【发布时间】：2018-10-19 19:16:21
【问题描述】：

我有一个小工具可以将ppt文档中的图片导出为图像文件，这样我就可以将它们导入到其他地方。为此，我一直在使用以下代码：

For Each slideShape In slide
    If slideShape.Type = msoPicture Then
        Call slideShape.Export(materialPresentation.Path & "\" & ecode & "_" & cont & ".jpg", ppSaveAsJPG)
        cont = cont + 1
    End If
Next slideShape

但是，在不同的工具中，我需要一次导出幻灯片的所有形状，就像用鼠标选择它们，然后单击“另存为图像”，这会创建一个包含所有形状的图像。

有没有办法使用 VBA 来做到这一点？我在网上找到的都是导出单个形状的示例（我已经知道了）。

【问题讨论】：

标签： vba ms-office powerpoint

【解决方案1】：

对要导出的形状进行分组，然后导出生成的组形状。

【讨论】：

【解决方案2】：

也可以通过 ShapeRange 导出（slide 是 Slide 对象），例如

slide.Shapes.Range().Export("C:\output.jpg", ppShapeFormatJPG)

【讨论】：