Macro to change Userform Textbox Font attributes

  • Thread starter Thread starter JMay
  • Start date Start date
J

JMay

I have 36 textboxes spread over 1 Userform - Multipage3

I'd like to change the:
1) font size to 12
2) Font Name to Arial
3) Bold
upon running 1 Macro

Is such a macro available? If so .. Where can I get it?
 
Are you doing all the textboxes?

Option Explicit
Private Sub UserForm_Initialize()
Dim ctrl As Control
For Each ctrl In Me.Controls
If TypeOf ctrl Is MSForms.TextBox Then
With ctrl.Object.Font
.Bold = True
.Name = "Arial"
.Size = 12
End With
End If
Next ctrl
End Sub

If you're not doing them all, you could skip based on name--or cycle through the
ones with nice names (TextBox01 thru TextBox36????).
 
Thanks Dave,

This routine is a one-time experience. Seems like it should be placed into
a standard module. To do so would it so something like:

Sub Foo
Dim ctrl as Control
With Userform1
YOUR CODE starting with For Each...
End With


Thanks Jim
 
I would think you'd want the textbox formatted that way each time you show the
userform--but that's just a guess.
 
Back
Top