Как изменить процент высоты выбранного изображения в MS Word?

Question

При ручном выборе изображения в MS Word, есть две «высоты».Один имеет размеры, другой процент.Я хочу изменить процент.Свойство для этого не Высота, а 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