Word批量调整图片大小纵横比的宏

Word 批量调整图片大小、锁定纵横比、解除纵横比宏

宏文件中图片统一大小调整为5.55cm*7.4cm，大家可以根据自己的需要调整红字部分。

Sub 图片统一大小() '设置图片大小

Dim n '图片个数

On Error Resume Next '忽略错误

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

贵州竹鼠养殖技术ActiveDocument.InlineShapes(n).LockAspectRatio = msoFalse '解除纵横比锁定

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

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

寻李丽珍Next n

End Sub

Sub 图片锁定纵横比() '锁定图片纵横比

Dim n '图片个数

On Error Resume Next '忽略错误

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

ActiveDocument.InlineShapes(n).LockAspectRatio = msotrue '打开纵横比锁定

Next n

End Sub诺和灵

Sub 图片解除纵横比() '解除图片纵横比

Dim n '图片个数

On Error Resume Next '忽略错误

调度系统For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片

ActiveDocument.InlineShapes(n).LockAspectRatio = msoFalse '解除纵横比锁定

安倍晋三对华态度Next n

新苏伊士运河End Sub

本文发布于:2024-09-20 17:27:54，感谢您对本站的认可！

标签：图片纵横锁定解除调整贵州部分调度

留言与评论（共有 0 条评论）