第1个回答 2017-05-06
分析:由于Word不能像excel一样多选图片,所以不能多选图片后统一缩放,所以考虑可以重复多次一样动作的宏功能:
打开视图-宏-输入一个名字-创建
2.输入以下代码,注意替换内有的内容和尺寸不是下面的5cm可以直接更改。
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 NextEnd Sub
3.宏-运行,可以直接批量缩放图片尺寸,最终效果图。本回答被网友采纳