word如何调整图片的方向|word如何将多张图片统一调整

word如何调整图片的方向|word如何将多张图片统一调整)

word如何调整图片的方向(word如何将多张图片统一调整

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

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

word如何调整图片的方向|word如何将多张图片统一调整

那么我们的步骤如下

勾选开发工具后,进入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

word如何调整图片的方向|word如何将多张图片统一调整

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

word如何调整图片的方向|word如何将多张图片统一调整

word如何调整图片的方向|word如何将多张图片统一调整

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

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

word如何调整图片的方向|word如何将多张图片统一调整

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

word如何调整图片的方向|word如何将多张图片统一调整

稍等片刻后

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

word如何调整图片的方向|word如何将多张图片统一调整

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

word如何调整图片的方向|word如何将多张图片统一调整

可以参考动图操作

word如何调整图片的方向|word如何将多张图片统一调整

总结时间

善用vba宏批量操作文档可以极快地提升工作效率且不易出错,关注并给我私信,发送关键词“批量旋转图片”即可bas代码源文件哦!

推荐阅读