Word如何批量调整图片大小

在日常办公或撰写报告时，我们经常需要在Word文档中插入多张图片。但这些图片尺寸往往不一，影响整体排版美观。本文将介绍几种在Word中批量调整图片大小的方法，帮助你快速统一图片尺寸。

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

1. 点击任意一张已调整好尺寸的图片。
2. 按 Ctrl + Shift + C 复制格式。
3. 依次点击其他图片，按 Ctrl + Shift + V 粘贴格式。

此方法适合图片数量较少的情况，操作简单但效率不高。

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

这是最高效的方式，尤其适用于包含大量图片的文档。

操作步骤：

1. 按 Alt + F11 打开VBA编辑器。
2. 点击菜单栏【插入】→【模块】。
3. 粘贴以下代码：

Sub 批量调整图片大小()
    Dim pic As InlineShape
    Dim widthCM As Single, heightCM As Single
    
    ' 设置目标尺寸（单位：厘米）
    widthCM = 10 ' 宽度
    heightCM = 7 ' 高度
    
    For Each pic In ActiveDocument.InlineShapes
        If pic.Type = wdInlineShapePicture Then
            pic.LockAspectRatio = msoTrue ' 锁定纵横比
            pic.Width = CentimetersToPoints(widthCM)
            ' 若需固定高度可取消下一行注释
            ' pic.Height = CentimetersToPoints(heightCM)
        End If
    Next pic
End Sub

4. 修改代码中的 widthCM 和 heightCM 为你想要的尺寸（单位：厘米）。
5. 按 F5 运行宏，即可自动调整文档中所有内嵌图片的大小。

⚠️ 注意：此宏仅处理“内嵌型”图片（InlineShape），若图片为“浮于文字上方”等环绕方式，需先转换为内嵌型。

小贴士

• 建议在操作前备份文档，防止误操作。
• 如需保持图片比例不变，请保留 LockAspectRatio = msoTrue。
• 若图片类型混杂（图表、SmartArt等），宏会自动跳过非图片对象，安全可靠。