使用宏批量修改word中图片大小

word中使用宏修改图片大小，图片大小相同

1、打开word中视图选项卡，选择“宏”->“输入宏名”->“创建”

2、编辑宏

输入下面代码

Sub FormatPics()
 Dim iSha As InlineShape
 For Each iSha In ActiveDocument.InlineShapes
 If iSha.Type = wdInlineShapePicture Then
 iSha.LockAspectRatio = msoFalse '不锁定纵横比
 iSha.Width = CentimetersToPoints(5) '宽5CM
 iSha.Height = CentimetersToPoints(5) '高5CM
 End If
 Next
 End Sub

3、保存代码，选择对应的宏运行即可，左侧为图片修改后的大小