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")