Word怎么统一调整图片大小？

在编辑Word文档时，经常需要插入多张图片，但这些图片尺寸不一，影响整体排版美观。本文将介绍几种实用方法，帮助你快速统一调整Word中所有图片的大小。

方法一：手动选中并统一设置（适合少量图片）

1. 按住 Ctrl 键，依次点击每一张要调整的图片，实现多选。
2. 右键任意一张选中的图片，选择“设置图片格式”。
3. 在右侧“大小与属性”面板中，输入统一的“高度”或“宽度”（建议锁定纵横比）。
4. 所有选中图片将自动应用相同尺寸。

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

若文档中图片数量较多，手动操作效率低，可使用以下VBA宏代码一键统一尺寸：

Sub ResizeAllPictures()
    Dim shp As Shape
    Dim ilshp As InlineShape
    Dim targetWidth As Single
    Dim targetHeight As Single
    
    ' 设置目标尺寸（单位：磅，1英寸=72磅）
    targetWidth = 300 ' 宽度设为300磅（约10.5厘米）
    targetHeight = 200 ' 高度设为200磅（约7厘米）
    
    ' 调整浮动型图片
    For Each shp In ActiveDocument.Shapes
        If shp.Type = msoPicture Then
            shp.LockAspectRatio = msoTrue
            If shp.Width > shp.Height Then
                shp.Width = targetWidth
            Else
                shp.Height = targetHeight
            End If
        End If
    Next shp
    
    ' 调整嵌入型图片
    For Each ilshp In ActiveDocument.InlineShapes
        If ilshp.Type = wdInlineShapePicture Then
            ilshp.LockAspectRatio = msoTrue
            If ilshp.Width > ilshp.Height Then
                ilshp.Width = targetWidth
            Else
                ilshp.Height = targetHeight
            End If
        End If
    Next ilshp
End Sub

使用步骤：

• 按 Alt + F11 打开VBA编辑器。
• 插入 → 模块，粘贴上述代码。
• 按 F5 运行宏，即可自动统一所有图片尺寸。

方法三：复制格式刷（快速应用已有图片样式）

1. 先手动调整好一张图片的大小。
2. 选中该图片，双击“格式刷”按钮（开始选项卡中）。
3. 依次点击其他图片，即可快速复制尺寸格式。
4. 完成后按 Esc 退出格式刷模式。

注意事项

• 建议勾选“锁定纵横比”，避免图片变形。
• 嵌入型图片（Inline）和浮动型图片（Floating）需分别处理，宏代码已涵盖两者。
• 操作前请先备份文档，防止误操作导致内容丢失。