在 vba 代码中使用 Microsoft PP 函数？
Using Microsoft PP Functions in vba code?
我为 PowerPoint 写了一个 vba 宏。一切正常，但我错过了一步。
到目前为止，我的宏通过选择幻灯片上的一组特定形状而结束。完成后，我返回 PowerPoint 并使用 "Group" 按钮将所选形状组成一个组。
如何在我的代码中使用这个 Micorsoft Group 函数。我只能设法将幻灯片上的所有形状归为一组，否则会出现错误。
我试过：
ActivePresentation.slide(1).shapes.selected.group
但这不起作用。
我读过这个：
How do I group a set of shapes programmatically in excel 2007 vba?
但是几个形状的名称是相同的，所以这实际上行不通。而且我不知道如何将形状的索引号存储到变量中 - 这将是解决我的问题的第二种选择。
基本上，Microsoft 自己的功能完全可以满足我现在的需要，对吧？我采用选定的形状并将它们分组到一个组中。我可以只在我的宏中调用这个函数吗？
非常感谢您的帮助。
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
如果您已经选择了形状，那么应该这样做：
Activewindow.Selection.ShapeRange.Group
我为 PowerPoint 写了一个 vba 宏。一切正常，但我错过了一步。
到目前为止，我的宏通过选择幻灯片上的一组特定形状而结束。完成后，我返回 PowerPoint 并使用 "Group" 按钮将所选形状组成一个组。
如何在我的代码中使用这个 Micorsoft Group 函数。我只能设法将幻灯片上的所有形状归为一组，否则会出现错误。
我试过： ActivePresentation.slide(1).shapes.selected.group 但这不起作用。
我读过这个：
How do I group a set of shapes programmatically in excel 2007 vba?
但是几个形状的名称是相同的，所以这实际上行不通。而且我不知道如何将形状的索引号存储到变量中 - 这将是解决我的问题的第二种选择。
基本上，Microsoft 自己的功能完全可以满足我现在的需要，对吧？我采用选定的形状并将它们分组到一个组中。我可以只在我的宏中调用这个函数吗？
非常感谢您的帮助。
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
如果您已经选择了形状，那么应该这样做：
Activewindow.Selection.ShapeRange.Group