Try using the ChartObject.Height property. I haven't tested it, but the help
files say...
This example sets the height of the embedded chart.

Worksheets("Sheet1").ChartObjects(1).Height = 288Hope that helps
Lin

wrote in message
...
How do you set the size of an embedded chart? I tried

sub foo()


Charts.Add

...........

ActiveChart.ChartArea.Height = 200

..........

end sub

but .height is read-only. Also tried using .Shapes, but I
need the name of the shape (??) . Thanks