Word一次性修改图片大小的方法

在使用 Microsoft Word 编辑包含多张图片的文档时，常常需要将所有图片统一调整为相同尺寸。手动一张张修改不仅耗时，还容易出错。本文介绍几种高效方法，帮助你一次性批量修改 Word 中所有图片的大小。

方法一：使用宏（VBA）批量调整

这是最高效的批量处理方式，适合熟悉基础操作的用户：

• 按 Alt + F11 打开 VBA 编辑器。
• 插入新模块（菜单栏 → 插入 → 模块）。
• 粘贴以下代码（示例：统一设为宽 10 厘米，高自动等比）：

  Sub ResizeAllPictures()
      Dim shp As Shape
      Dim ilshp As InlineShape
      For Each shp In ActiveDocument.Shapes
          If shp.Type = msoPicture Then
              shp.LockAspectRatio = msoTrue
              shp.Width = CentimetersToPoints(10)
          End If
      Next shp
      For Each ilshp In ActiveDocument.InlineShapes
          If ilshp.Type = wdInlineShapePicture Then
              ilshp.LockAspectRatio = msoTrue
              ilshp.Width = CentimetersToPoints(10)
          End If
      Next ilshp
  End Sub
          

• 关闭编辑器，返回 Word，按 Alt + F8，运行该宏即可。

方法二：全选图片后统一设置（适用于较新版本 Word）

• 按住 Ctrl 键，依次点击每张图片进行多选。
• 右键任一选中图片 → “大小和位置”。
• 设置宽度或高度，并勾选“锁定纵横比”，点击确定。

注意：此方法在图片数量较多时操作繁琐，推荐用于少量图片。

小贴士

• 建议先备份文档再运行宏。
• 若图片为“嵌入型”，属于 InlineShape；若为“浮于文字上方”等，则属于 Shape，上述宏已同时处理两种类型。
• 可根据实际需求修改代码中的尺寸数值（单位：厘米）。