word文档如何改所有图片大小

A. 如何批量调整Word中图片大小

在我们使用Word编辑文档时衫埋孝，经常会在文章中插入一些图片，但是这些图片的大小比例往往并不一样，因此看起来不是很美观。那么有没有办法将这些图片批量调整为同一尺寸呢？下面就为大家带来Word统一图片尺寸的方法。

一、首先打开Word文档，点击插入图片，将需要使用的图片添加到Word中。

二、选择任意一张图片，之后点击图片工具中的批量调整按钮，选择批量改尺寸。

三、在图片批量处理界面，我们可以对图片的尺寸进行等比缩放，或者指定图片的或稿尺寸。

四、图片的尺寸修改完毕后，如果还需要调整图片的比例，可以在裁剪页面中对图片进行固定液弯大小或固定比例裁剪。

五、完成所有图片的调整后，点击下方的批量替换原图即可。

B. 如何批量修改word文档中图片的大小

一次性调节word所有图片方法如下：

打开WORD，在”工具“菜单下，选择”选项“命令，在”选项“窗口中，”编辑”选项卡下，将插入图片的格式选择为“四周型”。在“插入”菜单中选择“图片”/“来自文件”，在“插入图片“对话框中选择要插入的图片。

然后在“绘图”工具栏中的“添加或删除按钮”中选择“选中多个对象”，使用“选中多个对象”，将所有插入的图片全部选中。双击任意一图片，在弹出的对余雹话框中，就可以统一批量设置了，完成。

在word中，默认插入的嵌入式图片是不能批量统一设置，只有将默认修改为四周型后，才可以批差毁皮量修改图片版式或大小。

用宏命令虚差最省心：

代码1如下：

Sub setpicsize()

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

代码2如下：

Sub setpicsize()

Dim j '计数图片个数

For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为inlineshapes

ActiveDocument.InlineShapes(j).Height = 300 '设置高度10.58cm

ActiveDocument.InlineShapes(j).Width = 510 '设置宽度17.99cm

Next j

End Sub