鲁达 导言：有些时候我们需要把文档中的图片批量放大或缩小，但是word中无法直接批量调整，这就需要我们使用vba来进行操作。导入vba的方法可以参考《如何批量修改word所有图片的尺寸》。
我们勾选开发工具后，进入vb编辑器，在右面的代码窗口中输入
Sub 一闪流溢_按比例缩放全部图片()
On Error Resume Next
A = False
Dim 缩放比例$, 高度, 宽度, 图片 As InlineShape
Set 文档 = Ac
缩放比例 = InputBox("请输入图片缩放比例" & Chr(13) & "如果让所有图片变成 2 倍大小就输入 2 " & Chr(13) & "如果让所有图片变成 0.3倍大小 就输入 0.3", "来自一闪流溢的提示")
If 缩放比例 <> "" Then
For Each 图片 In 文档
图片.LockAspectRatio = msoTrue
高度 = 图片.Height
宽度 = 图片.Width
图片.Height = CentimetersToPoints(缩放比例 / 28.35 * 高度)
图片.Width = CentimetersToPoints(缩放比例 / 28.35 * 宽度)
Next
End If
A = True
MsgBox ("来自一闪流溢的提示：所有图片都已经按比例调整完毕")
End Sub
接下来关闭vb窗口
回到正文后，按alt+f8，选择“一闪流溢_按比例缩放全部图片”这个宏，点击运行
然后会弹出一个窗口
如果我们想把所有图片放大2倍就写入2，如果我们想把所有图片缩小，就输入缩小的倍数，比如我们想把图片缩小一半，就输入0.5
点击确定后，稍等片刻
接下来等到弹出一个窗口，会提示你全部缩放完毕
然后我们就发现所有的图片都已经按比例缩放完毕
总结时间
善用vba宏批量操作文档可以极快地提升工作效率且不易出错，关注并给我私信，发送关键词“批量缩放图片”即可bas代码源文件哦！
如果觉得有所收获的话，希望点赞、收藏、评论、转发支持一下，你的支持对我很重要！
关注一闪流溢，每天都能get新技能！