1、用宏批量调整word中图片的大小
SubFormatPics()
Dim iSha As InlineShape
For Each iSha In ActiveDocument.InlineShapes
If iSha.Type = wdInlineShapePicture Then
iSha.LockAspectRatio = msoFalse '不锁定纵横比
iSha.Width = CentimetersToPoints(15) '宽15CM
iSha.Height = CentimetersToPoints(25) '高25CM
End If
Next
EndSub
ps:只需要修改高度宽度即可
SubFormatPics()
Dim iSha As InlineShape
For Each iSha In ActiveDocument.InlineShapes
If iSha.Type = wdInlineShapePicture Then
iSha.LockAspectRatio = msoFalse '不锁定纵横比
iSha.Width = CentimetersToPoints(15) '宽15CM
iSha.Height = CentimetersToPoints(25) '高25CM
End If
Next
EndSub
ps:只需要修改高度宽度即可