Color problem

[Guest]

I am trying to set the color on a shape object to the same color as the
border color for a series object. I want to execute a statement akin to:

shLI.Line.ForeColor.SchemeColor =
ActiveChart.SeriesCollection(i).Border.ColorIndex

I know the above code fails but how can I translate the Border.ColorIndex to
an identical color permitting setting of SchemeColor? Any help appreciated.

 

[Bob Phillips]

Have you tried

shLI.Line.ForeColor.SchemeColor =
ActiveChart.SeriesCollection(i).Border.Color

--

HTH

RP
(remove nothere from the email address if mailing direct)

I am trying to set the color on a shape object to the same color as the
border color for a series object. I want to execute a statement akin to:

shLI.Line.ForeColor.SchemeColor =
ActiveChart.SeriesCollection(i).Border.ColorIndex

I know the above code fails but how can I translate the Border.ColorIndex to
an identical color permitting setting of SchemeColor? Any help

appreciated.

 

[Guest]

Yes. It results in an out of range error.

Have you tried

shLI.Line.ForeColor.SchemeColor =
ActiveChart.SeriesCollection(i).Border.Color

--

HTH

RP
(remove nothere from the email address if mailing direct)



appreciated.

 

[Peter T]

Following worked for me. With a line (shape) embedded on a chart and
selected:

Sub test()
Dim shLI As ShapeRange, cx as long, i

Set shLI = Selection.ShapeRange

i = 1 ' guess "i" is in a loop

cx = ActiveChart.SeriesCollection(i).Border.ColorIndex

If cx = xlAutomatic Then cx = i + 24

shLI.Line.ForeColor.SchemeColor = cx + 7
End Sub

Unless otherwise formated, coloured series lines will be xlautomatic, with
colours same as those from colorindex 25 and on, in series index order. Add
7 to convert to schemcolor.

Regards,
Peter T

 

[Guest]

Solves it. Thx.

Following worked for me. With a line (shape) embedded on a chart and
selected:

Sub test()
Dim shLI As ShapeRange, cx as long, i

Set shLI = Selection.ShapeRange

i = 1 ' guess "i" is in a loop

cx = ActiveChart.SeriesCollection(i).Border.ColorIndex

If cx = xlAutomatic Then cx = i + 24

shLI.Line.ForeColor.SchemeColor = cx + 7
End Sub

Unless otherwise formated, coloured series lines will be xlautomatic, with
colours same as those from colorindex 25 and on, in series index order. Add
7 to convert to schemcolor.

Regards,
Peter T

 

[Peter T]

Glad it works, should have mentioned that the relationship between series
index and colorindex 25 on only works in a "typical" chart, several factors
could upset this. If necessary apply the Color (not colorindex) as some cell
color format, the applied colour will be mapped to the nearest colorindex,
then return and apply that colorindex to your line (+7).

Regards,
Peter T

 

[Guest]

Thx. again. Will keep in mind. Some times the way colors work out in Excel do
not appear entirely logical, at least to me.

ojv