word批量改图片尺寸的“宏”

邮件合并制作带相片的证件常用

Sub setpicsize()
Dim n
On Error Resume Next
For n = 1 To ActiveDocument.InlineShapes.Count
ActiveDocument.InlineShapes(n).Height = 2.8 * 28.35
ActiveDocument.InlineShapes(n).Width = 2 * 28.35
Next n
End Sub