End If 

Dim intTurn As Integer 

intTurn = InputBox("请输入图形要旋转的角度值" & vbCrLf & "正数表示顺时针，负数表示逆时针。", "图形旋转", 30) 

Selection.ShapeRange.IncrementRotation intTurn 

End Sub 

相关文章：word常见问题汇总|word工具栏隐藏显示

上述就是wordvba编程代码大全，可以给你更高的使用效率，想知道更多的教程继续的关注系统吧哦。