HERBERS Excel-Forum - die Dialoge

Thema: UserForm zoomen

Home
Die UserForm soll gem. einem abzufragenden Wert gezoomt werden. UserForm zoomen
  • Zoomen
    • Prozedur: UserForm_Initialize
    • Art: Ereignis
    • Modul: Klassenmodul der UserForm
    • Zweck: Initialisierung
    • Ablaufbeschreibung:
      • Variablendeklaration
      • Zoomwert abfragen
      • Bei Abbruch Programm beenden
      • Zoomen
    • Code:
      
      Private Sub UserForm_Initialize()
         Dim vZoom As Variant
         vZoom = InputBox("Bitte Zoomwert festlegen:", , "150")
         If vZoom = "" Then Exit Sub
         Me.Zoom = CInt(vZoom)
      End Sub
      
  • UserForm-Größe anpassen
    • Prozedur: UserForm_Zoom
    • Art: Ereignis
    • Modul: Klassenmodul der UserForm
    • Zweck: UserForm-Größe an Zoom anpassen
    • Ablaufbeschreibung:
      • UserForm-Breite auf den Wert UserForm-Breite * Zoom-Faktor setzen
      • UserForm-Höhe auf den Wert UserForm-Höhe * Zoom-Faktor setzen
    • Code:
      
      Private Sub UserForm_Zoom(Percent As Integer)
         Me.Width = Me.Width * Percent / 100
         Me.Height = Me.Height * Percent / 100
      End Sub