Word批量修改图片大小：5分钟学会的高效技巧

调整Word文档中大量图片尺寸，你可以尝试下面这三种高效方法。使用“选择窗口”配合“图片格式”功能统一设置、运行VBA宏代码自动处理所有图片，或是借助“替换字体”的妙招来实现等比缩放。

免费影视、动漫、音乐、游戏、小说资源长期稳定更新！ 👉 点此立即查看 👈

当你处理包含多张尺寸不一的Word图片时，手动逐一调整不仅耗时费力，效率也大打折扣。这时，完全可以利用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），此时所有同样式段落中的图片将因布局重排产生近似等比压缩的效果。