在编辑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