I want to have 20 shades of a color. 1 being the darkest, 20 being the
lightest. I am going to use this to color the cell background through code
based on the 1 - 20 value.

If I use .color = 6684672 as the 1 value, how do I graduate this down to say
..color = 16767449 as the 20 value?

Do a quick search for functions to convert RGB to HSL, and back again HSL to
RGB, you'll find lots of examples to play with.

Having return HS discard the L. Make 20 incremented values between say 0.8
to 0.1 as new L values (0 will be black and 1 white, so don't bother with
values near those). With the original H & S and your new Ls make your new
RGBs.

FWIW, with 20 shades it will be difficult to distinguish them all unless
they are placed adjacent, only then are the small shade differences
noticeable.

Regards,
Peter T


"Paul W Smith" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
>I want to have 20 shades of a color. 1 being the darkest, 20 being the
>lightest. I am going to use this to color the cell background through code
>based on the 1 - 20 value.
>
> If I use .color = 6684672 as the 1 value, how do I graduate this down to
> say .color = 16767449 as the 20 value?
>

Thanks Joel.

I too record macros to get color numbers.

However in this instance I can use this meethod to determine to number for
the darkest color, but how do I find the number of the next shade.... with
the shades graduating on a scale of 1 to 20 with 1 being the darkest and 20
being the lightest?



"joel" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
>
> I usually record a macro and then maually select the colors I want.
> Then use the color numbers from the recorded macro in my code. the
> color numbers is a hexidecimal number which is in three parts (Red=0 to
> 255, Green=0 to 255, Blue=0 to 255).
>
>
> So you could uses
>
> Red = 25
> Green = 50
> Blue = 10
>
>
> Mycolor = (Red*256*256) + (Green*256) + Blue
>
>
> --
> joel
> ------------------------------------------------------------------------
> joel's Profile: http://www.thecodecage.com/forumz/member.php?u=229
> View this thread:
> http://www.thecodecage.com/forumz/sh...d.php?t=198482
>
> http://www.thecodecage.com/forumz
>
>

Joel, that doesn't help make same-shade colours light to dark. As I
mentioned, need RGB to HSL to RGB with 20 increments of L but not near 0 or
1

Regards,
Peter T

"joel" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
>
> Pick 20 different shade in the macro. Don't use colorindex, instead
> select more colors. Convert the shades to hexidecimal to help you get
> the inbetween shades
>
>
> MyColor = 10053375
> RedShade = int(MyColor/(256*256))
> GreenShade = int(MyColor/256) mod 256
> BlueShade = MyColor Mod 256
>
>
> --
> joel
> ------------------------------------------------------------------------
> joel's Profile: http://www.thecodecage.com/forumz/member.php?u=229
> View this thread:
> http://www.thecodecage.com/forumz/sh...d.php?t=198482
>
> http://www.thecodecage.com/forumz
>

Instead of recording a macro to get your colors, try doing this instead. Go
into the VB editor (of a new workbook if you want) and add a UserForm. In
the Properties box, select any property that allows color to be set (for
example, the BackColor property), then click the down arrow that appear.
Next, select the Palette tab on the dialog box that appears and right click
one of the 16 white squares at the bottom of the dialog page. This will
bring up a color selection panel. You can select the main color you want
from the large color selection square and then select the 20 color
intensities you want from the thin vertical bar to the right of it. As you
select each color intensity, jot down the Red, Green and Blue values for it
and then use the 20 jotted down Red, Green and Blue values in VB's RGB
function when assigning them.

--
Rick (MVP - Excel)



"Paul W Smith" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> Thanks Joel.
>
> I too record macros to get color numbers.
>
> However in this instance I can use this meethod to determine to number for
> the darkest color, but how do I find the number of the next shade.... with
> the shades graduating on a scale of 1 to 20 with 1 being the darkest and
> 20 being the lightest?
>
>
>
> "joel" <(E-Mail Removed)> wrote in message
> news:(E-Mail Removed)...
>>
>> I usually record a macro and then maually select the colors I want.
>> Then use the color numbers from the recorded macro in my code. the
>> color numbers is a hexidecimal number which is in three parts (Red=0 to
>> 255, Green=0 to 255, Blue=0 to 255).
>>
>>
>> So you could uses
>>
>> Red = 25
>> Green = 50
>> Blue = 10
>>
>>
>> Mycolor = (Red*256*256) + (Green*256) + Blue
>>
>>
>> --
>> joel
>> ------------------------------------------------------------------------
>> joel's Profile: http://www.thecodecage.com/forumz/member.php?u=229
>> View this thread:
>> http://www.thecodecage.com/forumz/sh...d.php?t=198482
>>
>> http://www.thecodecage.com/forumz
>>
>>
>
>

