在撰写报告、论文或制作宣传材料时,经常需要插入多张图片。但不同来源的图片尺寸不一,容易导致排版混乱。本文将介绍几种在 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(8)
End If
Next pic
End Sub
Alt + F8,运行该宏即可。Ctrl 键逐个点击所有图片名称。