Macro to draw a circle with radius value and position

[MarcoCaccio]

Hi everybody!

I just started to write some code in VBA and I´m looking for a macro to draw a circle with radius written in a cell.

I saw various codes but just to draw a generic circle not with specific radius.

Is it also possible to decide the circle position?

Thanks so much for any suggestion!

Marco

 

[MrIfOnly]

Something like this perhaps:

Radius = InputBox("Please enter the radius of the circle")

    With ActiveSheet.Shapes.AddShape(msoShapeOval, 100, 100, Radius * 2, Radius * 2)
        .Name = "CIRCLE1"
        .Fill.ForeColor.RGB = vbWhite
        .Line.Transparency = 0
        .Placement = 1
    End With

Regards,

CJ