VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Größe einer UserForm einschl. der Elemente verändern

Gruppe

Dialog

Bereich

UserForm

Thema

Größe einer UserForm einschl. der Elemente verändern

Problem

Wie kann ich während der Laufzeit die Breite einer UserForm einschließlich ihrer Elemente über eine Bildlaufleiste verändern?

Lösung

Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.




ClassModule: frmDynamic

Private Sub cmdDynamic_Click()
   Unload Me
End Sub

Private Sub scrDynamic_Change()
   Me.Width = scrDynamic.Value + 24
   scrDynamic.Width = scrDynamic.Value
   lstDynamic.Width = scrDynamic.Value
   cmdDynamic.Width = scrDynamic.Value
End Sub

StandardModule: basMain

Sub CallForm()
   frmDynamic.Show
End Sub

    


Beiträge aus dem Excel-Forum zu den Themen Dialog und UserForm