利用word文档的插入图片功能，插入很多图片，想更改图片大小，一张张改太麻烦了，有没有什么方法，能一下把文档中包括的图片，全部更改大小，大小相同.
用宏可以轻松完成：
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
本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请
点击举报。
