为什么需要批量调整图片大小？
在撰写论文、制作报告或整理资料时，Word文档中常常插入大量图片。由于来源不同，这些图片尺寸不一，影响整体排版美观。手动逐张调整费时费力，掌握批量处理方法可极大提升效率。
方法一：使用宏（VBA）批量调整
适用于熟悉基础编程的用户，操作步骤如下：
- 按
Alt + F11打开 VBA 编辑器 - 插入新模块，粘贴以下代码：
Sub ResizeAllPictures()
Dim pic As InlineShape
For Each pic In ActiveDocument.InlineShapes
If pic.Type = wdInlineShapePicture Then
pic.LockAspectRatio = msoTrue
pic.Width = CentimetersToPoints(10) ' 设置宽度为10厘米
End If
Next pic
End Sub
运行宏后，文档中所有内嵌图片将统一调整为指定宽度（保持比例）。
方法二：复制到 PowerPoint 中批量缩放
若不熟悉 VBA，可借助 PowerPoint 的图形处理能力：
- 将 Word 中的图片复制到 PPT 幻灯片
- 全选图片 → 右键 → “大小和位置” → 统一设置高度或宽度
- 再将调整后的图片复制回 Word
此方法适合图片数量不多的情况。
注意事项
- 建议先备份原始文档，防止误操作
- 部分浮动图片（非内嵌型）需单独处理
- 使用宏前请启用“开发工具”选项卡（文件 → 选项 → 自定义功能区 → 勾选“开发工具”）