打开word,导入图片。
插入-图片,选择图片插入,进入目录后,Ctrl+A即可选择全部。
按Alt+F8,进入宏编辑窗口。
首先输入宏名称,然后点击新建即可。
在代码窗口中输入如下代码:
Dim iSha As InlineShapeFor Each iSha In ActiveDocument.InlineShapes If iSha.Type = wdInlineShapePicture Then iSha.LockAspectRatio = msoFalse '不锁定纵横比 iSha.Width = CentimetersToPoints(9#) '宽5CM iSha.Height = CentimetersToPoints(9.2) '高5CM End If Next
点击运行,如下图:
运行后,关闭宏编辑窗口,放心,关闭窗口后,宏还在,可以不保存。
结果如下:
想了解更多关于Word中将图片变成统一大小的操作技巧 Word中怎么将图片变成统一的内容,请扫微信
或微信搜索jiemingpan
版权说明:本文版权由作者自行负责,如有侵权请联系本站删除。