（宏）Word 仅修改选中图片的尺寸

功能

以宽定长，保持长宽比不变，修改图片宽度为给定的厘米数。
测试通过。

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中图片大小
但是长宽比锁定无效，因此自己手动写