在日常办公或撰写论文、报告时,我们常常需要在Word文档中插入大量图片。但这些图片尺寸不一,手动逐张调整费时费力。本文将介绍几种高效的方法,帮助你快速批量统一Word中的图片大小。
这是最高效的批量处理方式,适合有一定技术基础的用户:
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
Alt + F8 运行宏即可如果你不熟悉VBA,可以借助Excel辅助处理:
虽然步骤稍多,但无需编程,适合普通用户。
Shapes 对象处理