Userform labels

[John Davis]

Hello All:

I have a UserForm and what I'm trying too do is change the color property of all the labels on the form simultaneously. Any advice/ideas would be appreciated.

 

[Willem!]

Hi,

Is it a one-time-only procedure or do you want to automated this in code?

In that case, I would tag all the labels with a distinctive tag (e.g. 'lblcolor'), and create a loop where all the controls with the tag 'lblcolor' are altered.

HTH

 

[John Davis]

Hi,

Is it a one-time-only procedure or do you want to automated this in code?

In that case, I would tag all the labels with a distinctive tag (e.g. 'lblcolor'), and create a loop where all the controls with the tag 'lblcolor' are altered.

HTH

Thanks for your reply. I'd like too automate this in code. No sure about how too achieve what you are suggesting. I'm still in the learning process when it comes too code.

 

[Willem!]

Hi,

Well, I used that trick with an Access form, you can find the discussion about this here.

The Access-code was:

Dim ctl as Object

For Each ctl in Me.Controls
    If ctl.Tag = "Lockdown" Then
     Me(ctl.Name).Enabled = False   
   End if
Next ctl

NB: I'm not sure wheter this would work in Excel. I'm going to try it out...

 

[Willem!]

John,

I've a got working sample. Code:

Dim ctl As Object
  
    For Each ctl In Me.Controls
        If ctl.Tag = "lblcolor" Then
         Me(ctl.Name).BackColor = 255
       End If
    Next ctl

Place this behind a button (..) on your form and all the labels tagged with 'lblcolor' are going red (255).

I wanted to attach a document, but I can't figure out how I can do that here (newby on this forum).

HTH

 

[John Davis]

John,

I've a got working sample. Code:

Dim ctl As Object
  
    For Each ctl In Me.Controls
        If ctl.Tag = "lblcolor" Then
         Me(ctl.Name).BackColor = 255
       End If
    Next ctl

Place this behind a button (..) on your form and all the labels tagged with 'lblcolor' are going red (255).

I wanted to attach a document, but I can't figure out how I can do that here (newby on this forum).

HTH

Willem: Thanks for helping. Here is the code I'm working with.

Private Sub cmdUnflagged_Click()
Dim startcolor As Long
Dim lbl As Object
startcolor = Me.BackColor
For Each lbl In Me.Controls
If lbl.Tag = "lblcolor" Then
Me.BackColor = RGB(255, 0, 0)
End If
Next lbl
MsgBox ("Please wait while the form is -processing")
Call macReconUnflagged
Me.BackColor = startcolor
For Each lbl In Me.Controls
If lbl.Tag = "lblcolor" Then
Me.BackColor = startcolor
End If
Next lbl
MsgBox ("Processing is complete you may continue")
Windows("AGFA DRAWBACK UTILITY.xls").Activate
End Sub

I tried to incorporate what you suggested. However, the form color changes too Red on the click command, but the labels remain at the startcolor. I tagged everything "lblcolor". What I'm I doing wrong?

 

[Willem!]

Change:

Me.BackColor

to:

Me(lbl.Name).BackColor = 255

(and I hope you only tagged the labels)

 

[RoryA]

If you want to do all labels, you could just use:

    Dim ctl As MSForms.Control
    For Each ctl In Me.Controls
        If TypeOf ctl Is MSForms.Label Then ctl.BackColor = RGB(255, 0, 0)
    Next ctl

 

[John Davis]

Change:

Me.BackColor

to:

Me(lbl.Name).BackColor = 255

(and I hope you only tagged the labels)

That gets it for all the labels. I wanted the Forms background color too change as well. Now I'm getting the opposite of what I was getting previously.

 

[Willem!]

That gets it for all the labels. I wanted the Forms background color too change as well. Now I'm getting the opposite of what I was getting previously.

Well then, add

Me.BackColor = 255

to the code as well, and you're all set!