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

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

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

3、在vba代码编译窗口输入以下代码，运行即可插入菱形形状。

Sub Macro1()

    ActiveSheet.Shapes.AddShape Type:=msoShapeDiamond, Left:=226.5, Top:=1275, Width:=112.5, Height:=174

End Sub