Read the Conditional Formatting colors ? (1 Viewer)

smig said:

Thanks
It works great

feel free to use

Code:Copy to clipboard

Public Function fn_ReadConditionalFormat(frm As Form, strCntrl As String) As String

Dim i As Long

If frm.Controls(strCntrl).FormatConditions.Count > 0 Then
    For i = 0 To frm.Controls(strCntrl).FormatConditions.Count - 1
        fn_ReadConditionalFormat = fn_ReadConditionalFormat & frm.Controls(strCntrl).FormatConditions(i).Expression1
        fn_ReadConditionalFormat = fn_ReadConditionalFormat & " ==> ForeColor = " & frm.Controls(strCntrl).FormatConditions(i).ForeColor & "  " & VBA_Long_To_RGB(frm.Controls(strCntrl).FormatConditions(i).ForeColor)
        fn_ReadConditionalFormat = fn_ReadConditionalFormat & ", BackColor = " & frm.Controls(strCntrl).FormatConditions(i).BackColor & "  " & VBA_Long_To_RGB(frm.Controls(strCntrl).FormatConditions(i).BackColor)
        fn_ReadConditionalFormat = fn_ReadConditionalFormat & vbCrLf
    Next i
Else
    fn_ReadConditionalFormat = "No Conditional Format"
End If

End Function

Function VBA_Long_To_RGB(lColor As Long) As String
    
    Dim iRed, iGreen, iBlue
    
    'Convert Decimal Color Code to RGB
    iRed = (lColor Mod 256)
    iGreen = (lColor \ 256) Mod 256
    iBlue = (lColor \ 65536) Mod 256
    
    'Return RGB Code
    VBA_Long_To_RGB = "(" & iRed & ";" & iGreen & ";" & iBlue & ")"

End Function

Click to expand...

isladogs said:

In case its any use, see this example app Colour Converter/Selector

Click to expand...

theDBguy said:

Hi. Congratulations! Glad to hear you got it working. Good luck with your project.

Click to expand...