word批量修改图片大小——固定长、宽篇Sub 图片统一大小() '设置图片大小 Dim n '图片个数 On Error Resume Next '忽略错误 For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型 图片 ActiveDocument.InlineShapes(n).LockAspectRatio = msoFalse '解除纵横比锁定 ActiveDocument.InlineShapes(n).Height = 8.55 * 28.35 '设置图片高度为 8.55cm (1cm等于28.35px) ActiveDocument.InlineShapes(n).Width = 9.4 * 28.35 '设置图片宽度 9.4cm (1cm等于28.35px) Next n End Sub 备注:红字为设定图片的长、宽。需要再修改数字。 word批量修改图片大小——按比例缩放篇这部分要说的是把word中的所有图片按比例缩放! 修改代码后,点一次“运行”,图片在原来基础上放大1.1倍,点第二次“运行”,图片在放大后的基础上再放大1.1倍,以此类推。 备注:红字为设定图片的长、宽放大倍数。需要再修改数字。 Sub setpicsize() '设置图片大小 word批量修改图片大小——宽度不变,按比例缩放篇Sub 调整图片大小()' '调整图片大小 宏' Dim j '计数图片个数 For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数,图片类型为inlineshapes ActiveDocument.InlineShapes(j).Height = 328 '设置高度(28.4像素/厘米) ActiveDocument.InlineShapes(j).Width = 457 '设置宽度(28.4像素/厘米) Next j End Sub |
|