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

3、在代码编辑窗口输入以下代码,运行即可插入剪去单角的矩形。Sub Macro1() ActiveSheet.Shapes.AddShape Type:=msoShapeSnip1Rectangle, Left:=168.75, Top:=46.5, Width:=204.75, Height:=110.25 .SelectEnd Sub

时间:2024-10-20 17:03:56
1、点击开发工具下的VB编辑器进入vba代码编辑窗口。
3、在代码编辑窗口输入以下代码,运行即可插入剪去单角的矩形。Sub Macro1() ActiveSheet.Shapes.AddShape Type:=msoShapeSnip1Rectangle, Left:=168.75, Top:=46.5, Width:=204.75, Height:=110.25 .SelectEnd Sub