OpenOffice.info

Verfasst: **Mo, 02.10.2023 14:07**

Hallo ,

in Excel kann man die Größe der Userform zur Laufzeit ganz leicht ändern.

z.B. so:

Dim blnT As Boolean

Private Sub CommandButton1_Click()
    blnT = Not blnT
    If blnT Then
        Me.Height = 300
    Else
        Me.Height = 180
    End If

End Sub

Wie kann ich das in ähnlicher Form mit dem Dialog von OpenOffice programmieren?

meinDialog.Size.Height=150 erzeugt zwar keinen Fehler - ist allerdings auch völlig wirkungslos.

Kann jemand helfen?

Lg. Petty

Verfasst: **Di, 03.10.2023 12:39**

Hallo,
angenommen, die Variabe Me enthalte den Dialog, dann sollte

Code: Alles auswählen

Dim blnT As Boolean

Private Sub CommandButton1_Click()
    blnT = Not blnT
    If blnT Then
        Me.Model.Height = 300
    Else
        Me.Model.Height = 180
    End If

End Sub

deine Wünsche erfüllen.

Verfasst: **Mi, 04.10.2023 19:41**

Hallo mikeleb,

.Model.Height - genau so funktioniert es.

Danke für deine Hilfe.

Lg. Petty Bild

OpenOffice.info

Dialog Größe ändern

Dialog Größe ändern

Re: Dialog Größe ändern

Re: Dialog Größe ändern