vba - Powerpoint vba：如何按组名获取一组形状

Question

我将几个形状分组为一个组并为该组命名。

ShapesList("Shape 1", "Shape 2", "Shape 3")

set grp = ActivePresentation.Slides(SlidesName).Shapes.Range(ShapesList).Group
grp.Name = "GroupA"

那我可以得到 grp 吗？

set grp = ActivePresentation.Slides(SlidesName).Shapes.Range("GroupA") 'any method to do this?

Answer 1

你不需要.Range。尝试这个

Dim grp As Shape

Set grp = ActivePresentation.Slides(SlidesName).Shapes("GroupA")