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

Question

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

Sub aaImage60()

Dim shpIn As InlineShape

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

End Sub

Answer 1

假设您已选择内嵌图像，这将起作用：

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