导言：word中我们可以单独设置一个图片的角度，但是有时候我们如果想设置所有图片的角度有没有什么好办法呢？答案就是vba操作，有的朋友一听vba，抱拳就要准备离开，别别别，其实vba使用起来不麻烦的，可以参考《如何批量修改word所有图片的尺寸》这篇文章的方法，3步就可以使用vba实现目的。
比如我们现在想让下面的图片全都顺时针旋转90度
那么我们的步骤如下
勾选开发工具后，进入vb编辑器，在右面的代码窗口中输入Sub 更改图片方向()
On Error Resume Next
Application.ScreenUpdating = 0
Dim 浮动图, 嵌入图, 旋转角度$
Set 文档 = ActiveDocument
旋转角度 = InputBox("请输入你想要旋转的角度" & Chr(13) & "顺时针90度输入 90" & Chr(13) & "逆时针170度输入 -170")
For 浮动图 = 1 To 文档.Shapes.Count
文档.Shapes(浮动图).IncrementRotation 旋转角度
Next 浮动图
For 嵌入图 = 1 To 文档.Range.InlineShapes.Count
With 文档.Range.InlineShapes(嵌入图).ConvertToShape
.WrapFormat.Type = 4
.Rotation = 旋转角度
.ConvertToInlineShape
End With
Next 嵌入图
Application.ScreenUpdating = 1
MsgBox ("一闪流溢提示：旋转完毕")
End Sub
这里要注意的是如果你想让图片逆时针旋转，那么就要输入负值
因为我们想让所有图片顺时针旋转90度，所以我们输入90
会弹出一个窗口，提示你所有图片旋转完毕
我们关掉窗口，就会看到所有的图片已经旋转了90度了
可以参考动图操作
善用vba宏批量操作文档可以极快地提升工作效率且不易出错，关注并给我私信，发送关键词“批量旋转图片”即可bas代码源文件哦！
