Question

我有一个小工具可以将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

但是，在另一个工具中，我需要一次导出幻灯片的所有形状，就像用鼠标选择它们一样，然后单击＆＃34;另存为图像＆＃34;，这将创建一个图像各种形状。

有没有办法使用VBA？我在网上找到的只是出口单一形状的例子（我已经知道）。

Answer 1

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

Answer 2

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

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

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

2 个答案: