Public Function GetHexColor(strHex As String) As Long
    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
    GetHexColor = CLng("&H" & strColor)
End Function



bunun ile renk değiştirebiliyorum ama propertiese ne yzamak lazım