愿得一人心,白首不相离。

Word批量处理图片大小(设置长宽)

技术支持 Jack

首先打开需要处理的word文档,

按键盘“Alt”键和“F8”键(后面简称Alt+F8)打开宏

 

在宏名栏里任意输入一个宏的名字,本例中我们使用“setpicsize”

在宏里输入以下代码保存,运行宏即可

 

 

Sub setpicsize() '设置图片大小
Dim n '图片个数
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型 图片
ActiveDocument.InlineShapes(n).Height = 10.58 * 28.35 '设置图片高度为 10.58cm (1cm等于28.35px)
ActiveDocument.InlineShapes(n).Width = 14.1* 28.35 '设置图片宽度 14.1cm
Next n
End Sub

发表评论:

验证码