Alle Controls innerhalb einer Multipage
08.03.2016 15:26:30
Vincent
ich habe eine MultiPage und möchte dass alle Labels innerhalb einer Seite(z.B.: die fünfte Seite) gefärbt werden können. Daher habe ich die folgende Codes. Weiss jemand wo der/die Fehler ist/sind?
Sub Design_Controll()
For Each Box In UserForm.MultiPage_Main.Pages(4).Controls
If TypeOf Box Is Label Then
Call Einfaerben(Box, Weiss, Schwarz, 12)
End If
Next
End Sub
Sub Einfaerben(ByRef control, ByVal Hintergrundfarbe, ByVal Schriftfarbe, ByVal Schriftgroesse)
With control
.BackColor = Hintergrundfarbe
.ForeColor = Schriftfarbe
.Font.Size = Schriftgroesse
End With
End Sub
MFG
Vincent
Anzeige