Userform Objects

[Guest]

Can objects on a userform (eg. all labels or all command buttons) be treated
as a collection?

I have a userform with a large number of labels and I would like to perform
a similar operation on each label without naming them one by one in the code.

Thanks, Kaval

 

[Norman Jones]

Hi Kaval,

Try something like:

Sub Tester()

Dim Ctrl As MSForms.Control
For Each Ctrl In UserForm1.Controls
If TypeOf Ctrl Is MSForms.Label Then
'Do something: e.g.:
MsgBox Ctrl.Caption
Else
'Do something else
End If
Next Ctrl

End Sub

 

[Akash]

Hello Norman,

Let take the example to modifying the caption of a Label. Could you please
provide us a sample code.

The problem I am facing is that .Caption is not a property of Control and
its throwing me an error.