Chart.HeightPercent (PowerPoint)

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

ActivePresentation.Slides(1).Shapes(1).Chart.HeightPercent = 90