Группировка фигур

Question

Я создал три фигуры на основе пользовательских данных.Три формы выводят то, что похоже на катушку (фланцы + барабан).Я хочу, чтобы фигуры были сгруппированы так, чтобы при перемещении пользователя им не приходилось выбирать все три фигуры по отдельности.

В приведенном ниже коде первые три строки создают общую форму.Последняя строка - моя неудачная попытка сделать эти фигуры группой фигур.

Любая помощь по этому вопросу будет принята с благодарностью.Спасибо.

Sub AddShapeReel()

Dim s As Shape
Dim s1 As Shape
Dim s2 As Shape
Dim ws As Worksheet
Dim shpgroup
Set ws = Sheets("Deck Layout")

'add a shape

Set s = ws.Shapes.AddShape(msoShapeRectangle, 50, 50, Cells(26, 4) * 2.142857, Cells(28, 4) * 2.142857)
Set s1 = ws.Shapes.AddShape(msoShapeRectangle, 50 - ((Cells(30, 4) * 2.142857 - Cells(26, 4) * 2.142857) / 2), 49, Cells(30, 4) * 2.142857, 1)
Set s2 = ws.Shapes.AddShape(msoShapeRectangle, 50 - ((Cells(30, 4) * 2.142857 - Cells(26, 4) * 2.142857) / 2), Cells(28, 4) * 2.142857 + 50, Cells(30, 4) * 2.142857, 1)
Set shpgroup = ws.Shapes.Range(Array(s, s1, s2)).Group

end sub

Answer 1

Синтаксис, сгенерированный записанным макросом, выглядит примерно так после создания фигур:

ActiveSheet.Shapes.Range(Array("Rectangle 2", "Rectangle 3")).Select
Selection.ShapeRange.Group.Select

Предположительно, вы можете адаптировать его, выбирая и группируя фигуры, например:

ActiveSheet.Shapes.Range(Array(s, s1, s2)).Select
Selection.ShapeRange.Group

Хотя у меня не было возможности это подтвердить.