利用宏命令,解锁纵横比,批量修改成想要的图片大小
代码如下:
Sub 批量修改图片尺寸()
'
' 批量修改图片尺寸 宏
'
'
Dim Shap As InlineShape
For Each Shap In ActiveDocument.InlineShapes
If Shap.Type = wdInlineShapePicture Then
Shap.LockAspectRatio = msoFalse '不锁定纵横比
Shap.Width = CentimetersToPoints(6) '宽6厘米
Shap.Height = CentimetersToPoints(6) '高6厘米
End If
Next
End Sub