前往顾页
以后地位: 主页 > 精通Office > Word教程 >

教你操纵Word VBA批量调剂图片年夜小

时候:2018-08-22 22:29来源:知行网www.zhixing123.cn 编辑:麦田守望者

在利用Word编辑文档的时候,我们经常会拔出一些图片素材,如果word中拔出了几十乃至上百张图片,并且尺寸年夜小都不一样,为了美妙同一。

需求将所有的图片调剂成不异的年夜小,你该不会一张张的调剂吧?

其实你完整可以没必要如许,除经由过程明天介绍“多张图片年夜小怎样改?2个批量措置技能【word教程】”的2种体例以外,Word中另有更高能的技能:那就是利用宏(VBA)来处理这个问题
下面,一路来看看操纵技能:
(1)起首拔出图片或直接翻开已有图片的Word图文文档。
Word图文文档
(2)直接按【Alt+F8】翻开 “宏”对话框,在“宏名”文本框中输入宏称呼"setpicsize",然后点击“建立”按钮。
(3)翻开VBA编辑器(也可直接按【Alt+F11】疾速键),删除窗口中原本的通用代码,然后将下面的代码复制粘贴到窗口中。
Sub setpicsize() '设置图片尺寸

Dim n '图片个数

On Error Resume Next '忽视错误

For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 范例 图片

ActiveDocument.InlineShapes(n).Height = 198.45 '设置图片高度为 7cm 
 
ActiveDocument.InlineShapes(n).Width = 283.5 '设置图片宽度 10cm
 
Next n
 
End Sub
wordVBA编辑器
技能提示:代码中图片的宽度(Height )= 170.1 '设置图片高度为 6cm );高度(Width) = 283.5 '设置图片宽度 10cm,是若何计较得出的。
体例为:Word中的尺寸单位默许是cm(厘米),而1cm即是28.35px(像素),因为代码中换算设置的单位是px(像素)。所以就用尺寸高度或宽度值乘像素值。即为:7*28.35=198.45;宽度换算体例与此不异。
(4)然后按【Ctrl + S 】键保存内容,封闭窗口。再次按【ALT + F8】翻开 “宏”对话框检察宏,点击“运行”按钮。此时,文档中的所有图片就会主动的变成设置好的尺寸年夜小了。
结果如图所示:
Word调整图片尺寸
但是,细心的小火伴会发明,上方文档中图片的高度还是不一样,是怎样回事?这是因为勾选了“锁定纵横比”复选框(是Word为了调剂图片尺寸时,为保持图片不变形而默许勾选的选项)。
Word调整图片尺寸
在图片上右击鼠标,挑选“年夜小和地位”号令,在翻开的对话框中打消勾选““锁定纵横比”复选框。然后运行宏,此时,所有图片的高度和宽度就同一了。
又或是:翻开VBA编辑器(也可直接按【Alt+F11】疾速键),新建模块,然后将下面的代码复制粘贴到窗口中。
Sub FormatPics()
    Dim Shap As InlineShape
    For Each Shap In ActiveDocument.InlineShapes
        If Shap.Type = wdInlineShapePicture Then
            Shap.LockAspectRatio = msoFalse '不锁定纵横比
            Shap.Width = CentimetersToPoints(10) '宽10CM
            Shap.Height = CentimetersToPoints(7) '高7CM
        End If
    Next
End Sub

然后保存宏,封闭窗口。再运行宏:
▼ 附GIF:
Word调整图片尺寸
从速复制代码尝尝吧~~以上就是本期内容,喜欢的话欢迎点赞、分享。

 

顶一下
(0)
0%
踩一下
(0)
0%
------分开线----------------------------
标签(Tag):Word word2016 VBA批量调剂图片年夜小
------分开线----------------------------
颁发评论
请自发遵循互联网相关的政策法规,严禁公布色情、暴力、革命的谈吐。
评价:
神色:
考证码:点击我更换图片
猜你感兴趣