Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1244to1248
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Userform maximieren/wiederherstellen

Userform maximieren/wiederherstellen
Ralf
Hallo Forumler,
ich suche dringend eine Möglichkeit, in einer VBA-Userform einen Wiederherstellen- bzw.
Maximieren-Button reinzusetzen.
Zur Zeit lese ich die Bildschirm-Auflösung über API aus und stelle die Userform
auf Bildschirm-füllende Größe. Als Alternative habe ich mir die Angaben aus Application
(Top, Left, Height und Width) geholt. Der Effekt ist der gleiche.
Auf meinem Laptop mit 16:9-Auflösung passt die Userform aber nicht mehr auf den Bildschirm,
egal was ich für eine Auflösung wähle.
Eventuell gibt es ja dazu auch eine Lösung, an die ich noch gar nicht gedacht habe.
Auf jeden Fall schon mal vielen Dank für alle Beiträge.
Grüße
Ralf Junglas

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Userform maximieren/wiederherstellen
06.01.2012 12:46:58
Ralf
Hi dan,
erst mal vielen Dank. Die Lösungen muss ich mir am Wochenende
mal in Ruhe ansehen. Ich fürchte aber, dass ich nicht zu meinem
Wiederherstellen-Button komme, aber vielleicht gehts ja mit der API-Lösung.
Gruß Ralf
AW: Userform maximieren/wiederherstellen
06.01.2012 18:11:31
Ingo
Hallo Ralf,
vielleicht kann ich endlich auch mal helfen;-))
Ich Habe das so gelöst:
entweder : '

Private Sub SpinButton1_Change()
oder:

Private Sub UserForm_Click() ' Userform vergrößern und verkleinern
Dim Höhe_Neu As Integer
Dim Breite_Neu  As Integer
Höhe_Neu = Height ' Ursprüngliche Größe
Breite_Neu = Width
If Höhe_Neu = Höhe And Breite_Neu = Breite Then
Height = Höhe * 0.2 ' hier die Max Höhe einstellen
Width = Breite * 0.5 ' hier Max Breite einstellen
Else
Height = Höhe
Width = Breite
End If
End Sub
einfach in Userform klicken, dann ändert sich die Größe. Geht auch mit Spinbutton.
Ich habe den Code verwendet um die UF sehr klein zu machen, damit man ungestört in der Tabelle arbeiten kann.
LG
Ingo
Anzeige
NACHTRAG! Userform maximieren/wiederherstellen
06.01.2012 19:38:46
Ingo
Hallo Ralf,
war nicht ganz vollständig;-(
Option Explicit ' gehört zu Userform_activate
Dim Höhe As Integer
Dim Breite As Integer
Private Sub UserForm_Click() ' Userform vergrößern und verkleinern
Dim Höhe_Neu As Integer
Dim Breite_Neu  As Integer
Höhe_Neu = Height
Breite_Neu = Width
If Höhe_Neu = Höhe And Breite_Neu = Breite Then
Height = Höhe * 0.2
Width = Breite * 0.5
Else
Height = Höhe
Width = Breite
End If
End Sub

Private Sub UserForm_activate()
Dim Blatt As Worksheet
Höhe = Height
Breite = Width
End Sub

Gruß Ingo
Anzeige
AW: NACHTRAG! Userform maximieren/wiederherstellen
06.01.2012 20:09:54
Ralf
Hallo Ingo,
das ist eine gute Idee, werde ich demnächst mal einbauen.
Vielen Dank.
LG
Ralf

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige