Dialog Größe ändern

[Petty]

Hallo ,

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

z.B. so:

Code: Alles auswählen

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

[mikeleb]

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.

[Petty]

Hallo mikeleb,

.Model.Height - genau so funktioniert es.

Danke für deine Hilfe.

Lg. Petty