(宏)Word 仅修改选中图片的尺寸
分类:Excel
功能
以宽定长,保持长宽比不变,修改图片宽度为给定的厘米数。
测试通过。
VBA代码
Sub 修改图片尺寸()
'
' 修改图片尺寸 宏
For Each p In Selection.InlineShapes
ratio = p.Height / p.Width
p.Width = CentimetersToPoints(10) '宽 x CM
p.Height = p.Width * ratio '手动保持长宽比不变
Next
End Sub
参考链接 使用宏批量修改word中图片大小
版权声明:本文为CSDN博主「bobobo6」的原创文章,遵循CC 4.0 BY-SA版权协议,转载请附上原文出处链接及本声明。
原文链接:https://blog.csdn.net/qq_33850482/article/details/107591210