wps宏——批量修改图片宽高

Sub 批量修改图片宽度()

宽度 = InputBox("请输入宽度")
纵横比 = InputBox("请输入是否锁定纵横比，1是锁定，0是解除")

For Each 图片 In ActiveDocument.InlineShapes
图片.LockAspectRatio = 纵横比
图片.Width = 宽度 * 72 / 2.54
Next

For Each 图片 In ActiveDocument.Shapes
图片.LockAspectRatio = 纵横比
图片.Width = 宽度 * 72 / 2.54
Next

End Sub

Sub 批量修改图片高度()

高度 = InputBox("请输入高度")
纵横比 = InputBox("请输入是否锁定纵横比，1是锁定，0是解除")

For Each 图片 In ActiveDocument.InlineShapes
图片.LockAspectRatio = 纵横比
图片.Height = 高度 * 72 / 2.54
Next

For Each 图片 In ActiveDocument.Shapes
图片.LockAspectRatio = 纵横比
图片.Height = 高度 * 72 / 2.54
Next

End Sub