How to change plot area size of a shape pasted from an Excel file to a powerpoint?

[Adam Brave]

Update:
I tried to use the code below to change the plot area but it is throwing the error "Object doesn't support this action" when it reaches the .Chart.PlotArea.Height = 90 line.

Dim PPT_object As PowerPoint.ApplicationWith PPT_object.ActiveWindow.Presentation.Slides(4).Shapes.Range
If .HasChart Then
     .Chart.PlotArea.Height = 90
End If
End With

Can someone help me to understand why this line is giving this error?

Thanks