怎么用vba宏代码在excel中插入十字形形状

1、点击开发工具下的VB编辑器进入vba代码编辑窗口。

2、在编辑器中插入新的模块。

3、在代码编辑窗口输入以下代码，运行即可插入十字形形状。

Sub Macro1()

    ActiveSheet.Shapes.AddShape Type:=msoShapeCross, Left:=134.25, Top:=102.75, Width:=321.75, Height:=305.25

End Sub