Hi all

Im having a few troubles sizing charts in a worksheet. I have created
5 charts on a new worksheet and have sized them by using

Set plotting = ThisWorkbook.Sheets("plotting")

Set ch = plotting.ChartObjects.Add(Left_Plot, Top_Plot, width_plot,
height_plot)
ch.Chart.ChartWizard Source:=plot_data, _
Gallery:=xlXYScatter, Format:=3, PlotBy:=xlColumns,
CategoryLabels:=1, SeriesLabels:=0, HasLegend:=2


All works well with this snippet however unless all charts have the
same width I find that the height of the plot on the worksheet varies
by up to a 1cm. not much but it makes the presentation look @#$#@

I am using Excel 2003, the charts I want to create have the following
widths

chart1=180
chart2=100
chart3=220
chart4=100
chart5=100

I am a bit perplexed so any help would be great

Cheers

Ian