Word中所有图片统一大小

为什么需要统一图片大小？

在撰写报告、论文或制作简历时，插入的图片若尺寸不一，容易显得杂乱无章。统一图片大小不仅让文档更整洁，还能提高阅读体验和专业感。

手动方法：逐个调整图片尺寸

1. 点击任意一张图片，选中后在顶部菜单栏找到“图片格式”选项卡。
2. 在“大小”区域输入统一的“高度”和“宽度”（如宽5厘米，高3厘米）。
3. 复制该尺寸设置，依次对其他图片重复操作。

适合图片数量较少的情况。

高效方法：使用宏批量统一图片大小

对于大量图片，推荐使用VBA宏自动处理：

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

Sub ResizeAllPictures()
    Dim pic As InlineShape
    For Each pic In ActiveDocument.InlineShapes
        If pic.Type = wdInlineShapePicture Then
            pic.LockAspectRatio = msoFalse
            pic.Width = CentimetersToPoints(5)   ' 宽度设为5厘米
            pic.Height = CentimetersToPoints(3)  ' 高度设为3厘米
        End If
    Next pic
End Sub
      

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

注意事项

• 建议先备份文档，避免误操作导致内容丢失。
• 若希望保持图片比例，可设置 LockAspectRatio = msoTrue 并仅指定宽度或高度。
• 浮动图片（非内嵌）需使用 Shapes 对象处理，方法略有不同。