Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

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

Gruppe

UserForm

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