# get color in between two other colors

I want to calculate the rgb value for a color IN BETWEEN two other colors. and also I want to be able to define how "close" to color2 the returned color is.
Basically I want to define the two "ends" of a gradient spectrum, and then be able to calculate the color anywhere inbetween.

How do I do this?

example:
color1 = RBG(256,256,256)
color2 = RBG(256, 0, 200)
inBetweenColor = calculateColorInBetween(color1,color2, 0.2)
so in this example I wold want the returned color to be 20% closer to color2 from color1

could you show me a function to do this with any two colors?
thanks!
LVL 5
###### Who is Participating?

Author Commented:
I created my own function which seems to do what I want... Thanks for helping me though. I will award points for helping out, but I will accept my own code as solution! thankyou!
``````Function getInbetweenColor(color1 As Long, color2 As Long, movePercentTowardsColor2 As Single) As Long

'Get colorinbetween

Dim red1 As Long
Dim green1 As Long
Dim blue1 As Long

Dim red2 As Long
Dim green2 As Long
Dim blue2 As Long

Dim color1Ok As Boolean
Dim color2Ok As Boolean

If RGBComponentsFromRGBLongToVariables(color1, red1, green1, blue1) = True And _
RGBComponentsFromRGBLongToVariables(color2, red2, green2, blue2) = True Then
'MsgBox "getInbetweenColor() colors ok"
Else
'MsgBox "getInbetweenColor() ERROR One or both colors NOT OK! cannot calculate. exit function."
Exit Function
End If

'compare values, get differences

Dim redDiff As Integer
Dim greenDiff As Integer
Dim blueDiff As Integer

redDiff = red2 - red1
greenDiff = green2 - green1
blueDiff = blue2 - blue1

'MsgBox "Diff RGB: " & redDiff & ", " & greenDiff & ", " & blueDiff

Dim newRed As Integer
Dim newGreen As Integer
Dim newBlue As Integer

'MsgBox redDiff * movePercentTowardsColor2

newRed = red1 + (redDiff * movePercentTowardsColor2)
newGreen = green1 + (greenDiff * movePercentTowardsColor2)
newBlue = blue1 + (blueDiff * movePercentTowardsColor2)

'MsgBox "New RGB: " & newRed & ", " & newGreen & ", " & newBlue

getInbetweenColor = RGB(newRed, newGreen, newBlue)

End Function
``````
0

Microsoft MVP ExcelCommented:
Niklas,

20% closer according to what? Hue? Saturation? Red, green or blue?

There is no definite "in between" for two different colors. You need to define what your "in between" is.

This goes beyond the scope of Excel or Office, into Color Management (with capitals).

The rules and regulations need to be provided by you, then someone here may come up with the required code.

So, what is the RGB value "between" (R256, G256, B256) and (R256, G0, B200)? What color value needs to change by how much to be the "between" value, and what are the rules?

cheers, teylyn
0

Author Commented:
ehmmm.... dont know really.. hehe

lets say I want to go from white to yellow.
so all colors in between would be more and more intense yellows... ?

similar to the default color palette in excel where you can choose different intense versions of red, purple, brown etc.

0

Commented:
Try this.
Just paste it as code for a sheet and see if the functions in there help.
``````Function ColorToRGB(ByVal color As Long) As Variant
Dim colorComponents(2) As Integer
colorComponents(0) = color Mod 256
colorComponents(1) = Fix((color Mod 65536) / 256)
colorComponents(2) = Fix(color / 65536)
ColorToRGB = colorComponents
End Function

Function Mix2(ByVal num1 As Long, ByVal num2 As Long, ByVal percent_from1 As Long)
Mix2 = num1 * (100# - percent_from1) / 100# + num2 * percent_from1 / 100#
End Function

Sub x()
color1 = RGB(0, 255, 255)
color2 = RGB(255, 0, 200)
' validate color components
rgb1 = ColorToRGB(color1)
rgb2 = ColorToRGB(color2)
Range(Cells(1, 1), Cells(3, 1)) = rgb1
Range(Cells(4, 1), Cells(6, 1)) = rgb2

' color option 2
color3 = RGB(Mix2(rgb2(0), rgb1(0), perc_closer_to_color2), _
Mix2(rgb2(1), rgb1(1), perc_closer_to_color2), _
Mix2(rgb2(2), rgb1(2), perc_closer_to_color2))
' show colors
Cells(1, 3).Interior.color = color1
Cells(2, 3).Interior.color = color2
Cells(3, 3).Interior.color = color3

' from color1 to color2 in 10 steps
Cells(1, 4).Interior.color = color1
For i = 1 To 10
'color3 = Cells(i + 1, 4).Interior.color
color3 = RGB(Mix2(rgb1(0), rgb2(0), i * 10), _
Mix2(rgb1(1), rgb2(1), i * 10), _
Mix2(rgb1(2), rgb2(2), i * 10))
Cells(i + 1, 4).Interior.color = color3
Range(Cells(i + 1, 5), Cells(i + 1, 7)) = ColorToRGB(color3)
Next

End Sub
``````
0

Commented:
NiklasMoller,

Attached is a file which might help you assess just what you mean or want by way of colours. I'm afraid the file is rather large.

Patrick
colours-interior-colours-02.xls
0

Commented:
The attached file is the same but you will need to run the macro to see the results - it takes about 20 seconds on my machine - however the file is much smaller.

Patrick
colours-interior-colours-03.xls
0

Author Commented:
I could not split the points. some wierd bug in EE, sorry. Thanks for helping me!
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.