1、点击开发工具下的VB编辑器进入vba代码编辑窗口。
2、在编辑器中插入新的模块。
3、在代码编辑窗口输入以下代码,运行即可对选中的形状进行旋转(更加旋转的角度需要修改Rotation的数值)。Sub Macro1() Selection.ShapeRange.Select Replace:=False Selection.ShapeRange.Rotation = 1606End Sub
时间:2024-10-12 07:59:21
1、点击开发工具下的VB编辑器进入vba代码编辑窗口。
2、在编辑器中插入新的模块。
3、在代码编辑窗口输入以下代码,运行即可对选中的形状进行旋转(更加旋转的角度需要修改Rotation的数值)。Sub Macro1() Selection.ShapeRange.Select Replace:=False Selection.ShapeRange.Rotation = 1606End Sub