Word工程师之使用宏命令批量修改word中图片大小并保持纵横比

Sub SetPicturesSize() '定义宏

Dim n '计数器

On Error Resume Next '忽略错误

For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片

InlineShapes.LockAspectRatio = msoTrue 'msoTrue表示锁定纵横比 msoFalse是不锁定

ActiveDocument.InlineShapes(n).Height = 666 * 28.35 '设置图片高度666cm（1cm=28.35px）

ActiveDocument.InlineShapes(n).Width = 666 * 28.35 '设置图片宽度666cm

Next n

End Sub

技不技术都是虚的，office才最重要。 ——某不知名菜鸡