在撰写报告、论文或制作宣传资料时,常常需要插入多张图片。但不同来源的图片尺寸各异,手动一张张调整既费时又容易出错。本文将介绍几种高效的方法,帮助你在 Microsoft Word 中统一设置所有图片的大小。
Ctrl 键,逐个点击文档中的每张图片进行多选;若文档中包含数十张甚至上百张图片,可使用 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
⚠️ 注意:请先备份文档,并确保启用宏功能。