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

2、在编辑器中点击“插入”->“模块”,创建新的vba代码模块。

3、在代码编辑窗口输入以下代码,运行即可插入直角三角形。
Sub Macro1()
ActiveSheet.Shapes.AddShape Type:=msoShapeRightTriangle, Left:=957, Top:=722.25, Width:=226.5, Height:=139.5
End Sub

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

2、在编辑器中点击“插入”->“模块”,创建新的vba代码模块。

3、在代码编辑窗口输入以下代码,运行即可插入直角三角形。
Sub Macro1()
ActiveSheet.Shapes.AddShape Type:=msoShapeRightTriangle, Left:=957, Top:=722.25, Width:=226.5, Height:=139.5
End Sub
