OpenOffice.info

Hallo mikeleb,

[b].Model.Height[/b] - genau so funktioniert es.

Danke für deine Hilfe.

Lg. Petty [img]https://smilies.4-user.de/wp-content/uploads/2022/12/smilie_les_060.gif[/img]

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

Hallo,
angenommen, die Variabe Me enthalte den Dialog, dann sollte
[code]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[/code]
deine Wünsche erfüllen.

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

Hallo ,

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

z.B. so:
[code]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
[/code]

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

[color=#4000FF][b]meinDialog.Size.Height=150[/b][/color] erzeugt zwar keinen Fehler - ist allerdings auch völlig wirkungslos.

Kann jemand helfen?

Lg. Petty