使用宏,alt+F8进入宏查看界面,点击创建,输入以下代码,设置你要的图片高、宽,单位:厘米。f5或保存后退出宏编辑界面。
然后alt+F8进入宏查看界面,点击运行即可。
注意:全文档的图片都会被统一修改大小。请谨慎操作或备份后操作!!!!!
Sub 批量设置图片大小()
'
' Macro 宏
'
'
Myheigth = 12
Mywidth = 8
On Error Resume Next '忽略错误
For Each iShape In ActiveDocument.InlineShapes
iShape.Height = 28.345 * Myheigth '设置图片高度为任意cm
iShape.Width = 28.345 * Mywidth '设置图片宽度
Next
For Each Shape In ActiveDocument.Shapes
Shape.Height = 28.345 * Myheigth '设置图片高度为任意cm
Shape.Width = 28.345 * Mywidth '设置图片宽度
Next
End Sub
作者:到处玩的
链接:https://www.zhihu.com/question/23242989/answer/168158120