{"text_format":"1","workbook":"xlsx","n_sheets":2,"sheets":["Tabelle1","Tabelle2"],"not_rendered":{"charts":0,"images":2,"macros":1,"external_links":0,"defined_names":0,"comments":0,"pivot_tables":0},"unopened":[],"bounds":{"document_bytes":16777216,"sheet_cells":100000,"rows_first":2000,"rows_last":500,"rows_between":2000,"halvings":0,"cell_chars":16384,"cell_head_chars":4096},"cells_cut":0,"cells_raw":0,"read":"whole","date_system":"1900"}

{"sheet":"Tabelle1","index":0,"n_rows":1,"n_cols":1,"rows_kept":1,"cut":false,"hidden":false,"merged":[]}
["Flüssiger Ablauf der Verkleinerung eines Labels auf der Userform"]

{"sheet":"Tabelle2","index":1,"n_rows":46,"n_cols":9,"rows_kept":46,"cut":false,"hidden":false,"merged":[]}
["Code"]
[null,"Per Button Klick"]
[null,null,null,null,null,null,null,null,"Unter Userform1"]
[null,"Sub CommandButton2_Click()"]
[null,"LabelSchrumpfen",null,null,null,null,null,null,"Private Sub UserForm_Click()"]
[null,"End Sub",null,null,null,null,null,null,"'Private Sub Verkleinern()"]
[null,null,null,null,null,null,null,null,"'Flüssigster Ablauf der Verkleinerung"]
[null,"Modul 1",null,null,null,null,null,null,"        Dim i As Integer"]
[null,null,null,null,null,null,null,null,"        For i = 100 To 1 Step -1 '-1 Zahl für Geschwindikeit der Verkleinerung"]
[null,"Public Declare Sub Sleep Lib \"kernel32\" (ByVal Milliseconds As LongPtr)",null,null,null,null,null,null,"            Me.Label1.Width = i ' \"Me.\" ist optional, kann aber zur Klarheit verwendet werden"]
[null,null,null,null,null,null,null,null,"            DoEvents ' Erlaubt der Anwendung, Ereignisse zu verarbeiten und den Bildschirm zu aktualisieren"]
[null,"Sub LabelSchrumpfen()",null,null,null,null,null,null,"            ' Optional: Kleine Verzögerung, um den Effekt besser sichtbar zu machen"]
[null,"    Dim lbl As MSForms.Label ' Variable für das Label",null,null,null,null,null,null,"        Call Sleep(1) 'Sehr flüssiger Ablauf der Verkleinerung"]
[null,"    Dim startBreite As Double"]
[null,"    Dim schrittweite As Double",null,null,null,null,null,null,"        'Application.Wait Now + TimeValue(\"00:00:001\") ' Beispiel für eine Sekunde Verzögerung"]
[null,"    Dim zeitintervall As Double",null,null,null,null,null,null,"        Next i"]
[null,null,null,null,null,null,null,null,"            Me.Label1.Width = 0"]
[null,"    ' Hier das Label auswählen (z.B. Label1)",null,null,null,null,null,null,"    End Sub"]
[null,"    ' Stellen Sie sicher, dass \"Label1\" auf Ihrer UserForm existiert"]
[null,"    Set lbl = UserForm1.Label1 ' oder UserForm1.Label1"]
[]
[null,"    startBreite = lbl.Width ' Ursprüngliche Breite"]
[null,"    schrittweite = 2 ' Wie viele Pixel der Breite pro Schritt reduziert werden sollen"]
[null,"    "]
[null,"   'zeitintervall = 10 ' Zeit in Millisekunden zwischen den Schritten"]
[null,"    Sleep 100"]
[null,"    "]
[null,"   ' Sicherstellen, dass das Label initial sichtbar ist, wenn es klein ist"]
[null,"    lbl.Visible = True"]
[]
[null,"    Do While lbl.Width > 0"]
[null,"        lbl.Width = lbl.Width - schrittweite ' Breite reduzieren"]
[null,"        If lbl.Width < 0 Then lbl.Width = 0 ' Sicherstellen, dass die Breite nicht negativ wird"]
[]
[null,"        DoEvents ' Verhindert, dass die Anwendung während der Schleife einfriert"]
[]
[null,"        ' Kurze Pause, um die Animation flüssig zu machen"]
[null,"        ' Hier könnten Sie auch die Timer-Funktion verwenden, um präzisere Steuerung zu erhalten"]
[null,"        "]
[null,"        ' Millisekunden: Sehr flüssiger Ablauf der Verkleinerung"]
[null,"        ' Je größer die Zahl, z.B. (1), je schneller und flüssig der Ablauf"]
[null,"        Call Sleep(1) 'Beste Variante"]
[]
[null,"'Application.Wait (Now + TimeValue(\"00:00:001\") + zeitintervall / 86400)"]
[null,"    Loop"]
[null,"End Sub"]