Chart.HeightPercent (Word)

Returns or sets the height of a 3D chart as a percentage of the chart width (from 5 through 500 percent).

With ActiveDocument.InlineShapes(1) 
 If .HasChart Then 
 .Chart.HeightPercent = 80 
 End If 
End With