在撰写论文、制作报告或整理资料时,常常需要插入大量图片。但这些图片尺寸不一,手动一张张调整费时又低效。本文将介绍几种在 Microsoft Word 中批量调整图片大小的实用方法。
适合处理大量文档或频繁操作:
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
运行该宏即可自动将所有内嵌图片宽度设为 10 厘米(可自行修改数值)。
掌握批量调整图片的方法,能极大提升 Word 文档排版效率。无论是学术写作还是职场汇报,整洁统一的图片格式都能让你的文档更专业。