How do I convert a color Long - 8210719, RGB(31,73,125) or #1F49FD to
something I can use to format the backcolor of a form control?

White = &H80000005& - what sort of value is this? How do I convert any of
the above color references to this format?

How does this help me?

I need something that I can use to color a control background at run time,
so it has to be in the format similar to:

&H80000005&

You method below turns a Long number into RGB, but I already have RGB, I
need the...whatveer the definiton is for the thing that has & signs at each
end.



"joel" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
>
> MyColor = 8210719
> RedShade = int(MyColor/(256*256))
> GreenShade = int(MyColor/256) mod 256
> BlueShade = MyColor Mod 256
>
> RGB(RedShade,GreenShade,BlueShade)
>
>
> --
> joel
> ------------------------------------------------------------------------
> joel's Profile: http://www.thecodecage.com/forumz/member.php?u=229
> View this thread:
> http://www.thecodecage.com/forumz/sh...d.php?t=198482
>
> http://www.thecodecage.com/forumz
>
>

That's the constant value for vbWindowbackground, ie a system setting,
typically white. I don't understand your question, you can apply that
constant directly. If you want to return the user's system colour(s) it's
easy enough with the GetSystemColor API, but you don't need to, at least to
set the colour properties of activeX controls.

Curiosity, having informed you how to go about getting a range of colour
shades why didn't you follow it up.

Regards,
Peter T


"Paul W Smith" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> How does this help me?
>
> I need something that I can use to color a control background at run time,
> so it has to be in the format similar to:
>
> &H80000005&
>
> You method below turns a Long number into RGB, but I already have RGB, I
> need the...whatveer the definiton is for the thing that has & signs at
> each end.
>
>
>
> "joel" <(E-Mail Removed)> wrote in message
> news:(E-Mail Removed)...
>>
>> MyColor = 8210719
>> RedShade = int(MyColor/(256*256))
>> GreenShade = int(MyColor/256) mod 256
>> BlueShade = MyColor Mod 256
>>
>> RGB(RedShade,GreenShade,BlueShade)
>>
>>
>> --
>> joel
>> ------------------------------------------------------------------------
>> joel's Profile: http://www.thecodecage.com/forumz/member.php?u=229
>> View this thread:
>> http://www.thecodecage.com/forumz/sh...d.php?t=198482
>>
>> http://www.thecodecage.com/forumz
>>
>>
>
>

Sorry Peter I have used the method of getting shades by graduating the L
value. I was doing this from code so having an RGB value was no issue.

This is another issue which is why I tried to start another thread (but
failed).

What I have is a heading area which is a range of cells colored with one of
the theme colour. I have as certained that it is :

8210719, RGB(31,73,125) or #1F49FD

I want to place a control on this header range of cells and match the
control's background color to the color of the cells. Using the proprties
on the control I want to set the background color but I cannot find anything
that it will accept. It will not accept #1F49FD so what do I do?

I know I could write something into the worksheet.activate event that colors
the control because this would be doing it vua code, which I can do because
I use the RGB function, but surely ther is a better way i coulod do it at
design time?





"Peter T" <peter_t@discussions> wrote in message
news:(E-Mail Removed)...
> That's the constant value for vbWindowbackground, ie a system setting,
> typically white. I don't understand your question, you can apply that
> constant directly. If you want to return the user's system colour(s) it's
> easy enough with the GetSystemColor API, but you don't need to, at least
> to set the colour properties of activeX controls.
>
> Curiosity, having informed you how to go about getting a range of colour
> shades why didn't you follow it up.
>
> Regards,
> Peter T
>
>
> "Paul W Smith" <(E-Mail Removed)> wrote in message
> news:(E-Mail Removed)...
>> How does this help me?
>>
>> I need something that I can use to color a control background at run
>> time, so it has to be in the format similar to:
>>
>> &H80000005&
>>
>> You method below turns a Long number into RGB, but I already have RGB, I
>> need the...whatveer the definiton is for the thing that has & signs at
>> each end.
>>
>>
>>
>> "joel" <(E-Mail Removed)> wrote in message
>> news:(E-Mail Removed)...
>>>
>>> MyColor = 8210719
>>> RedShade = int(MyColor/(256*256))
>>> GreenShade = int(MyColor/256) mod 256
>>> BlueShade = MyColor Mod 256
>>>
>>> RGB(RedShade,GreenShade,BlueShade)
>>>
>>>
>>> --
>>> joel
>>> ------------------------------------------------------------------------
>>> joel's Profile: http://www.thecodecage.com/forumz/member.php?u=229
>>> View this thread:
>>> http://www.thecodecage.com/forumz/sh...d.php?t=198482
>>>
>>> http://www.thecodecage.com/forumz
>>>
>>>
>>
>>
>
>
>

