如何在 MS Word 中更改所选图像的高度百分比?

How do I change the height percentage on a selected image in MS Word?

在 MS Word 中手动选择图像时,有两个 "heights"。一个有维度,另一个是百分比。我想改变百分比。这里的属性不是Height,而是ScaleHeight。我提供的代码适用于所有图像。有没有办法对选定的图像执行此操作?

Sub aaImage60()

Dim shpIn As InlineShape

For Each shpIn In ActiveDocument.InlineShapes
shpIn.ScaleHeight = 60
Next shpIn

End Sub

假设您选择了内联图像,这将起作用:

With Selection.InlineShapes(1)
    .ScaleHeight = 60
End With