宏 word批量设置图片大小

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