在撰写报告、论文或制作文档时,经常需要插入多张图片。如果每张图片尺寸不一致,会影响整体排版美观。本文将介绍几种在 Microsoft Word 中统一调整图片尺寸的方法,包括快捷操作和批量处理技巧。
Ctrl 键,依次点击每张图片进行多选;如果你熟悉 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
运行方法:按 Alt + F11 打开 VBA 编辑器 → 插入模块 → 粘贴代码 → 按 F5 运行。
Shapes 对象处理。