导言:在处理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内置的图片工具进行批量处理
操作步骤和ms一样
运行也一样,可以放到选项卡中,但是不能放到快速访问工具栏里面
我们点击任意一张图片,上方会出现“图片工具”选项卡,我们点开下拉菜单,选择“批量改尺寸”
这里既可以等比缩放,也可以自定义尺寸,只不过导出或者替换的话,需要开通会员
我们指定尺寸后,点击批量替换原图
默认情况图片是锁定了纵横比,可以点击这个小锁,取消图片的纵横比
善用vba宏批量操作文档可以极快地提升工作效率且不易出错,当然除了宏的方法,也可以下载安装一些word插件进行批量的操作,等接下来不管点赞到不到100,我会做一期word插件的讲解。对了,关注并给我私信,发送关键词“批量修改图片尺寸”即可下载练习文件和bas代码源文件哦!
如果觉得有所收获的话,希望点赞、收藏、评论、转发支持一下,你的支持对我很重要!
关注一闪流溢,每天都能get新技能!