Hallo zusammen,
gibt es ein Makro, welches alle Schriften/Größe aller Userform ListBoxen auf einmal ändert.
Wäre für eure Hilfe sehr dankbar.
Gruß
Bernd
Private Sub UserForm_Activate()
Dim ctl As Control
For Each ctl In Controls
If TypeName(ctl) = "ListBox" Then
ctl.Font.Size = 10
End If
Next
End Sub
Gruß ausm Pott
Udo
Designer
25.06.2013 19:37:13
ransi
Hallo Bernd
Wie das zur LAufzeit geht hat dir Udo ja gezeigt.
So gehts zur Entwicklungszeit:
' ********************************************************************** ' Modul: Modul1 Typ: Allgemeines Modul ' **********************************************************************
OptionExplicit
PublicSub machs() Dim objVBcomp AsObject Dim myCtrl As MSForms.Control Set objVBcomp = Application.VBE.ActiveVBProject.VBComponents("Userform1") For Each myCtrl In objVBcomp.designer.Controls If TypeOf myCtrl Is MSForms.ListBox Then myCtrl.Font.Size = 10 EndIf Next EndSub