通过宏vbs批量把word中图片修改统一大小

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

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

2、编辑宏

输入下面代码

Sub 宏1()
'
' 宏1 宏
'
'
    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(10) '高5CM
    End If
    Next
End Sub