如何使用VBA在PowerPoint中“取消组合”图像

Question

我有一个带有图片（wmf / emp文件）的幻灯片的PowerPoint文件，我希望使用VBA“取消组合”其中的图像元素。

我需要两次问PowerPoint才能做到 - 但事实确实如此。

可以使用VBA完成吗？如果是的话，怎么样？

Answer 1

这很简单 - 来自帮助文件：

  

此示例取消组合任何分组   塑造和拆解任何图片   或myDocument上的OLE对象。

Set myDocument = ActivePresentation.Slides(1)
For Each s In myDocument.Shapes
    s.Ungroup
Next

您可能需要进行一些错误检查，如果它不能被取消分组，例如JPG，以及某些类型检查（即If s.Type = msoPicture...）

Answer 2

不是问题的直接答案，而是......

了解如何使用VBA自动化办公应用程序的最佳方法是record a macro and then look at the code that gets spit out。