导言：word中我们可以单独设置一个图片的角度，但是有时候我们如果想设置所有图片的角度有没有什么好办法呢？答案就是vba操作，有的朋友一听vba，抱拳就要准备离开，别别别，其实vba使用起来不麻烦的，可以参考《如何批量修改word所有图片的尺寸》这篇文章的方法，3步就可以使用vba实现目的。

比如我们现在想让下面的图片全都顺时针旋转90度

那么我们的步骤如下

勾选开发工具后，进入vb编辑器，在右面的代码窗口中输入

Sub更改图片方向()

OnErrorResumeNext

Application.ScreenUpdating=0

Dim浮动图,嵌入图,旋转角度$

Set文档=ActiveDocument

旋转角度=InputBox("请输入你想要旋转的角度"Chr(13)"顺时针90度输入90"Chr(13)"逆时针度输入-")

For浮动图=1To文档.Shapes.Count

文档.Shapes(浮动图).IncrementRotation旋转角度

Next浮动图

For嵌入图=1To文档.Range.InlineShapes.Count

With文档.Range.InlineShapes(嵌入图).ConvertToShape

.WrapFormat.Type=4

.Rotation=旋转角度

.ConvertToInlineShape

EndWith

Next嵌入图

Application.ScreenUpdating=1

MsgBox("一闪流溢提示：旋转完毕")

EndSub

关闭vb窗口，按alt+F8，运行这个宏

接下来会弹出一个窗口让我们输入旋转的角度

这里要注意的是如果你想让图片逆时针旋转，那么就要输入负值

因为我们想让所有图片顺时针旋转90度，所以我们输入90

稍等片刻后

会弹出一个窗口，提示你所有图片旋转完毕

我们关掉窗口，就会看到所有的图片已经旋转了90度了

可以参考动图操作

总结时间

善用vba宏批量操作文档可以极快地提升工作效率且不易出错，

转载请注明:http://www.aideyishus.com/lkgx/4420.html