Word图片批量改尺寸

为什么需要批量修改Word图片尺寸？

在撰写报告、论文或制作简历时，常常会插入多张图片。若每张图片大小不一，会影响整体美观和专业性。手动一张张调整既费时又低效，因此掌握批量修改图片尺寸的方法至关重要。

方法一：使用Word内置功能（适用于少量图片）

1. 按住 Ctrl 键，依次点击每张图片进行多选；
2. 右键选择“设置图片格式”；
3. 在“大小”选项中统一设置高度或宽度（建议锁定纵横比）；
4. 点击“关闭”，所有选中图片将同步调整。

方法二：使用VBA宏（适用于大量图片）

通过运行一段简单的VBA代码，可自动将文档中所有图片调整为指定尺寸：

Sub ResizeAllPictures()
    Dim shp As Shape
    Dim ilshp As InlineShape
    Dim targetWidth As Single
    targetWidth = 100 ' 单位：磅（1英寸=72磅）

    For Each ilshp In ActiveDocument.InlineShapes
        If ilshp.Type = wdInlineShapePicture Then
            ilshp.LockAspectRatio = msoTrue
            ilshp.Width = targetWidth
        End If
    Next ilshp

    For Each shp In ActiveDocument.Shapes
        If shp.Type = msoPicture Then
            shp.LockAspectRatio = msoTrue
            shp.Width = targetWidth
        End If
    Next shp
End Sub
      

操作步骤：按 Alt + F11 打开VBA编辑器 → 插入模块 → 粘贴代码 → 修改 targetWidth 值 → 按 F5 运行。

注意事项

• 建议先备份原始文档，防止误操作；
• 部分图片可能因环绕方式不同而无法被宏识别，需手动调整；
• 锁定纵横比可避免图片变形。