word使图片按比例缩放的方法 word中图片显示不全怎么办 _word

导言：有些时候我们需要把文档中的图片批量放大或缩小，但是 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，选择“一闪流溢 _ 按比例缩放全部图片”这个宏，点击运行