Word一键调整图片大小

在日常办公或撰写论文时，我们常常需要在 Word 文档中插入多张图片。但不同来源的图片尺寸不一，手动一张张调整非常耗时。本文将介绍几种高效方法，帮助你一键批量调整 Word 中所有图片的大小。

方法一：使用“宏”批量调整（推荐）

这是最高效的解决方案，适合处理大量图片：

1. 按 Alt + F11 打开 VBA 编辑器。
2. 点击菜单栏【插入】→【模块】，粘贴以下代码：

Sub ResizeAllImages()
    Dim shp As InlineShape
    For Each shp In ActiveDocument.InlineShapes
        If shp.Type = wdInlineShapePicture Then
            shp.LockAspectRatio = msoTrue
            shp.Width = CentimetersToPoints(10) ' 设置宽度为10厘米
        End If
    Next shp
End Sub
    

你可以根据需要修改 Width 的数值（单位为厘米）。

3. 关闭编辑器，返回 Word，按 Alt + F8，选择 ResizeAllImages 并运行。

方法二：统一设置默认图片格式

如果你希望今后插入的图片自动使用固定尺寸：

• 插入一张图片并调整到理想大小。
• 右键点击图片 →【设置为默认图片】。
• 此后新插入的图片将自动应用该尺寸（仅限当前文档）。

注意事项

• 建议勾选 LockAspectRatio = msoTrue 以保持图片比例不变形。
• 宏功能需启用“开发者选项”，部分安全设置可能默认禁用宏，请在信任文档中使用。
• 此方法适用于 Microsoft Word（Windows 版），Mac 版操作略有不同。