Private Sub joonis1_Click()
  Dim kujundid(1)
  kujundid(0) = ActiveSheet.Shapes.AddShape(msoShapeRectangle, 300, 100, 100, 100).Name
  kujundid(1) = ActiveSheet.Shapes.AddLine(350, 120, 350, 180).Name
  ActiveSheet.Shapes.Range(kujundid).Select
  Selection.ShapeRange.Group.Select
End Sub