Scatter plot - macro OK - VB 6 not OK

[Brian Elliott]

If I have 2 rows of data, say, A1 to C1 and A2 to C2 and record a macro :-

Charts Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source := Sheets ( " Sheet1 " ).Range ( " A1 : C2
" ), plotby := xlrows

This works - I get 3 pairs of co-ordinates in a graph.

When I use the equivalent code in a VB6 program :-

Set ch = wbook1.Charts.Add

With ch

..ChartType = xlXYScatter

..ChartWizard Source := wsheet1.Range ( " A1 : C2 " ) , plotby := xlRows

End With

I get SIX separate points , 2 at x axis co-ordinate 1 , 2 more at x=2 etc.

I have tried xlColumns, leaving the plotby out etc. but I am missing
something very obvious I think.

Any suggestions please.

[Jon Peltier]

Brian -

I take it you have X values or category labels in A1:C1 and Y values in A2:C2. You
should insert a column, so A1:C2 is shifted to B1:D2, then leave cell A1 blank and
put a label (series name) into A2. Then use the range A1:D2 as the source data range.

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Peltier Technical Services
Tutorials and Custom Solutions
http://PeltierTech.com/
_______

Brian Elliott wrote:

> If I have 2 rows of data, say, A1 to C1 and A2 to C2 and record a macro :-
>
> Charts Add
> ActiveChart.ChartType = xlXYScatter
> ActiveChart.SetSourceData Source := Sheets ( " Sheet1 " ).Range ( " A1 : C2
> " ), plotby := xlrows
>
> This works - I get 3 pairs of co-ordinates in a graph.
>
> When I use the equivalent code in a VB6 program :-
>
> Set ch = wbook1.Charts.Add
>
> With ch
>
> ..ChartType = xlXYScatter
>
> ..ChartWizard Source := wsheet1.Range ( " A1 : C2 " ) , plotby := xlRows
>
> End With
>
> I get SIX separate points , 2 at x axis co-ordinate 1 , 2 more at x=2 etc.
>
> I have tried xlColumns, leaving the plotby out etc. but I am missing
> something very obvious I think.
>
> Any suggestions please.
>
>