在撰写论文、制作报告或整理文档时,经常需要插入多张图片。但不同来源的图片尺寸不一,影响整体排版美观。本文将介绍几种在 Microsoft 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
运行宏即可自动将文档中所有内嵌图片统一缩放到指定宽度(保持比例)。
Shapes 而非 InlineShapes。通过上述方法,你可以快速实现 Word 文档中图片尺寸的标准化,大幅提升文档的专业性和可读性。无论是学术写作还是办公汇报,这一技巧都极具实用价值。