excel vba画一个圆

2024-12-03 10:46:18
推荐回答(1个)
回答(1):

Sub 宏1()
    Dim Sh As Shape
    Set Sh = ActiveSheet.Shapes.AddShape(msoShapeOval, 60, 60, 90, 90)
    Sh.Fill.ForeColor.RGB = RGB(255, 0, 0)
    Set Sh = Nothing
End Sub

把代码中的数字换成sheet2的单元格数据就可以了