在撰写论文、制作简历或整理图文报告时,我们常常需要在Word文档中插入多张照片。然而,不同来源的照片尺寸不一,会导致排版混乱。本文将介绍几种简单有效的方法,帮助你在Word中批量统一修改照片的大小和尺寸。
如果你熟悉基础VBA操作,可以使用以下宏代码一键统一所有图片尺寸:
Sub ResizeAllPictures()
Dim pic As InlineShape
For Each pic In ActiveDocument.InlineShapes
If pic.Type = wdInlineShapePicture Then
pic.LockAspectRatio = msoTrue
pic.Width = CentimetersToPoints(5) ' 设置为5厘米宽
End If
Next pic
End Sub
使用方式:按 Alt + F11 打开VBA编辑器 → 插入模块 → 粘贴代码 → 运行宏。
推荐使用图像处理软件(如Photoshop、美图秀秀、或在线工具)提前将所有照片裁剪/缩放到相同尺寸,再插入Word。这样能最大程度保证清晰度与一致性。