I'm getting even more confused! It looks like you have moved on now from
values like &H80000005& and system colours to standard RGB values

> 8210719, RGB(31,73,125) or #1F49FD

Where did you get #1F49FD from, it doesn't relate to the RGB or long colour
value in any way I can tell. The hex value is &H7D491F, and can be applied
just like that, but the equivalent for what is sometimes known as WebHex is
#1F497D (notice individual 3 hex values are reversed).

FWIW webHex #1F49FD is RGB(31,73,253)

All colour properties of controls accept RGB longs, so if you want to apply
that (incorrect) # value you'll need to parse it with the mid function, then
add "&H" coerce it to a long value. ActiveX controls can also accept the
window system colour constants, like your &H80000005&.

> I have used the method of getting shades by graduating the L value.
> I was doing this from code so having an RGB value was no issue.

I don't understand what you've been doing there at all but not to worry.

Regards,
Peter T


"Paul W Smith" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> Sorry Peter I have used the method of getting shades by graduating the L
> value. I was doing this from code so having an RGB value was no issue.
>
> This is another issue which is why I tried to start another thread (but
> failed).
>
> What I have is a heading area which is a range of cells colored with one
> of the theme colour. I have as certained that it is :
>
> 8210719, RGB(31,73,125) or #1F49FD
>
> I want to place a control on this header range of cells and match the
> control's background color to the color of the cells. Using the proprties
> on the control I want to set the background color but I cannot find
> anything that it will accept. It will not accept #1F49FD so what do I do?
>
> I know I could write something into the worksheet.activate event that
> colors the control because this would be doing it vua code, which I can do
> because I use the RGB function, but surely ther is a better way i coulod
> do it at design time?
>
>
>
>
>
> "Peter T" <peter_t@discussions> wrote in message
> news:(E-Mail Removed)...
>> That's the constant value for vbWindowbackground, ie a system setting,
>> typically white. I don't understand your question, you can apply that
>> constant directly. If you want to return the user's system colour(s) it's
>> easy enough with the GetSystemColor API, but you don't need to, at least
>> to set the colour properties of activeX controls.
>>
>> Curiosity, having informed you how to go about getting a range of colour
>> shades why didn't you follow it up.
>>
>> Regards,
>> Peter T
>>
>>
>> "Paul W Smith" <(E-Mail Removed)> wrote in message
>> news:(E-Mail Removed)...
>>> How does this help me?
>>>
>>> I need something that I can use to color a control background at run
>>> time, so it has to be in the format similar to:
>>>
>>> &H80000005&
>>>
>>> You method below turns a Long number into RGB, but I already have RGB, I
>>> need the...whatveer the definiton is for the thing that has & signs at
>>> each end.
>>>
>>>
>>>
>>> "joel" <(E-Mail Removed)> wrote in message
>>> news:(E-Mail Removed)...
>>>>
>>>> MyColor = 8210719
>>>> RedShade = int(MyColor/(256*256))
>>>> GreenShade = int(MyColor/256) mod 256
>>>> BlueShade = MyColor Mod 256
>>>>
>>>> RGB(RedShade,GreenShade,BlueShade)
>>>>
>>>>
>>>> --
>>>> joel
>>>> ------------------------------------------------------------------------
>>>> joel's Profile: http://www.thecodecage.com/forumz/member.php?u=229
>>>> View this thread:
>>>> http://www.thecodecage.com/forumz/sh...d.php?t=198482
>>>>
>>>> http://www.thecodecage.com/forumz
>>>>
>>>>
>>>
>>>
>>
>>
>>
>
>