word批量调整图片大小(批量修改word所有图片的尺寸步骤)

在处理word文档调整图片尺寸的时候，我们通常是手动点击某张图片，然后调节图片的长宽数值。但是如果文档中有很多图片，这种手动调整的方法就显得不那么好用了。此时我们可以采用宏处理、插件法、图片替换法等多种方法处理，本篇文档将介绍如何使用宏功能来实现批量修改图片尺寸的目的。

经常使用宏的朋友可能对此比较了解，不过也可能有朋友没用过宏功能，别着急，跟着我左手右手一个慢动作，按照下面的步骤操作，你绝对会对宏、vba慢慢熟悉并在日常工作学习中使用起来。如果你觉得有所收获的话，希望点赞、收藏、评论、转发支持一下哦！

本文分为两部分：

• 微软word中如何批量修改所有图片尺寸

• wps中如何批量修改所有图片尺寸

下图所示为msword操作界面

第一步

我们右键“选项卡”任意位置，选择“自定义功能区”，勾选“开发工具”

第二步

点击“开发工具”选项卡的“visual basic”

第三步

然后会出现这个界面，我们点击“normal”，点击插入-模块，可参考下面的动图操作

第四步

接下来我们在右侧的代码窗口输入下列代码（你可以直接把下面的代码复制进去）：

Sub 一闪流溢修改图片尺寸()

Dim 图片尺寸$, 高度$, 宽度$, 图片 As InlineShape

Set 文档 =
ActiveDocument.InlineShapes

On Error Resume Next

Application.ScreenUpdating = False

图片尺寸 = InputBox(" 输入图片的尺寸( 高度和宽度之间以空格隔开 )" & Chr(13) & " 高度" & " " & "宽度" & Chr(13) & " 示例 3 5" & Chr(13) & "（所有图片调成高度3厘米 宽度5厘米）" & Chr(13) & "")

高度 = Split(图片尺寸, " ")(0)

宽度 = Split(图片尺寸, " ")(1)

If 图片尺寸 <> "" Then

For Each 图片 In 文档

图片.LockAspectRatio = msoFalse

图片.Height = 28.35 * 高度

图片.Width = 28.35 * 宽度

Next

End If

Application.ScreenUpdating = True

MsgBox ("来自一闪流溢的提示：所有图片的尺寸都已经修改完毕")

End Sub

第五步

然后我们关闭这个窗口，按alt+F8弹出宏窗口，我们选择这个宏，点击运行

第六步

此时会弹出一个对话框，让你在里面输入 你想要的图片尺寸的高度和宽度，中间以空格隔开，注意，这里图片的单位是厘米。

比如我们现在要把所有图片的尺寸设置成高度为3厘米，宽度为5厘米，那么我们就要输入 3空格5 ，然后点击确定

第七步

静待片刻，然后会弹出一个对话框告诉你所有图片都已经修改完毕，点击确定，你会发现所有图片的尺寸都已经修改完成。

我们随便选中一个图片，检查下图片的尺寸，没用问题

第八步

如果你不想手动输入、粘贴的话，也可以导入现成的bas文件（关注并私信发送关键词“批量修改图片尺寸”下载），导入方法见下面的动图

第九步

除了每次按alt+f8打开宏以外，我们可以把这个宏放到选项卡或者工具栏中，方便我们使用，比如我们把这个宏放到工具栏里面：

1.我们首先右键选项卡任意位置，选择“自定义功能区”

2.点击左侧的“快速访问工具栏”

3.从下列位置选择命名，选择“宏”

4.点击我们修改图片的宏，点击添加

这样这个修改图片的宏就到了快速访问工具栏里面

等我们需要再修改图片尺寸的时候，点击这个按钮就可以了

wps也可以参考上面ms的方法（宏），与此同时，还可以使用wps内置的图片工具进行批量处理

vba宏方法

操作步骤和ms一样

运行也一样，可以放到选项卡中，但是不能放到快速访问工具栏里面

除了宏，wps内置工具也可以批量修改

我们点击任意一张图片，上方会出现“图片工具”选项卡，我们点开下拉菜单，选择“批量改尺寸”

这里既可以等比缩放，也可以自定义尺寸，只不过导出或者替换的话，需要开通会员

我们指定尺寸后，点击批量替换原图

默认情况图片是锁定了纵横比，可以点击这个小锁，取消图片的纵横比