Color Variation

  • Thread starter Thread starter Paul W Smith
  • Start date Start date
P

Paul W Smith

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
 
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, 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
 
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.
 
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.
 
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
 
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?
 
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
Click to expand...

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.
Click to expand...

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

Regards,
Peter T
 
As I have already tried to explain, its a constant. Namely
vbWindowBackground, used to return a system colour.

Regards,
Peter T
 
Joel/Peter T,

I would like to sincerely thank the pair of you for bearing with me on this.
It has taken a while for the penny to drop, especially about the
vbWindowsBackground variable not being an actual color.

I have worked it all out now, so my thanks for your assistance.

PWS
 
Back
Top