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