Set Userform Background & ForeColor color

[Av8tordude]

I have a code that changes my sheet background color to a dark blue. (Dark Theme). I would like my userform to match the sheet color.

In the picture below, I manually set the colors, however, i would like to do this by VBA.

1. Userform and All Frames (if more than 1) background colors to blue
2. All Labels and frame forecolors to white

 

[dmt32]

Hi,
one way maybe

Dim ctrl As Control
    Dim myBackColor As Long
    
    myBackColor = vbBlue
    
   For Each ctrl In Me.Controls
        If TypeName(ctrl) = "Label" Or TypeName(ctrl) = "Frame" Then
            ctrl.BackColor = myBackColor
            ctrl.ForeColor = vbWhite
        End If
    Next
    Me.BackColor = myBackColor

Just assign the actual blue value you require to variable shown in bold


Dave

 

[Av8tordude]

Great!!! Thank you dmt32 for your help.

 

[dmt32]

Great.. How do I exclude 1 label named lbTitle?

add code shown in BOLD

For Each ctrl In Me.Controls
        If TypeName(ctrl) = "Label" Or TypeName(ctrl) = "Frame" Then
            If Not ctrl.Name = "lbTitle" Then
                ctrl.BackColor = myBackColor
                ctrl.ForeColor = vbWhite
            End If
        End If
    Next

Dave

 

[Av8tordude]

You saw the post before I answered my question...lol. I was using f TypeName(ctrl) = "Label", But thank you very much for your help.

 

[dmt32]

welcome - glad suggestion helped

Dave