word中批量修改所有图片大小的代码
很多时候为了排版方便，需要批量调整word中的图片大小为统一的尺寸，以下VBA代码可以帮忙我们实现。其中为您需要定义的图片高度。Sub 批量设置图片大小()
Myheigth = 8.5 '厘米
On Error Resume Next '忽略错误
For Each iShape In ActiveDocument.InlineShapes
iShape.LockAspectRatio = msoTrue '锁定图片的纵横比
iShape.Height = 28.345 * Myheigth'设置图片高度为任意cm
Next
End Sub
66666666666666 66666666666666
页:
[1]