导言：有些时候我们需要把文档中得支持批量放大或缩小，但是word中无法直接批量调整，这就需要我们使用vba来进行操作。导入vba得方法可以参考《如何批量修改word所有支持得尺寸》。

我们勾选开发工具后，进入vb感谢器，在右面得代码窗口中输入

Sub 一闪流溢_按比例缩放全部支持()

On Error Resume Next

Application.ScreenUpdating = False

Dim 缩放比例$, 高度, 宽度, 支持 As InlineShape

Set 文档 = Activedocument.InlineShapes

缩放比例 = 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

Application.ScreenUpdating = True

MsgBox ("来自一闪流溢得提示：所有支持都已经按比例调整完毕")

End Sub

接下来关闭vb窗口

回到正文后，按alt+f8，选择“一闪流溢_按比例缩放全部支持”这个宏，运行

然后会弹出一个窗口

如果我们想把所有支持放大2倍就写入2，如果我们想把所有支持缩小，就输入缩小得倍数，比如我们想把支持缩小一半，就输入0.5

确定后，稍等片刻

接下来等到弹出一个窗口，会提示你全部缩放完毕

然后我们就发现所有得支持都已经按比例缩放完毕

总结时间

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

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

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