导言：有些时候我们需要把文档中得支持批量放大或缩小，但是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新技能！
