发布网友
共2个回答
热心网友
Sub a()
Dim a, b, c
a = InputBox("请输入水平距离!")
b = InputBox("请输入垂直距离!")
c = InputBox("请输入半径!")
ActiveSheet.Shapes.AddShape(msoShapeOval, a, b, c, c).Select
End Sub
热心网友
“插入”——“形状”——选“圆形的那个”,随便插画一个,之后右键点击画好的圆,选择“大小和属性”,在“”高度“宽度”输入直径数值就好了。。