编按:本文主要介绍了Word文档使用VBA代码批量调整图片尺寸的方法。一起来看看吧! 今天要跟大家分享的案例是一位小伙伴工作上遇到的问题。 我们先来模拟小伙伴说的问题,打开一份空白的Word文档,从插入选项卡中找到图片所在文件夹,全选图片,批量插入到文档中。因为照片尺寸不统一,所以每页存放图片数量也是不一样的。 图片全部插入到文档中的效果如下图。 大家可能会想到使用F4键进行重复设置图片大小。先选中一个图片,点击鼠标右键设置图片大小和位置,取消锁定纵横比,高度和宽度设定一个自己期望的值。接着依次选中其他图片按F4键就可以重复操作了(部分笔记本电脑可能需要按Fn+F4键)。只要你F4键按的快,图片批量处理剩下的就是时间问题。 如果要设置的图片数量不多的话,按F4键一定是最优的选择。但是小伙伴说她有一堆照片,这个一堆就非常过份了,于是我实在忍不了,站出来用VBA来批量处理了。 操作方法如下: 从【开发工具】选项卡中找到【Visual Basic】按钮,单击进入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倍。因此,这里大家可以根据自己的实际需求灵活调整,比如等比例放大或者缩小图片都是可以的。 好了,以上就是今天跟大家分享的内容,感谢大家耐心看完,希望大家能够喜欢,别忘了分享哦~ 本期教程就到这里,我们下期再见! 相关推荐: 版权申明: 作者:花花;部落窝教育享有专有使用权,若需转载请联系部落窝教育。 |
|
来自: 部落窝教育BLW > 《部落窝word/ppt》