可通过三种方法批量修改Word图片尺寸：一、用“选择窗格”配合“图片格式”选项卡统一设置宽高；二、运行VBA宏自动调整所有InlineShape和Shape类型图片；三、利用“替换字体”逻辑通过段落行距触发图片等比缩放。
如果您在Word文档中插入了多张图片，但每张图片尺寸不统一，手动调整效率低下，则可以通过内置功能或辅助操作实现批量修改图片大小。以下是解决此问题的步骤：
一、使用“选择窗格”配合“大小”选项组批量设置
该方法适用于所有嵌入式图片（非文字环绕为“浮于文字上方”或“衬于文字下方”的图片），通过统一选中后同步修改高度与宽度值。
1、点击【开始】选项卡，在右侧找到并点击“选择”按钮，选择“选择窗格”。
2、在右侧“选择窗格”中，按住Ctrl键逐个单击所有图片名称，或直接按Ctrl+A全选窗格内全部对象（确保仅含图片）。
3、切换至【图片格式】选项卡，在“大小”组中取消勾选“锁定纵横比”。
4、在“高度”框中输入目标数值（如5厘米），按Enter确认；再在“宽度”框中输入目标数值（如8厘米），按Enter完成批量赋值。
二、通过VBA宏一次性重设所有图片尺寸
该方法可绕过手动选中限制，自动遍历文档中所有InlineShape和Shape类型的图片，并按指定比例或绝对值缩放，适用于含浮动图片的复杂排版。
1、按Alt+F11打开VBA编辑器，依次点击【插入】→【模块】。
2、在空白编辑区粘贴以下代码：
Sub ResizeAllPictures()
Dim iShp As InlineShape
For Each iShp In ActiveDocument.InlineShapes
If iShp.Type = wdInlineShapePicture Then
iShp.Width = CentimetersToPoints(8)
iShp.Height = CentimetersToPoints(5)
End If
Next iShp
Dim shp As Shape
For Each shp In ActiveDocument.Shapes
If shp.Type = msoPicture Or shp.Type = msoLinkedPicture Then
shp.Width = CentimetersToPoints(8)
shp.Height = CentimetersToPoints(5)
End If
Next shp
End Sub
3、将代码中CentimetersToPoints(8)和CentimetersToPoints(5)分别替换为您需要的宽度与高度（单位：厘米）。
4、按F5运行宏，文档内所有图片将立即按设定尺寸更新。
三、利用“替换字体”逻辑变通实现等比缩放
该方法不依赖编程，借助Word对“样式”与“格式”的批量应用机制，通过修改图片所在段落的行高与缩放属性间接控制显示比例，适合仅需统一缩放比例（如全部缩小至80%）的场景。
1、先选中一张图片，右键选择“设置图片格式”，在“大小”选项中记录当前“缩放”下的“高度百分比”值（如100%）。
2、按Ctrl+H打开“查找和替换”对话框，点击“更多”→“格式”→“样式”，选择“正文”或其他图片所在段落所用样式。
3、点击“替换为”栏右侧“格式”→“段落”，设置“行距”为“固定值”，输入1磅（强制压缩段落空间，触发图片自适应缩放）。
4、点击“全部替换”，再立即撤销一次（Ctrl+Z），此时所有同样式段落中的图片将因布局重排产生近似等比压缩效果。
