ListBox In UserForm

[AatB]

Goedemiddag,

Ik wil de fonts wijzigen van alle Listboxen in een Userform.
Is hier een snelle manier voor?

Zoiets als

for each lb in userform

lb.font.name = "new courier"
lb.font.size = 8


next lb

ik hoor het graag

mvg,

Aat

 

[DANIEL162]

Probeer deze:

Dim ws As Worksheet
    For Each ws In Worksheets
         With ws
            .Cells.Font.Name = "new courier"
            .Cells.Font.Size = 10
            .Cells.VerticalAlignment = xlCenter
         End With
    Next ws

beter:

WWorksheets("Sheet1").ListBox1.Font.Size = 10
Worksheets("Sheet1").ListBox1.Font.Name = "new courier"

 

[AatB]

Ik wil alle listboxen in een UserForm aanpassen (dus niet in een worksheet).

 

[VenA]

En wanneer moet het gebeuren en hoe vaak? Lijkt mij een eenmalige aanpassing die je gewoon in het ontwerp kan aanpassen. Bij gebrek aan een voorbeeldbestand zoiets.

Private Sub UserForm_Initialize()
  ListBox1.List = Array("waar", "gaat", "dit", "over")
  For Each ct In Me.Controls
    If TypeName(ct) = "ListBox" Then
      ct.Font.Name = "new courier"
      ct.Font.Size = 20
    End If
  Next ct
End Sub

 

[AatB]

Top... bedankt.