word批量修改图片的大小

打开需要统一设置图片尺寸的Word文档，然后按下【Alt+F11】组合键打开VBA编辑窗口。

在VBA窗口中双击左侧的“ThisDocument”打开该文档的代码编辑器，并且输入以下的内容。

Sub FormatPics()
Dim TuPian As InlineShape
For Each TuPian In ActiveDocument.InlineShapes
If TuPian.Type = wdInlineShapePicture Then
TuPian.LockAspectRatio = msoFalse '不锁定图片的宽高比'
TuPian.Width = CentimetersToPoints(4.15) '设置图片宽度为10CM'
TuPian.Height = CentimetersToPoints(4.15) '设置图片高度为8CM'
End If
Next
End Sub

运行代码之后再返回查看Word中的图片，已经全部按照代码中设置好的尺寸大小调整好了。其中，上面代码中的宽度和高度的尺寸可以根据自己的需求任意调整。