Thanks again Jon. Weird thing is, it worked when I appended .value at the
end, i.e.
.SeriesCollection(i).Border.ColorIndex = TakimR.Cells(CurT, 5).value
without intermediate variable. Hope someone from Microsoft is reading this.
Best,
Hakan
"Jon Peltier" wrote:
I crashed Excel also. Then I rearranged your code slightly, and used an
intermediate variable for the color index retrieved from the sheet. This
code didn't crash, and colored the lines according to the default Excel 2003
palette:
Sub ColorLines()
Dim CurT As Long
Dim GrData As Worksheet
Dim TakimR As Worksheet
Dim i As Long
Dim ColIdx As Long
Set GrData = Worksheets(1)
Set TakimR = Worksheets(1)
With Charts("Ranks")
For i = 1 To 18
CurT = GrData.Cells(i, 1).Value
ColIdx = TakimR.Cells(CurT, 5).Value
.SeriesCollection(i).Border.ColorIndex = ColIdx
Next i
End With
End Sub
- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
Peltier Technical Services, Inc. - http://PeltierTech.com
_______
"Hakyab" wrote in message
...
All I am trying is to set the color of the graph line:
With Charts("Ranks")
For i = 1 To 18
CurT = GrData.Cells(i, 1)
.SeriesCollection(i).Border.ColorIndex = TakimR.Cells(CurT, 5)
Next i
End With
Excel crashes when the fourth line above executes (when file is recovered
the line color for the first series is set correctly, so I guess it
crashes
after executing). Same thing happens when I try to set Border.Weight as
well. On the other hand, Border.Color can be set without any crashes.
I tried including .clearformats before the problem line, but did not help.
Can anyone help me with this problem? I can at least do the color part if
some one could tell me how to convert ColorIndex to a color number.
Thanks,
Hakan