在编辑Word文档时,常常会插入多张图片,但它们的尺寸可能不一致,影响整体排版美观。本文将介绍几种在Word中统一调整图片大小的方法,帮助你快速完成文档美化。
如果你熟悉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 + F11 打开VBA编辑器 → 插入模块 → 粘贴代码 → 运行宏。