编按：本文主要介绍了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快速制作年会领导座位表
版权申明：
作者：花花；部落窝教育享有专有使用权，若需转载请联系部落窝教育。
热门跟贴