如何用vba在excel工作表中插入圆？

在 如何在excel中插入圆形？ 一文中，我们介绍了如何通过操作插入一个圆形。

在vba中可以用Shapes集合对象的AddShape方法插入图形。

AddShape方法的语法如下：

expression. AddShape( _Type_ , _Left_ , _Top_ , _Width_ , _Height_ )

其中Type参数表示要插入的图形的类型，具体的参数值可以见图形类型。

比如以下的代码将在工作表中插入一个圆形：

Sub QQ1722187970()
    Dim oSP As Shape
    Dim oWK As Worksheet
    Set oWK = Excel.ActiveSheet
    '插入一个半径为25Point的圆
    Set oSP = oWK.Shapes.AddShape(msoShapeOval, 100, 100, 50, 50)
End Sub

其中msoShapeOval表示插入一个椭圆，将AddShape方法的Width和Height属性设置为相同的值，既可以变成插入圆形。