luda
简介：处理调整word文档大小时，通常手动单击图片，然后调整图片的长宽值。但是，如果文件中有很多图片，这种手动调整方法似乎不太有用。现在可以通过宏处理、插件、图片替换等多种方式处理。本文介绍了如何使用宏功能大量修改图片大小。
经常使用宏的朋友可能对此更熟悉，但也可能有没有使用宏功能的朋友。不要着急，跟着左手右手的慢动作走。按照以下步骤，可以慢慢熟悉宏、VBA，并用于日常工作学习。(大卫亚设，Northern Exposure(美国电视剧)，如果你认为有收获，请称赞、收集、评论、转发支持！
本文分为两部分。
如何在Microsoft word中批量修改所有图片大小如何在wps中批量修改所有图片大小
下图显示了msword操作界面
第一步
在选项卡上的任意位置单击鼠标右键，然后选择“自定义功能区”、“开发工具”
第二阶段
在“开发工具”选项卡上，单击“visual basic”
第三阶段
然后会出现这个界面。点击“normal”，点击插入-模块，可以参考下面的动态图操作。
步骤4
接下来，在右侧的“代码”窗格中输入以下代码(您可以直接复制以下代码):
Sub闪存溢出修改图片大小()
Dim图片大小$、高度$、宽度$、图片As InlineShape
Set文件=Ac
On Error Resume Next
A=False
图片大小=InputBox('输入图片的大小(高度和宽度以空格分隔)' Chr(13)'高度''宽度' Chr(13)'示例3 5
34; & 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
A = True
MsgBox ("来自一闪流溢的提示：所有图片的尺寸都已经修改完毕")
End Sub
第五步
然后我们关闭这个窗口，按alt+F8弹出宏窗口，我们选择这个宏，点击运行
第六步
此时会弹出一个对话框，让你在里面输入 你想要的图片尺寸的高度和宽度，中间以空格隔开，注意，这里图片的单位是厘米。
比如我们现在要把所有图片的尺寸设置成高度为3厘米，宽度为5厘米，那么我们就要输入 3空格5 ，然后点击确定
第七步
静待片刻，然后会弹出一个对话框告诉你所有图片都已经修改完毕，点击确定，你会发现所有图片的尺寸都已经修改完成。
我们随便选中一个图片，检查下图片的尺寸，没用问题
第八步
如果你不想手动输入、粘贴的话，也可以导入现成的bas文件（关注并私信发送关键词“批量修改图片尺寸”下载），导入方法见下面的动图
第九步
除了每次按alt+f8打开宏以外，我们可以把这个宏放到选项卡或者工具栏中，方便我们使用，比如我们把这个宏放到工具栏里面：
1.我们首先右键选项卡任意位置，选择“自定义功能区”
2.点击左侧的“快速访问工具栏”
3.从下列位置选择命名，选择“宏”
4.点击我们修改图片的宏，点击添加
这样这个修改图片的宏就到了快速访问工具栏里面
等我们需要再修改图片尺寸的时候，点击这个按钮就可以了
wps也可以参考上面ms的方法（宏），与此同时，还可以使用wps内置的图片工具进行批量处理
vba宏方法
操作步骤和ms一样
运行也一样，可以放到选项卡中，但是不能放到快速访问工具栏里面
除了宏，wps内置工具也可以批量修改
我们点击任意一张图片，上方会出现“图片工具”选项卡，我们点开下拉菜单，选择“批量改尺寸”
这里既可以等比缩放，也可以自定义尺寸，只不过导出或者替换的话，需要开通会员
我们指定尺寸后，点击批量替换原图
默认情况图片是锁定了纵横比，可以点击这个小锁，取消图片的纵横比
总结时间
善用vba宏批量操作文档可以极快地提升工作效率且不易出错，当然除了宏的方法，也可以下载安装一些word插件进行批量的操作，等接下来不管点赞到不到100，我会做一期word插件的讲解。对了，关注并给我私信，发送关键词“批量修改图片尺寸”即可下载练习文件和bas代码源文件哦！
如果觉得有所收获的话，希望点赞、收藏、评论、转发支持一下，你的支持对我很重要！
关注一闪流溢，每天都能get新技能！