Word图片统一修改尺寸

在撰写报告、论文或制作文档时，常常需要插入多张图片。然而，不同来源的图片尺寸不一，影响整体排版美观。本文将介绍几种在 Microsoft Word 中批量统一修改图片尺寸的实用方法。

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

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

方法二：使用宏（VBA）批量设置图片尺寸（推荐）

若文档中包含大量图片，手动调整效率低下。可通过以下 VBA 宏代码一键统一所有图片尺寸：

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

Sub ResizeAllPictures()
    Dim pic As InlineShape
    Dim targetWidth As Single, targetHeight As Single
    targetWidth = CentimetersToPoints(10)  ' 设置宽度为10厘米
    targetHeight = CentimetersToPoints(7)  ' 设置高度为7厘米

    For Each pic In ActiveDocument.InlineShapes
        If pic.Type = wdInlineShapePicture Then
            pic.LockAspectRatio = msoFalse
            pic.Width = targetWidth
            pic.Height = targetHeight
        End If
    Next pic
End Sub
    

运行宏后，文档中所有内嵌图片将被统一调整为指定尺寸。

注意事项

• 建议先备份原始文档，防止误操作；
• 若需保持图片比例，请将 LockAspectRatio 设为 msoTrue，并仅设置宽度或高度；
• 部分浮动图片（非内嵌）需额外处理，可先转换为内嵌格式。

结语

通过上述方法，你可以高效地统一 Word 文档中所有图片的尺寸，显著提升文档的专业性和可读性。对于频繁处理图文混排的用户，掌握 VBA 自动化操作将事半功倍。