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

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

3、在代码编辑窗口输入以下代码,运行即可对选中的形状进行旋转(更加旋转的角度需要修改Rotation的数值)。
Sub Macro1()
Selection.ShapeRange.Select Replace:=False
Selection.ShapeRange.Rotation = 1606
End Sub

时间:2026-02-14 02:24:36
1、点击开发工具下的VB编辑器进入vba代码编辑窗口。

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

3、在代码编辑窗口输入以下代码,运行即可对选中的形状进行旋转(更加旋转的角度需要修改Rotation的数值)。
Sub Macro1()
Selection.ShapeRange.Select Replace:=False
Selection.ShapeRange.Rotation = 1606
End Sub
