The chartarea's width & height properties are read only, determined by the
chartobject's size, just a couple of pixels or so inside allowing for the
border. So to change the chartarea's size re-size the chartobject. You can
re-size the PlotArea though the chart would need at least one series.

In passing, in a chart-sheet the chartarea's size is determined by the
sheet's PageSetup settings.

Regards,
Peter T

"TONY" wrote in message
...
sThis snipet of code fails in the with black while trying to set .width =
200

sub a()
Set co = ActiveSheet.ChartObjects.Add(cw * 3, rh * 0.5, cw * 8, rh * 20)
' Name it
co.Name = "ChartExample"

With co.Chart.ChartArea
.Width = 200
End With

end sub