Help please!

I have a chart in which I want to import new series. They must be
inserted one by one, because I want to draw a discontinuous graph. And
here is my problem: when the data are inserted Excel automaticaly apply
different line colour for each new inserted line. How should I prevent
this. The code is dramaticaly slow down because of formating the lines

Here is the code in which I inserted new series and format each of them
in wanted style:

For L = 1 To j
Xkoordinate = Range(Cells(26 + L, 3), Cells(26 + L, 4))
Ykoordinate = Range(Cells(26 + L, 5), Cells(26 + L, 6))
Set aNewSeries = .SeriesCollection.NewSeries
aNewSeries.Values = Ykoordinate
aNewSeries.XValues = Xkoordinate
With .SeriesCollection(L)
..Border.Weight = xlThick 'Thin lines
..Border.ColorIndex = 25 'Blue lines
..MarkerStyle = xlNone 'Without markers
End With
Next L

Thank you in advance

Dr.Ile


--
Dr.Ile
------------------------------------------------------------------------
Dr.Ile's Profile: http://www.excelforum.com/member.php...o&userid=15975
View this thread: http://www.excelforum.com/showthread...hreadid=380001

Is it a typo or does your code omit the leading dots...

.Border.Weight = xlThick 'Thin lines
.Border.ColorIndex = 25 'Blue lines
.MarkerStyle = xlNone 'Without markers


Jim Cone
San Francisco, USA


"Dr.Ile" wrote in
message ...

Help please!

I have a chart in which I want to import new series. They must be
inserted one by one, because I want to draw a discontinuous graph. And
here is my problem: when the data are inserted Excel automaticaly apply
different line colour for each new inserted line. How should I prevent
this. The code is dramaticaly slow down because of formating the lines

Here is the code in which I inserted new series and format each of them
in wanted style:

For L = 1 To j
Xkoordinate = Range(Cells(26 + L, 3), Cells(26 + L, 4))
Ykoordinate = Range(Cells(26 + L, 5), Cells(26 + L, 6))
Set aNewSeries = .SeriesCollection.NewSeries
aNewSeries.Values = Ykoordinate
aNewSeries.XValues = Xkoordinate
With .SeriesCollection(L)
Border.Weight = xlThick 'Thin lines
Border.ColorIndex = 25 'Blue lines
MarkerStyle = xlNone 'Without markers
End With
Next L

Thank you in advance

Dr.Ile


--
Dr.Ile
------------------------------------------------------------------------
Dr.Ile's Profile: http://www.excelforum.com/member.php...o&userid=15975
View this thread: http://www.excelforum.com/showthread...hreadid=380001