Solved Is VBA.Hex(lColor) give a wrong color code ? (1 Viewer)

[smig]

is it possible that VBA.Hex(lColor) give a wrong color code ?
Seems I have to take it like Last2 - Middle - First2

 

[theDBguy]

What is the value of IColor?

 

[smig]

What is the value of IColor?

As example

The correct Color code for RGB(74, 169, 194) is 12757322
The correct Hex code is #4AA9C2

VBA.Hex(12757322) will result in C2A94A

 

[missinglinq]

...Seems I have to take it like Last2 - Middle - First2

Found this Function in my archive files, and the Comments included seems to say that the answer is 'Yes.'

Public Function HexColor(strHex As String) As Long

'converts Hex string to long number, for colors

'the leading # is optional

'example usage

'Me.iSupplier.BackColor = HexColor("FCA951")

'Me.iSupplier.BackColor = HexColor("#FCA951")

'the reason for this function is to programmatically use the
'Hex colors generated by the color picker.
 'The trick is, you need to reverse the first and last hex of the
'R G B combination and convert to Long
'so that if the color picker gives you this color #FCA951
'to set this in code, we need to return CLng(&H51A9FC)

Dim strColor As String
Dim strR As String
Dim strG As String
Dim strB As String

'strip the leading # if it exists

If Left(strHex, 1) = "#" Then

strHex = Right(strHex, Len(strHex) - 1)

End If

'reverse the first two and last two hex numbers of the R G B values

strR = Left(strHex, 2)

strG = Mid(strHex, 3, 2)

strB = Right(strHex, 2)

strColor = strB & strG & strR

HexColor = CLng("&H" & strColor)

End Function

 

[isladogs]

Try the code in my colour converter. It works!

Colour Converter

This demonstrates two different methods for selecting and converting colours between the three different formats used by Access: OLE, RGB & HEX

www.isladogs.co.uk

 

[smig]

Try the code in this colour converter http://www.mendipdatasystems.co.uk/colour-converter/4594450413. It works!

Thanks

I already have a working code.

Problem was with the built in VBA.Hex(lColor) which reverse it
As also approved by missinglinq

All iis good now

 

[The_Doc_Man]

As it turns out, Access and Excel can use the same general scheme of supplying red, green, and blue - except that one of them reverses red and blue when compared to the other. In which library did you find that routine?

 

[smig]

As it turns out, Access and Excel can use the same general scheme of supplying red, green, and blue - except that one of them reverses red and blue when compared to the other. In which library did you find that routine?

Ouch

How can I know where the VBA.Hex(lColor) is ?

 

[The_Doc_Man]

To find where you got the routine, open a VBA code page. Then open Object Explorer and search for the HEX routine. The response will tell you where it is by naming the containing library. You DO realize that the return is a string value?

Hex function (Visual Basic for Applications)

Office VBA reference topic

docs.microsoft.com

This seems to be coming from a general library, neither Excel-specific nor Access-specific. At least that's what I see when I read the article.

The correct Color code for RGB(74, 169, 194) is 12757322
The correct Hex code is #4AA9C2

VBA.Hex(12757322) will result in C2A94A

Well.... it should. The correct HEX code, as confirmed using the Windows Calculator in "Programming" mode, IS C2A94A - so rather obviously, you have a "swap red and blue" case. Have you considered using RGB( 194, 169, 74) for your conversion? The color you get depends on the values you enter, so enter them in the other order.

 

[isladogs]

Taking the values provided by Doc as an example, the screenshot below shows the conversion values: OLE=>RGB=>HEX

Enter any one set of values and the other two are automatically displayed.
Or you can use the sliders to choose a colour and from that get the three sets of values.

The screenshot is from the utility I mentioned in post #5 & always gives the correct values

 

[smig]

Thank you all

Once I know the Red and Blue are swapped I can live with that