   Dim kujundid(3), abi As Shape, tekstikast As TextBox
    kujundid(0) = ActiveSheet.Shapes.AddShape(msoShapeRectangle, 300, 250, 150, 90).Name
    Set abi = ActiveSheet.Shapes.AddShape(msoShapeOval, 310, 260, 40, 40)
    abi.Line.Visible = msoFalse
    'Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13 'kollane
    abi.Fill.ForeColor.SchemeColor = 13 'kollane
    kujundid(1) = abi.Name
    Set abi = ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 410, 260, 40, 20)
    abi.Select
    Selection.Characters.Text = "Pike"
    abi.Line.Visible = msoFalse
    kujundid(2) = abi.Name
    Set abi = ActiveSheet.Shapes.AddShape(msoShapeRectangle, 305, 315, 100, 20)
    abi.Fill.ForeColor.SchemeColor = 17 'rohekas
    kujundid(3) = abi.Name
    ActiveSheet.Shapes.Range(kujundid).Select
    Selection.ShapeRange.Group.Select
End Sub
