Word批量修改图片大小

在撰写论文、制作报告或整理资料时，经常需要插入大量图片。但这些图片尺寸不一，影响整体排版美观。本文将介绍几种在 Microsoft Word 中批量修改图片大小的方法，帮助你快速统一图片格式，提高工作效率。

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

1. 选中一张已调整好尺寸的图片。
2. 点击“开始”选项卡中的“格式刷”按钮。
3. 依次点击其他图片，即可复制其大小设置。

方法二：使用宏（VBA）批量修改（推荐）

这是最高效的方式，适合处理几十甚至上百张图片：

1. 按 Alt + F11 打开 VBA 编辑器。
2. 插入新模块（菜单：插入 → 模块）。
3. 粘贴以下代码：

Sub ResizeAllImages()
    Dim shp As Shape
    Dim ilshp As InlineShape
    Dim height As Single, width As Single
    
    ' 设置目标尺寸（单位：磅，1英寸=72磅）
    height = 300 ' 高度
    width = 400  ' 宽度

    ' 调整浮动图片
    For Each shp In ActiveDocument.Shapes
        If shp.Type = msoPicture Then
            shp.LockAspectRatio = msoFalse
            shp.Height = height
            shp.Width = width
        End If
    Next shp

    ' 调整嵌入式图片
    For Each ilshp In ActiveDocument.InlineShapes
        If ilshp.Type = wdInlineShapePicture Then
            ilshp.LockAspectRatio = msoFalse
            ilshp.Height = height
            ilshp.Width = width
        End If
    Next ilshp
End Sub
    

4. 关闭编辑器，返回 Word。
5. 按 Alt + F8，运行 ResizeAllImages 宏。

⚠️ 注意：请先备份文档，并根据实际需求修改代码中的宽高值。

方法三：复制到 PowerPoint 中统一缩放（变通方案）

• 将所有图片复制到 PowerPoint。
• 全选图片，在“图片格式”中统一设置高度或宽度（保持比例）。
• 再复制回 Word 文档。

小贴士

• 建议在插入图片前先用图像工具预处理，减少后期调整工作量。
• 若需保持图片比例，可只设置高度或宽度，另一维度自动适应。
• Word 中“布局选项”会影响图片是否能被宏识别，请统一设为“嵌入型”或“浮于文字上方”。