word批量调整图片尺寸和位置，原文标题：如何批量更改word所有图片的方向。

导言：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

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

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

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

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

稍等片刻后

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

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

可以参考动图操作

总结时间

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

如果觉得有所收获的话，希望点赞、收藏、评论、转发支持一下，你的支持对我很重要！

关注一闪流溢，每天都能get新技能！

随机文章