您的位置 首页 > 职场江湖

【word文档打印照片怎么改尺寸】如何批量修改Word中所有图片的大小

简介:处理调整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新技能!

关于作者: luda

无忧经验小编鲁达,内容侵删请Email至wohenlihai#qq.com(#改为@)

热门推荐