Function GetHtmlColorFromOleColor(ByVal lCol As OLE_COLOR) As String
Dim R%, G%, B%
R = Int(lCol And &HFF)
G = Int((lCol And &H100FF00) / &H100)
B = Int((lCol And &HFF0000) / &H10000)
GetHtmlColorFromOleColor = "#" & Format$(Hex(R), "00") & Format$(Hex(G), "00") & Format$(Hex(B), "00")
End Function
'
'
Function GetOleColorFromHtmlColor(ByVal sCol As String) As OLE_COLOR
sCol = RightB$(sCol, LenB(sCol) - 2)
sCol = Right$(sCol, 2) & Mid$(sCol, 3, 2) & Left$(sCol, 2)
GetOleColorFromHtmlColor = CLng("&H00" & sCol)
End Function
'-------------------------------------------------
' EXEMPLE D'UTILISATION
Private Sub Form_Load()
MsgBox GetHtmlColorFromOleColor(vbRed)
MsgBox GetHtmlColorFromOleColor(&HFF0000)
MsgBox GetOleColorFromHtmlColor("#0000FF")
End Sub