Hi,

I have selected a colour from a cell and would like to use that colour for a
shape, however the colour is not the same- am I applying the colour in the
wrong format?


Retrieving the colour via:

SelectedColour = Range("Time_Colour").Interior.ColorIndex

And applying the color via:

Selection.ShapeRange.Fill.ForeColor.SchemeColor =
SelectedColour
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Line.ForeColor.SchemeColor =
SelectedColour
Selection.ShapeRange.Line.Visible = msoTrue

Thanks!

Add 7 to the colorindex to set the same schemecolor.

eg
..SchemeColor = SelectedColour + 7

Regards,
Peter T

"Sanjay" <(E-Mail Removed)> wrote in message
news:#MRTPV$(E-Mail Removed)...
> Hi,
>
> I have selected a colour from a cell and would like to use that colour for
a
> shape, however the colour is not the same- am I applying the colour in the
> wrong format?
>
>
> Retrieving the colour via:
>
> SelectedColour = Range("Time_Colour").Interior.ColorIndex
>
> And applying the color via:
>
> Selection.ShapeRange.Fill.ForeColor.SchemeColor =
> SelectedColour
> Selection.ShapeRange.Fill.Visible = msoTrue
> Selection.ShapeRange.Fill.Solid
> Selection.ShapeRange.Line.ForeColor.SchemeColor =
> SelectedColour
> Selection.ShapeRange.Line.Visible = msoTrue
>
> Thanks!
>
>
>

Sanjay:

Try replacing

SelectedColour = Range("Time_Colour").Interior.ColorIndex

with

SelectedColour = Range("Time_Colour").Interior.Color

--
Hope this helps
Martin Fishlock
Please do not forget to rate this reply.


"Sanjay" wrote:

> Hi,
>
> I have selected a colour from a cell and would like to use that colour for a
> shape, however the colour is not the same- am I applying the colour in the
> wrong format?
>
>
> Retrieving the colour via:
>
> SelectedColour = Range("Time_Colour").Interior.ColorIndex
>
> And applying the color via:
>
> Selection.ShapeRange.Fill.ForeColor.SchemeColor =
> SelectedColour
> Selection.ShapeRange.Fill.Visible = msoTrue
> Selection.ShapeRange.Fill.Solid
> Selection.ShapeRange.Line.ForeColor.SchemeColor =
> SelectedColour
> Selection.ShapeRange.Line.Visible = msoTrue
>
> Thanks!
>
>
>
>

Thanks Peter that's great !

Regards,

"Peter T" <peter_t@discussions> wrote in message
news:umkWpp$(E-Mail Removed)...
> Add 7 to the colorindex to set the same schemecolor.
>
> eg
> .SchemeColor = SelectedColour + 7
>
> Regards,
> Peter T
>
> "Sanjay" <(E-Mail Removed)> wrote in message
> news:#MRTPV$(E-Mail Removed)...
>> Hi,
>>
>> I have selected a colour from a cell and would like to use that colour
>> for
> a
>> shape, however the colour is not the same- am I applying the colour in
>> the
>> wrong format?
>>
>>
>> Retrieving the colour via:
>>
>> SelectedColour = Range("Time_Colour").Interior.ColorIndex
>>
>> And applying the color via:
>>
>> Selection.ShapeRange.Fill.ForeColor.SchemeColor =
>> SelectedColour
>> Selection.ShapeRange.Fill.Visible = msoTrue
>> Selection.ShapeRange.Fill.Solid
>> Selection.ShapeRange.Line.ForeColor.SchemeColor =
>> SelectedColour
>> Selection.ShapeRange.Line.Visible = msoTrue
>>
>> Thanks!
>>
>>
>>
>
>