Format Color for HTML

Format Color for HTML

This function, which converts a color value into a string suitable for HTML, formats an RGB color value, palette index, or system color constant. You accomplish this by breaking out the individual color values for red, green, and blue, then recombining them in the opposite order Windows likes, so HTML renderers will provide the correct color. The call to OleTranslateColor ensures you’re using an actual color reference, by dereferencing system color constants or palette indices:

Public Function HtmlHexColor(ByVal ColorValue As _	Long) As String	Dim r As Byte	Dim g As Byte	Dim b As Byte	' convert color if needed	Call OleTranslateColor( _		ColorValue, 0&, ColorValue)		' break out color bytes	r = (ColorValue Mod &H100)	g = (ColorValue  &H100) Mod &H100	b = (ColorValue  &H10000) Mod &H10000	' format the return string	HtmlHexColor = "#" & _		Right$("0" & Hex$(r), 2) & _		Right$("0" & Hex$(g), 2) & _		Right$("0" & Hex$(b), 2)End Function
See also  How to Create and Deploy QR Codes Online: A Comprehensive Guide

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist