可采用三种方法批量调整Word图片尺寸：一、用“选择窗格”统一设置嵌入型图片大小；二、用VBA宏一键重设所有图片（含浮动与嵌入型）；三、用“格式刷”复制标准图片的尺寸与环绕样式。

如果您在Word文档中插入了多张图片，但每张图片尺寸不一致，影响排版效果，则需要批量调整图片大小以实现统一规格。以下是解决此问题的步骤：

一、使用“选择窗格”配合“大小”功能统一设置

该方法通过选择窗格一次性选中全部嵌入式图片，再统一修改高度与宽度值，适用于所有采用“嵌入型”环绕方式的图片。

1、点击【开始】选项卡，在右侧找到并点击【选择】→【选择窗格】。

2、在右侧“选择窗格”中，按住Ctrl键逐个单击所有以“图片”开头的对象名称（如“图片 1”“图片 2”等），完成多选。

3、右键任意一张被选中的图片，在弹出菜单中选择【大小和位置】。

4、在弹出对话框中，切换到【大小】选项卡，取消勾选【锁定纵横比】。

5、在【高度】和【宽度】输入框中分别填入目标数值（例如：高度设为5厘米，宽度设为8厘米）。

6、点击【确定】，所有选中图片将同步应用该尺寸。

二、通过VBA宏一键批量重设所有图片尺寸

该方法可处理任意环绕方式（包括浮于文字上方、衬于文字下方等）的图片，自动遍历文档内全部Shape和InlineShape对象，并按指定值重设大小。

1、按Alt + F11打开VBA编辑器。

2、在左侧工程资源管理器中，右键【Normal】→【插入】→【模块】。

word-chinese-automation

中文 Word 文档自动化校对工具。当用户需要对中文文本或 Word 文档进行标点符号检查、语法检查、错别字检查时使用此 skill。触发词：语法检查、错别字、标点符号、校对、检查文档。

下载

3、在新模块空白窗口中粘贴以下代码：

Sub ResizeAllPictures()
Dim shp As Shape
Dim ils As InlineShape
For Each shp In ActiveDocument.Shapes
  shp.Height = CentimetersToPoints(5)
  shp.Width = CentimetersToPoints(8)
Next shp
For Each ils In ActiveDocument.InlineShapes
  ils.Height = CentimetersToPoints(5)
  ils.Width = CentimetersToPoints(8)
Next ils
End Sub

4、将代码中CentimetersToPoints(5)和CentimetersToPoints(8)分别替换为您需要的高度与宽度（单位：厘米）。

5、按F5运行宏，文档中所有图片将立即按设定尺寸调整。

三、利用“样式集”+“格式刷”间接统一图片外观

该方法不直接修改尺寸数值，而是先设定一张标准图片的高宽及环绕方式，再用格式刷复制其布局属性至其余图片，适合需保留部分比例差异但追求视觉一致性的情形。

1、选中一张图片，右键【大小和位置】→【大小】选项卡，设置目标高度与宽度，并勾选【锁定纵横比】（若需保持原始比例）。

2、在【文字环绕】选项卡中，选择一种环绕方式（如上下型），点击【确定】。

3、保持该图片处于选中状态，点击【开始】选项卡中的【格式刷】按钮（单击即可，无需双击）。

4、依次单击文档中其他图片，每单击一次，该图片即应用所复制的尺寸与环绕设置。