word用宏批量修改图片尺寸
Sub setpicsize() '设置图片大小
Dim n '图片个数
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型 图片
ActiveDocument.InlineShapes(n).Height = 15 * 28.35 '设置图片高度为 5cm (1cm等于28.35px)
ActiveDocument.InlineShapes(n).Width = 8 * 28.35 '设置图片宽度 4cm
Next n
End Sub
上述代码把宽度和高度都锁定了固定的值,
现在有一个问题,想批量修改图片的宽度为固定的,图片的高度按图片纵横比自动进行调整。
只固定图片宽度 ,高度不固定。即不改变图片长宽比例。
代码如何修改?
[ 此帖被lxg2008在2019-07-21 20:27重新编辑 ]