Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations TugboatEng on being selected by the Eng-Tips community for having the most helpful posts in the forums last week. Way to Go!

Create Chart with multiple collections definde by cells

Status
Not open for further replies.
tuli

tuli

Electrical
Joined
Feb 20, 2003
Messages
16
Location
US
Hello,
I am trying to create a chart with many plots and would like to do something similar to the code below.

Sub Macro1()
'
Dim R1, R2, R3, R4, R5, R6, R7 As Range
Dim RR(11) As Range
Sheet2.Select
For i = 0 To 11
Set RR(i) = Range(Cells(9, 2 + 9 * i), Cells(209, 2 + 9 * i))
Next i
'
Range(RR(0),RR(1),RR(2),RR(3),RR(4),RR(5),RR(6),RR(7),RR(8),RR(9),RR(10),RR(11)).Select


ActiveSheet.Shapes.AddChart2(240, xlXYScatterLinesNoMarkers).Select
ActiveChart.SetSourceData Source:=Range(RR(0),RR(1),RR(2))
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(1).Name = CELLS(8,2)
ActiveChart.FullSeriesCollection(1).XValues = RR(0)
ActiveChart.FullSeriesCollection(1).Values =RR(1)
FOR I=2 TO 11
ActiveChart.FullSeriesCollection(I).Name = CELLS(8,2 + 9 * i)
ActiveChart.FullSeriesCollection(I).XValues = RR(0)
ActiveChart.FullSeriesCollection(I).Values =RR(I)
NEXT I
End Sub

Please advise

Thank you
 
Sort by date Sort by votes
Hi,

What problems are you experiencing with your code and/or with your chart result?

Plz upload representative sample source data with 12 columns of data.

Skip,

[glasses]Just traded in my OLD subtlety...
for a NUance![tongue]
 
Upvote 0 Downvote
well, for starters, it just fails on

Range(RR(0),RR(1),RR(2),RR(3),RR(4),RR(5),RR(6),RR(7),RR(8),RR(9),RR(10),RR(11)).Select

what I am trying to do is defining an ARRAY of ranges, so I can use the definitions of the series collections in a loop (using the cells method)
 
Upvote 0 Downvote
Try Union instead of Range.

Skip,

[glasses]Just traded in my OLD subtlety...
for a NUance![tongue]
 
Upvote 0 Downvote
Thanks, I passed that line.

Now it fails on

ActiveChart.SetSourceData Source:=Range(RR(0), RR(1), RR(2))

I do not know how to proceed with the "Union"

Thanks
 
Upvote 0 Downvote
I do not know how to proceed with the "Union"
Click to expand...

What does that mean?

Skip,

[glasses]Just traded in my OLD subtlety...
for a NUance![tongue]
 
Upvote 0 Downvote
This code loads the chart with the data you selected.
Code: 
'
    Union(RR(0), RR(1), RR(2), RR(3), RR(4), RR(5), RR(6), RR(7), RR(8), RR(9), RR(10), RR(11)).Select

    ActiveSheet.Shapes.AddChart 240, xlXYScatterLinesNoMarkers

Is that what you intended?

Skip,

[glasses]Just traded in my OLD subtlety...
for a NUance![tongue]
 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

K
  • Locked
  • Question Question
How to create an add-in (VB Net) and add it to SolidWorks
Replies
1
Views
2K
MintJulep
M
Susangrizly
  • Locked
  • Question Question
How I circunavigated the problem with excel adding quotes to text
Replies
0
Views
794
Susangrizly
Susangrizly
William Heath
  • Locked
  • Question Question
VBA Excel Chart
Replies
6
Views
1K
SkipVought
SkipVought
NHI
  • Locked
  • Question Question
How to convert file CADAM DRAFTING (.cdd) to file pdf by vba excel code
Replies
2
Views
1K
NHI
NHI
justhumm
  • Locked
  • Question Question
Sharing XLAM Add-In with other users...?
Replies
1
Views
1K
Agent666
Agent666

Part and Inventory Search

Sponsor

Back
Top