将所有形状的幻灯片保存为单个JPG图像 [英] Save all Shapes of slide into single JPG image

问题描述

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

I have a small tool to export the pictures inside ppt documents to image files, so I can import them somewhere else. For this, I have been using the following piece of code:

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

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

However, in a different tool, I am required to export all the shapes of a slide at once, exactly like selecting them with the mouse, and clicking in "Save as image", which creates an image with all the shapes.

是否可以使用VBA做到这一点?我在网上找到的所有内容都是导出单个形状的示例(我已经知道).

Is there a way to do it using VBA? All I found online were examples of exporting single shapes (Which I already know).

推荐答案

对要导出的形状进行分组，然后导出所得的分组形状.

Group the shapes you want to export then export the resulting group shape.

这篇关于将所有形状的幻灯片保存为单个JPG图像的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！