Office: Userform Zoom

Hallo,
ich habe hier eine Userform bei der ich jetzt keine Lust habe alles neu (größer) zu zeichnen.
Ich dachte mir ich zoome einfach größer.
Diesen Code nutze ich dazu.

PHP:

         Private Sub UserForm_Zoom(Percent As Integer)
Me.Width = Me.Width * Percent / 100
Me.Height = Me.Height * Percent / 100
End Sub


:)

 

Hallo,

aber nicht durch Deinen gezeigten Code, bei dem nur beim erstmaligen Aufruf gezoomt wird.

 

Hallo,
ja das ist eben das Problem die userform wird nicht beendet, userform initialize wird sehr oft aufgerufen und dadurch auch gezoomt.
Userform aufruf
Code Ausführung
Userform initialize
Code Ausführung
Userform initialize
Usw........

Im Prinzip will ich denn zoom nur beim ersten laden der Userform haben.
Gruß

 

userForm an Bildschirmgröße anpassen.

http://hajo-excel.de/gepackt/fremd/u..._anpassen2.zip

Bitte berücksichtige das Themen die Erledigt sind als Erledigt markiert werden können. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.





Meine Homepage Homeseite - Hajo's Excelseiten

 

Hallo @Hajo_Zi,
Danke für die Antwort, leider auch hier der gleiche Fehler da die Userform mehrmals initialisiert wird.
Gruß

 

Ermittle dir die Breite und Höhe der originalen Userform, also deine "100%"-Größe. Die trägst du im untenstehenden Code ein:

Code:

Dir Prozedur Private Sub UserForm_Zoom(Percent As Integer) brauchst du nicht.

 

Danke @EarlFred, funktioniert.
Gruß