Question

word文档如何批量修改图片大小？

利用word文档的插入图片功能，插入很多图片，想更改图片大小，一张张改太麻烦了，有没有什么方法，能一下把文档中包括的图片，全部更改大小，大小相同！麻烦各位朋友说的具体点！谢谢！

Answer 1

Word如何批量调整图片大小？

Answer 2

分析：由于Word不能像excel一样多选图片，所以不能多选图片后统一缩放，所以考虑可以重复多次一样动作的宏功能：

1. 打开视图-宏-输入一个名字-创建

2.输入以下代码，注意替换内有的内容和尺寸不是下面的5cm可以直接更改。

Sub FormatPics()

 Dim iSha As InlineShape
 For Each iSha In ActiveDocument.InlineShapes
   If iSha.Type = wdInlineShapePicture Then
     iSha.LockAspectRatio = msoFalse '不锁定纵横比
     iSha.Width = CentimetersToPoints(5) '宽5CM
     iSha.Height = CentimetersToPoints(5) '高5CM
   End If
 Next
End Sub

3.宏-运行，可以直接批量缩放图片尺寸，左边为最终效果图。

Answer 3

除非你要求每一张图片的大小都一样才可能实现，而且需要设置的图片必须在同一页中。
点击绘图工具栏上的“选择对象”命令，一次选中本页中所有图片——再单击右键打开“设置自选图形格式”——“大小”——在“高度”和“宽度”中设置你的需要值。

Answer 4

用宏可以轻松完成：
Sub FormatPics()
Dim iSha As InlineShape
For Each iSha In ActiveDocument.InlineShapes
If iSha.Type = wdInlineShapePicture Then
iSha.LockAspectRatio = msoFalse '不锁定纵横比
iSha.Width = CentimetersToPoints(5) '宽5CM
iSha.Height = CentimetersToPoints(5) '高5CM
End If
Next
End Sub

Answer 5

1、打开word，工具－宏－宏（或者直接按Alt+F8）进入宏的界面，如下面所示，输入一个宏名，宏名自己起，能记住就行！
2、宏名起好了，单击“创建”进入Visual Basic 编辑器，输入如下代码并保存
Sub setpicsize() '设置图片大小
Dim n '图片个数
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片
ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为 400px
ActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度 300px
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片
ActiveDocument.Shapes(n).Height = 400 '设置图片高度为 400px
ActiveDocument.Shapes(n).Width = 300 '设置图片宽度 300px
Next n
End Sub
这样就可以了！