ActiveDocument.Shapes.AddShape(msoShapeRectangle, 80.25, 478.5, 39#, _
61.5).Select
ActiveDocument.Shapes.AddShape(msoShapeOval, 131.25, 487.5, 71.25, 48.75) _
.Select
ActiveDocument.Shapes.Range(Array("Oval 9", "Rectangle 8")).Select
Selection.ShapeRange.Group.Select
Прочитайте выше макрос