admin管理员组文章数量:1568557
2024年5月11日发(作者:)
在使用Word编辑文档的时候,我们时常会插入一些图片素材,如果word中插入了几十甚
至上百张图片,而且尺寸大小都不一样,为了美观统一。
需要将所有的图片调整成相同的大小,你该不会一张张的调整吧?
Word中还有更高能的技巧:那就是使用宏(VBA)来实现Word批量修改图片大小。下面,
一起来看看Word批量调整图片尺寸的操作技巧:
(1)首先插入图片或直接打开已有图片的Word图文文档。
(2)直接按【Alt+F8】打开 “宏”对话框,在“宏名”文本框中输入宏名称
"setpicsize",然后点击“创建”按钮。
(3)打开VBA编辑器(也可直接按【Alt+F11】快捷键),删除窗口中原有的通
用代码,然后将下面的代码复制粘贴到窗口中。
Sub setpicsize() '设置图片尺寸
Dim n '图片个数
On Error Resume Next '忽略错误
For n = 1 To 'InlineShapes 类型 图片
Shapes(n).Height = 198.45 '设置图片高度为 7cm
Shapes(n).Width = 283.5 '设置图片宽度 10cm
Next n
End Sub
技巧提示:代码中图片的宽度(Height )= 170.1 '设置图片高度为 6cm );
高度(Width) = 283.5 '设置图片宽度 10cm,是如何计算得出的。
方法为:Word中的尺寸单位默认是cm(厘米),而1cm等于28.35px(像素),
由于代码中换算设置的单位是px(像素)。所以就用尺寸高度或宽度值乘像素
值。即为:7*28.35=198.45;宽度换算方法与此相同。
(3)然后按【Ctrl + S 】键保存内容,关闭窗口。再次按【ALT + F8】打开 “宏”
对话框查看宏,点击“运行”按钮。此时,文档中的所有图片就会自动的变成设
置好的尺寸大小了。
效果如图所示:
但是,细心的小伙伴会发现,上方文档中图片的高度还是不一样,是怎么回事?
这是由于勾选了“锁定纵横比”复选框(是Word为了调整图片尺寸时,为保持
图片不变形而默认勾选的选项)。
在图片上右击鼠标,选择“大小和位置”命令,在打开的对话框中取消勾选““锁
定纵横比”复选框。然后运行宏,此时,所有图片的高度和宽度就统一了。
又或是:打开VBA编辑器(也可直接按【Alt+F11】快捷键),新建模块,然后
将下面的代码复制粘贴到窗口中。
Sub FormatPics()
Dim Shap As InlineShape
For Each Shap In Shapes
If = wdInlineShapePicture Then
pectRatio = msoFalse '不锁定纵横比
= CentimetersToPoints(10) '宽10CM
= CentimetersToPoints(7) '高7CM
End If
Next
End Sub
然后保存宏,关闭窗口。再运行宏
版权声明:本文标题:如何在word批量修改图片大小的高级技巧 内容由热心网友自发贡献,该文观点仅代表作者本人, 转载请联系作者并注明出处:https://www.elefans.com/dianzi/1715364085a448440.html, 本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容,一经查实,本站将立刻删除。
发表评论