如何统一调整Word图片尺寸

在撰写报告、论文或制作宣传材料时，经常需要在Word文档中插入多张图片。但不同来源的图片尺寸不一，会导致排版混乱、影响整体美观。本文将介绍几种实用方法，帮助你快速统一调整Word中所有图片的尺寸。

方法一：使用“选择窗格”+格式刷（适用于少量图片）

• 先手动调整一张图片到目标尺寸（如宽10厘米、高7厘米）。
• 右键该图片，选择“设置图片格式”确认尺寸。
• 选中该图片，点击“开始”选项卡中的“格式刷”按钮。
• 依次点击其他图片，即可复制相同尺寸。

方法二：使用宏（VBA）批量调整（推荐用于大量图片）

如果你的文档包含数十张甚至上百张图片，手动操作效率低下。此时可使用Word内置的VBA宏功能：

1. 按 Alt + F11 打开VBA编辑器。
2. 点击“插入” → “模块”，粘贴以下代码：

   Sub ResizeAllPictures()
       Dim pic As InlineShape
       Dim targetWidth As Single
       Dim targetHeight As Single
       
       ' 设置目标尺寸（单位：磅，1厘米 ≈ 28.35磅）
       targetWidth = 283.5   ' 10厘米
       targetHeight = 198.45 ' 7厘米
   
       For Each pic In ActiveDocument.InlineShapes
           If pic.Type = wdInlineShapePicture Then
               pic.LockAspectRatio = msoFalse
               pic.Width = targetWidth
               pic.Height = targetHeight
           End If
       Next pic
   End Sub
         

3. 关闭编辑器，返回Word，按 Alt + F8，选择 ResizeAllPictures 并运行。

⚠️ 注意：运行前建议备份文档，并确保图片为“嵌入型”（Inline Shape）。

方法三：统一设置默认图片样式

虽然Word无法直接设置“全局图片尺寸”，但你可以：

• 调整好一张图片后，右键选择“设置为默认图片”。
• 此后新插入的图片会继承该尺寸（仅对后续插入有效）。

小贴士

• 若需保持比例，请不要禁用“锁定纵横比”（Lock Aspect Ratio）。
• 对于浮动型图片（非嵌入型），上述VBA代码需稍作修改，使用 Shapes 对象。
• 使用在线工具预处理图片（如统一裁剪为相同分辨率）也能减少后期调整工作量。