word图片大小批量修改

Word中有很多图片，如果一个一个的修改大小，而且要大小一样，那是一件很痛苦的事。

如果能够实现批量修改，那再好不过了

1.在Word中按Alt+F8，弹出如下图：

 

2.输入宏名，点击创建弹出另一个界面

 

3.然后把下面的代码粘贴进去，点击保存后关闭传口，再次按Alt+F8，弹出第一个图，点击运行，再看看你的Word，此时所有图片都修改完成。

Sub PicChangeSize()
Dim n '图片个数
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片
ActiveDocument.InlineShapes(n).Height = 300 '设置图片高度为 400px
ActiveDocument.InlineShapes(n).Width = 450 '设置图片宽度 300px
ActiveDocument.InlineShapes(n).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter

Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片
ActiveDocument.Shapes(n).Height = 320 '设置图片高度为 400px
ActiveDocument.Shapes(n).Width = 450 '设置图片宽度 300px
ActiveDocument.InlineShapes(n).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter

Next n

End Sub