word里图片怎样旋转,word图片无法旋转
导言:word中word里图片怎样旋转我们可以单独设置一个图片的角度word里图片怎样旋转,但是有时候我们如果想设置所有图片的角度有没有什么好办法呢?答案就是vba操作word里图片怎样旋转,有的朋友一听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代码源文件哦word里图片怎样旋转!
如果觉得有所收获的话,希望点赞、收藏、评论、转发支持一下,你的支持对我很重要!
关注一闪流溢,每天都能get新技能!