Word怎么批量设置图片大小

在处理包含多张图片的Word文档时，常常需要将所有图片统一为相同的尺寸，以保证排版整齐美观。本文将介绍几种在Microsoft Word中批量设置图片大小的实用方法。

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

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

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

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

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

Sub ResizeAllPictures()
    Dim pic As InlineShape
    Dim widthCm As Single
    Dim heightCm As Single
    
    widthCm = InputBox("请输入图片宽度（厘米）：", "设置宽度", "10")
    heightCm = InputBox("请输入图片高度（厘米）：", "设置高度", "7")
    
    For Each pic In ActiveDocument.InlineShapes
        If pic.Type = wdInlineShapePicture Then
            pic.LockAspectRatio = msoFalse
            pic.Width = CentimetersToPoints(widthCm)
            pic.Height = CentimetersToPoints(heightCm)
        End If
    Next pic
End Sub
    

3. 关闭编辑器，返回Word，按 Alt + F8，运行 ResizeAllPictures 宏。
4. 按提示输入目标宽高（单位：厘米），即可一键统一所有图片尺寸。

注意事项

• 若希望保持图片原始比例，请将代码中的 LockAspectRatio = msoFalse 改为 msoTrue，并只设置宽度或高度其一。
• 该宏仅处理“嵌入型”图片（InlineShape）。若图片为“浮于文字上方”等环绕方式，需改用 Shapes 对象处理。
• 操作前建议先备份文档，以防误操作。

总结

通过VBA宏可以高效实现Word中图片的批量尺寸调整，大幅提升办公效率。对于不熟悉宏的用户，也可借助格式刷进行小范围处理。掌握这些技巧，让你的文档排版更加专业整洁。