如何在 PowerPoint VBA 中按名称选择多个形状？

Question

对于 Slide.Shapes 中的每个形状，使用 Slide.Shapes("BOXNAME")

选择名为 BOXNAME 的框，如何按名称一次选择多个形状？

Answer 1

如果形状已分组，您可以通过选择组同时选择所有形状：

ActiveWindow.Selection.SlideRange.Shapes("Group 7").Select

否则，您可以创建形状名称数组，然后选择该数组：

ActiveWindow.Selection.SlideRange.Shapes.Range(Array("Oval 6", "Rectangle 4", "AutoShape 5")).Select