在撰写报告、论文或制作文档时,常常需要插入多张图片。如果每张图片大小不一,会影响整体美观和排版效果。本文将介绍如何在 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 = msoFalse
pic.Width = CentimetersToPoints(10) ' 宽度设为10厘米
pic.Height = CentimetersToPoints(6) ' 高度设为6厘米
End If
Next pic
End Sub
Alt + F8,运行该宏即可自动调整所有内嵌图片尺寸。