Prev: Disable Clear DContents command in excel - vba code??
Next: Best way to format a flat file that Excel will load properly?
From: RussellT on 7 Jan 2010 12:43
I have a UserForm with dozens of textboxes on it. I periodically need to
change the formatting of the textboxes and I been trying to write a macro to
do it to no avail. Here' what I thought would work but it doesn't. HELP
PLEASE. THANKS

Sub ChangeFonts_Click()
Dim Boxes As Long
With editForm
For Boxes = 1 To 78
("TextBox" & Boxes).font
.Name = "Arial"
.FontStyle = "Bold"
.Size = 10
Next
End With
End Sub
From: Rick Rothstein on 7 Jan 2010 12:55
Try this code instead and see if it does what you want...

Sub ChangeFonts_Click()
Dim C As Control
For Each C In editForm.Controls
If TypeOf C Is msforms.TextBox Then
With C.Font
.Name = "Arial"
.Size = 10
.Bold = True
End With
End If
Next
End Sub

--
Rick (MVP - Excel)


"RussellT" <RussellT(a)discussions.microsoft.com> wrote in message
news:005C968D-E246-4DEF-8BCA-BDCC5C7F208E(a)microsoft.com...
>I have a UserForm with dozens of textboxes on it. I periodically need to
> change the formatting of the textboxes and I been trying to write a macro
> to
> do it to no avail. Here' what I thought would work but it doesn't. HELP
> PLEASE. THANKS
>
> Sub ChangeFonts_Click()
> Dim Boxes As Long
> With editForm
> For Boxes = 1 To 78
> ("TextBox" & Boxes).font
> .Name = "Arial"
> .FontStyle = "Bold"
> .Size = 10
> Next
> End With
> End Sub

 | 
Pages: 1
Prev: Disable Clear DContents command in excel - vba code??
Next: Best way to format a flat file that Excel will load properly?