在vba代码中使用Microsoft PP函数？

Question

我为PowerPoint编写了一个vba宏。一切顺利，但我错过了一步。

到目前为止，我的宏通过在幻灯片上选择一组形状来结束。完成后，我返回PowerPoint并使用“组”按钮从所选形状中创建一个组。

如何在我的代码中使用此Micorsoft Group功能。我只设法将幻灯片上的所有形状分组到一个组，否则我会收到错误。

我试过： ActivePresentation.slide（1）.shapes.selected.group 但这不起作用。

我读过这个：

How do I group a set of shapes programmatically in excel 2007 vba?

但是几个形状的名称是相同的，所以这不起作用。而且我不知道如何将形状的索引号存储到变量中 - 这将是解决我的问题的第二个选项。

基本上，微软自己的功能正是我现在所需要的，对吧？我获取所选的形状并将它们分组到一个组。我可以在我的宏中调用此函数吗？

非常感谢您的帮助。

Answer 1

如果您已选择了形状，那么应该这样做：

Activewindow.Selection.ShapeRange.Group

Answer 2

ActivePresentation.Slides(1).Shapes.Range(Array(2, 3, 4)).Group

ActivePresentation.Slides(1).Shapes.Range(Array("this", "that", "other")).Group

ActivePresentation.Slides(1).Shapes.Range(Array("this", 42, 3)).Group