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

Chart dimensions are largely determined by the content of the chart. If you
fix one dimension, the other is adjusted accordingly. Perhaps you can try
scaling the chart to achieve the effect you want. Or you can make a picture
of the chart and scale the pictures. Then display those.

--
Regards,
Tom Ogilvy

"Ian Mangelsdorf" wrote in message
m...
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

Thanks Tom I need the charts to be linked so Scaling it is

Cheers

Ian

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!