Переименование Shape Group - небольшая проблема

Question

Я сгруппировал фигуры на листе со следующими кодами

Activesheet.drawing objects.Group

Теперь я хочу переименовать имя группы, но я не нахожу код.

Я попробовал следующее:

Set shpGroup = ActiveSheet.Shapes(Application.Caller)
shpGroup.ParentGroup.Name = "MyGroup"

также пробовал следовать

Activesheet.group.select
selection.name = "MyGroup"

Спасибо

Answer 1

Вы можете обратиться к коллекции GroupObjects. Следующий код назовет последнюю группу фигур, которые вы сгруппировали ...

With ActiveSheet
    .GroupObjects(.GroupObjects.Count).Name = "MyGroup"
End With