编按:本文主要介绍了Word文档使用VBA代码批量调整图片尺寸的方法。一起来看看吧!
今天要跟大家分享的案例是一位小伙伴工作上遇到的问题。
我们先来模拟小伙伴说的问题,打开一份空白的Word文档,从插入选项卡中找到图片所在文件夹,全选图片,批量插入到文档中。因为照片尺寸不统一,所以每页存放图片数量也是不一样的。
图片全部插入到文档中的效果如下图。
大家可能会想到使用F4键进行重复设置图片大小。先选中一个图片,点击鼠标右键设置图片大小和位置,取消锁定纵横比,高度和宽度设定一个自己期望的值。接着依次选中其他图片按F4键就可以重复操作了(部分笔记本电脑可能需要按Fn+F4键)。只要你F4键按的快,图片批量处理剩下的就是时间问题。
如果要设置的图片数量不多的话,按F4键一定是最优的选择。但是小伙伴说她有一堆照片,这个一堆就非常过分了,于是我实在忍不了,站出来用VBA来批量处理了。
操作方法如下:
从【开发工具】选项卡中找到【VisualBasic】按钮,单击进入VBE编辑器,插入模块,将下面的VBA代码复制、粘贴到模块中去,最后执行宏即可自动将文档中所有的图片批量设置指定大小了。
短划线中间为VBA代码内容。
Sub 指定图片大小() '设置图片大小
Dim n '图片个数
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片
ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为 400px
ActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度 300px
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片
ActiveDocument.Shapes(n).Height = 400 '设置图片高度为 400px
ActiveDocument.Shapes(n).Width = 300 '设置图片宽度 300px
Next n
End Sub
如果想让图片等比例缩放可以使用下面的VBA代码来处理:
Sub 等比例缩放图片() '设置图片大小
Dim n '图片个数
Dim picwidth
Dim picheight
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片
picheight = ActiveDocument.InlineShapes(n).Height
picwidth = ActiveDocument.InlineShapes(n).Width
ActiveDocument.InlineShapes(n).Height = picheight * 0.5 '设置高度为0.5倍
ActiveDocument.InlineShapes(n).Width = picwidth * 0.5 '设置宽度为0.5倍
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片
picheight = ActiveDocument.Shapes(n).Height
picwidth = ActiveDocument.Shapes(n).Width
ActiveDocument.Shapes(n).Height = picheight * 0.5 '设置高度为0.5倍
ActiveDocument.Shapes(n).Width = picwidth * 0.5 '设置宽度为0.5倍
Next n
End Sub
操作方法如下:
等比例缩放的代码和前面指定尺寸代码有什么区别呢?
以演示素材中的西瓜图片尺寸为例,调整后的图片尺寸是调整前的0.5倍。因此,这里大家可以根据自己的实际需求灵活调整,比如等比例放大或者缩小图片都是可以的。
好了,以上就是今天跟大家分享的内容,感谢大家耐心看完,希望大家能够喜欢,别忘了分享哦~
本期教程就到这里,我们下期再见!
做Word大神,快速提升工作效率,部落窝教育《Word极速贯通班》直播课全心为你!
如何写好一篇合格的请示
一键快速清除文本格式的Word技巧!
Word公文写作①“会议通知”改稿案例解析
Word快速制作年会领导座位表
版权申明:
作者:花花;部落窝教育享有专有使用权,若需转载请联系部落窝教育。
特别声明:以上内容(如有图片或视频亦包括在内)为自媒体平台“网易号”用户上传并发布,本平台仅提供信息存储服务。
Notice: The content above (including the pictures and videos if any) is uploaded and posted by a user of NetEase Hao, which is a social media platform and only provides information storage services.