DesiredHeight = InputBox("Enter desired height for images:", , 400)
For Each ishape In ActiveDocument.InlineShapes
With ishape
ImageWidth = .Width
ImageHeight = .Height
NewHeight = DesiredHeight
NewWidth = Round(NewHeight * ImageWidth / ImageHeight)
.Height = NewHeight
.Width = NewWidth
End With
Next