功能
以宽定长，保持长宽比不变，修改图片宽度为给定的厘米数。
测试通过。
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中图片大小
但是长宽比锁定无效，因此自己手动写
版权声明：本文为qq_33850482原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。