vba add shape oval code example

Example: vba add shape oval

Sub LeCercle()
  Dim Rayon As Single
  Rayon = 50
  ActiveSheet.Shapes.AddShape msoShapeOval, [C3].Left, [C3].Top, Rayon, Rayon
End Sub