1、点击开发工具下的VB编辑器进入vba代码编辑窗口。
2、在编辑器中插入新的模块。
3、在代码编辑窗口输入以下代码,运行即可插入圆形形状。Sub Macro1() ActiveSheet.Shapes.AddShape Type:=msoShapeOval, Left:=503.25, Top:=651, Width:=120.75, Height:=120.75End Sub
时间:2024-10-12 01:35:10
1、点击开发工具下的VB编辑器进入vba代码编辑窗口。
2、在编辑器中插入新的模块。
3、在代码编辑窗口输入以下代码,运行即可插入圆形形状。Sub Macro1() ActiveSheet.Shapes.AddShape Type:=msoShapeOval, Left:=503.25, Top:=651, Width:=120.75, Height:=120.75End Sub