Function Dec2HexColor(decColor As Long) As String
If decColor > 16777215 Then decColor = 16777215
If decColor < 0 Then decColor = 0
Dec2HexColor = "#" & Right("00" & Hex((decColor Mod 256)), 2) & _ Right("00" & Hex((decColor \ 256) Mod 256), 2) & _ Right("00" & Hex(decColor \ 65536), 2)End Function
Sub test()
Debug.Print Dec2HexColor(vbRed) 'returns: "#FF0000"
Debug.Print Dec2HexColor(vbGreen) 'returns: "#00FF00"
Debug.Print Dec2HexColor(vbMagenta) 'returns: "#FF00FF"
Debug.Print Dec2HexColor(12345678) 'returns: "#4E61BC"
Debug.Print Dec2HexColor(0) 'returns: "#000000"
Debug.Print Dec2HexColor(RGB(255, 0, 0)) 'returns: "#FF0000"
Debug.Print Dec2HexColor(RGB(48, 151, 62)) 'returns: "#30973E"
End Sub
Crear cuenta
Comentarios sobre la versión: 1 (0)
No hay comentarios