word 宏批量修改图片的大小

word 宏批量修改图片的大小

Sub 批量图片大小()
Dim iSha As InlineShape
For Each iSha In ActiveDocument.InlineShapes
If iSha.Type = wdInlineShapePicture Then
'iSha.LockAspectRatio = msoFalse '不锁定纵横比
iSha.LockAspectRatio = msoTrue '锁定纵横比
iSha.Width = CentimetersToPoints(30) '宽CM
'iSha.Height = CentimetersToPoints(21) '高CM
End If
Next
End Sub