View Single Post
  #1   Report Post  
moondark
 
Posts: n/a
Default Dynamically changing Border-Color of all series() to "0"


Hi,

I had to create a script that transfers data out of ascii-files into
Excel-Sheets. After transfering I wanted to create a Chart with that
data using VBA. So far it worked.

Now I'm stuck. I tried to change the color of all the lines to black.

Code:
--------------------

For i = 2 To NewChart.SeriesCollection.count 'First DataSeries is "2"
NewChart.SeriesCollection(c).Select
With Selection.Border
.ColorIndex = 1
.Weight = xlMedium
.LineStyle = xlContinuous
End With
Next i
--------------------


It works, but I have 190 Series in average so it takes about 5 minutes
to change the color. I could draw them with permanent marker on my
screen faster. ;)

So, is it possible to speed that up?

Thank you,

Simon


--
moondark
------------------------------------------------------------------------
moondark's Profile: http://www.excelforum.com/member.php...o&userid=27390
View this thread: http://www.excelforum.com/showthread...hreadid=469118