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