Setting Excel chart series from vb6

  • Thread starter Thread starter Jim
  • Start date Start date
J

Jim

hi,
I currently have a line chart which series is setup in vb6.

I have a undefined amount of values exporting into excel, so i need to set my
chart series from vb to account for the undefinded amount of values. I have
upto 3 series per chart already made awaiting for the vb series data.

the problem is that excel will only let me alter series 1 and i need it to do
3, and sometimes excel will give an error saying "unable to set series data".

this is what i have so far.
x& = no. of lines of data

Set xlSheet = xlBook.Worksheets("Temperate Chart")
xlSheet.ChartObjects(1).Chart.SeriesCollection(1).XValues =
Worksheets("Data").Range("A10:A" & x&) '"Data!$A$10:$A$" & x&
'xlSheet.ChartObjects(1).Chart.SeriesCollection(1).Values =
Worksheets("Data").Range("C10:C" & x&)
'xlSheet.ChartObjects(1).Chart.SeriesCollection(2).Values =
Worksheets("Data").Range("G10:G" & x&)
'xlSheet.ChartObjects(1).Chart.SeriesCollection(3).Values =
Worksheets("Data").Range("K10:K" & x&)


Please help.
 
Anyone :(
hi,
I currently have a line chart which series is setup in vb6.

I have a undefined amount of values exporting into excel, so i need to set my
chart series from vb to account for the undefinded amount of values. I have
upto 3 series per chart already made awaiting for the vb series data.

the problem is that excel will only let me alter series 1 and i need it to do
3, and sometimes excel will give an error saying "unable to set series data".

this is what i have so far.
x& = no. of lines of data

Set xlSheet = xlBook.Worksheets("Temperate Chart")
xlSheet.ChartObjects(1).Chart.SeriesCollection(1).XValues =
Worksheets("Data").Range("A10:A" & x&) '"Data!$A$10:$A$" & x&
'xlSheet.ChartObjects(1).Chart.SeriesCollection(1).Values =
Worksheets("Data").Range("C10:C" & x&)
'xlSheet.ChartObjects(1).Chart.SeriesCollection(2).Values =
Worksheets("Data").Range("G10:G" & x&)
'xlSheet.ChartObjects(1).Chart.SeriesCollection(3).Values =
Worksheets("Data").Range("K10:K" & x&)

Please help.
Click to expand...
 
Hi,

Do the range references contain data. Empty cells can sometimes cause
problems when trying to set range references.

Cheers
Andy
 
The cells get full up and then i send the series values.

Andy said:
Hi,

Do the range references contain data. Empty cells can sometimes cause
problems when trying to set range references.

Cheers
Andy
Anyone :(
Click to expand...
[quoted text clipped - 22 lines]
Click to expand...
 
Hi,

In the limited testing I can do the code works for me for all 3 series
when the cells are filled.
I could only raise an error if any of the cells in row 10 were either
completely empty or had the formula =NA(). Numbers and even letters was
fine.

Cheers
Andy
The cells get full up and then i send the series values.

Andy said:
Hi,

Do the range references contain data. Empty cells can sometimes cause
problems when trying to set range references.

Cheers
Andy

Anyone :(
Click to expand...

[quoted text clipped - 22 lines]
Please help.
Click to expand...
Click to expand...
Click to expand...
 
thx for the reply, its starting to com on ok now. I just need to find out
how to count series now.

Andy said:
Hi,

In the limited testing I can do the code works for me for all 3 series
when the cells are filled.
I could only raise an error if any of the cells in row 10 were either
completely empty or had the formula =NA(). Numbers and even letters was
fine.

Cheers
Andy
The cells get full up and then i send the series values.
Click to expand...
[quoted text clipped - 11 lines]
Click to expand...
 
Glad to hear that.

Count series as in,

xlSheet.ChartObjects(1).Chart.SeriesCollection.count

Cheers
Andy
thx for the reply, its starting to com on ok now. I just need to find out
how to count series now.

Andy said:
Hi,

In the limited testing I can do the code works for me for all 3 series
when the cells are filled.
I could only raise an error if any of the cells in row 10 were either
completely empty or had the formula =NA(). Numbers and even letters was
fine.

Cheers
Andy

The cells get full up and then i send the series values.
Click to expand...

[quoted text clipped - 11 lines]
Please help.
Click to expand...
Click to expand...
Click to expand...
 
Hi. my problem now is that my code does not work when im not on the chart
page.
i have 4 pages:
1 = data page
2,3,4 = chart pages

if i run the code while the datapage is selected(viewed) the code will be
rejected.

thx for the reply, its starting to com on ok now. I just need to find out
how to count series now.
Hi,
Click to expand...
[quoted text clipped - 12 lines]
Click to expand...
 
Back
Top