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

3、在vba代码编译窗口输入以下代码,运行即可插入菱形形状。Sub Macro1() ActiveSheet.Shapes.AddShape Type:=msoSh锾攒揉敫apeDiamond, Left:=226.5, Top:=1275, Width:=112.5, Height:=174End Sub

时间:2024-10-11 19:30:18
1、点击开发工具下的VB编辑器进入vba代码编译窗口。
3、在vba代码编译窗口输入以下代码,运行即可插入菱形形状。Sub Macro1() ActiveSheet.Shapes.AddShape Type:=msoSh锾攒揉敫apeDiamond, Left:=226.5, Top:=1275, Width:=112.5, Height:=174End Sub