Private Sub ringijoonistus_Click()
   ActiveSheet.Shapes.AddShape(msoShapeOval, Selection.Left, Selection.Top, 10, 10).Select
End Sub