Word一次性调整所有图片大小

在撰写报告、论文或制作文档时，经常需要插入多张图片。但这些图片尺寸不一，影响整体排版美观。本文将介绍如何在 Microsoft Word 中一次性批量调整所有图片的大小，提高工作效率。

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

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

方法二：使用宏命令（推荐用于大量图片）

这是最高效的方式，适合文档中包含数十张甚至上百张图片的情况。

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

Sub ResizeAllPictures()
    Dim pic As InlineShape
    For Each pic In ActiveDocument.InlineShapes
        If pic.Type = wdInlineShapePicture Then
            pic.LockAspectRatio = msoTrue
            pic.Width = CentimetersToPoints(10) ' 设置宽度为10厘米，高度自动等比
        End If
    Next pic
End Sub
    

3. 修改代码中的 10 为你希望的宽度（单位：厘米）。
4. 关闭编辑器，返回 Word，按 Alt + F8，选择 ResizeAllPictures 并运行。

注意事项

• 确保图片是“嵌入型”（Inline），否则宏可能无法识别。
• 建议先备份文档，防止操作失误。
• 如需统一高度而非宽度，可将代码中的 pic.Width 改为 pic.Height。