Sub Show_Click()

  Dim angle As Integer, r As Double
  Dim centerX, centerY As Integer
  
  Const Pi = 3.1415926
  Const a = 100
  
  centerX = ActiveWindow.Width / 2
  centerY = ActiveWindow.Height / 4
  
  For angle = 0 To 359
    r = 1 - Cos(angle / (180 / Pi))
    ActiveSheet.Shapes.AddShape(msoShapeOval, centerX + a * (r * Cos(angle / (180 / Pi))), centerX + a * (r * Sin(angle / (180 / Pi))), 2#, 2#).Select
  Next angle
    
End Sub

' Clear - для удаления всех точек, образующих график, с листа Excel
Sub Clear_Click()

  Dim shp As Shape
  For Each shp In ActiveWorkbook.ActiveSheet.Shapes
    If shp.AutoShapeType = msoShapeOval Then shp.Delete
  Next shp
  
End Sub