Adjust either plot area of chart to allow th horizontal category axis to be seen

[FryGirl]

I have a chart with the horizontal axis rotated 270 degrees.

I need to have the chart adjust as I make changes via VBA.

This is what is recorded, but I don't know the exact height. How can this be modified to allow the horizontal axis is be completely visible and not scrunched up?

Sub Macro3()
    ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.PlotArea.Select
    Selection.Height = 168.93
End Sub