Hallo ralf_b,

ja ich weiß, deshalb will ich die nicht alle händisch anpassen. Es sind nur soviele, weil ich mehrere Pages verwende.

Hättest du einen Code für mich, wie ich das ändern kann?

Mit dem Code z.B. kann ich es ja nur temporär vergrößern, solange es ausgeführt wird:

    Dim ctrl As Control
    Dim scaleFactor As Double
    scaleFactor = 1.2

    For Each ctrl In Me.Controls
        With ctrl
            .Left = .Left * scaleFactor
            .Top = .Top * scaleFactor
            .Width = .Width * scaleFactor
            .Height = .Height * scaleFactor
            On Error Resume Next
            .Font.Size = .Font.Size * scaleFactor
            On Error GoTo 0
        End With
    Next ctrl

Lg