当前位置：首页 > 文章列表 > 文章 > 软件教程 > Word批量调整图片大小方法分享

Word批量调整图片大小方法分享

2026-01-26 08:18:39 0浏览收藏

在IT行业这个发展更新速度很快的行业，只有不停止的学习，才不会被行业所淘汰。如果你是文章学习者，那么本文《Word批量调整图片大小技巧》就很适合你！本篇内容主要包括##content_title##，希望对大家的知识积累有所帮助，助力实战开发！

可通过三种方法批量修改Word图片尺寸：一、用“选择窗格”配合“图片格式”选项卡统一设置宽高；二、运行VBA宏自动调整所有InlineShape和Shape类型图片；三、利用“替换字体”逻辑通过段落行距触发图片等比缩放。

Word如何批量改图片大小_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运行宏，文档内所有图片将立即按设定尺寸更新。