work 中批量设定图片大小/缩放 的方法

前言:网上的资料都残缺不全,整理自己在word2020版本验证可用方法.

视图->宏-> 编辑

设定指定大小

Sub setpicsize() '设置图片尺寸
Dim n '图片个数
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型 图片
ActiveDocument.InlineShapes(n).Height = 283.5 '设置图片高度为 10cm 
ActiveDocument.InlineShapes(n).Width = 396.9 '设置图片宽度 14cm
Next n
End Sub

设定图片缩放

Sub setpicsize() '设置图片尺寸
Dim n '图片个数
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型 图片
ActiveDocument.InlineShapes(n).Height = ActiveDocument.InlineShapes(n).Height * 0.7   '设置图片高度为 10cm
ActiveDocument.InlineShapes(n).Width = ActiveDocument.InlineShapes(n).Width * 0.7 '设置图片宽度 14cm
Next n
End Sub