×
INTELLIGENT WORK FORUMS
FOR ENGINEERING PROFESSIONALS

Are you an
Engineering professional?
Join Eng-Tips Forums!
• Talk With Other Members
• Be Notified Of Responses
• Keyword Search
Favorite Forums
• Automated Signatures
• Best Of All, It's Free!

*Eng-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

#### Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

# Create Chart with multiple collections definde by cells

## Create Chart with multiple collections definde by cells

(OP)
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

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

Thank you

### RE: Create Chart with multiple collections definde by cells

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,

Just traded in my OLD subtlety...
for a NUance!

### RE: Create Chart with multiple collections definde by cells

(OP)
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)

### RE: Create Chart with multiple collections definde by cells

Skip,

Just traded in my OLD subtlety...
for a NUance!

### RE: Create Chart with multiple collections definde by cells

(OP)
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

### RE: Create Chart with multiple collections definde by cells

#### Quote:

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

What does that mean?

Skip,

Just traded in my OLD subtlety...
for a NUance!

### RE: Create Chart with multiple collections definde by cells

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,

Just traded in my OLD subtlety...
for a NUance!

#### Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

#### Red Flag Submitted

Thank you for helping keep Eng-Tips Forums free from inappropriate posts.
The Eng-Tips staff will check this out and take appropriate action.

Close Box

# Join Eng-Tips® Today!

Join your peers on the Internet's largest technical engineering professional community.
It's easy to join and it's free.

Here's Why Members Love Eng-Tips Forums:

• Talk To Other Members
• Notification Of Responses To Questions
• Favorite Forums One Click Access
• Keyword Search Of All Posts, And More...

Register now while it's still free!