Größe der UserForm anpassen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Größe der UserForm anpassen von: Anja
Geschrieben am: 07.02.2005 18:10:02

Hallo ihr da draußen - hab mal wd. eine Frage:
Wie kann ich es anstellen, daß sich die Größe der UserForm automatisch an die der Excel-Mappe(wenn diese nicht maximiert ist) mit der sie duch ein Makro automatisch geöffnet wird, anpaßt?
Vielen Dank schon mal - die Anja.

Bild


Betrifft: AW: Größe der UserForm anpassen von: Matthias G
Geschrieben am: 07.02.2005 18:16:13

Hallo Anja,

z.B. so:
Private Sub UserForm_Initialize()
With Application
    Me.Left = .Left
    Me.Top = .Top
    Me.Height = .Height
    Me.Width = .Width
End With
End Sub
Was soll den anders sein, wenn Excel nicht maximiert ist?

Gruß Matthias


Bild


Betrifft: AW: vielen Dank für die schnelle Hilfe - o.T. von: Anja
Geschrieben am: 07.02.2005 18:23:52

-


Bild


Betrifft: ist noch nicht optimal ;-( von: Anja
Geschrieben am: 07.02.2005 19:05:56

hab's gerade ausprobiert - die Größe wird zwar angepaßt, aber nur abgeschnitten - d.h. auch mit ScrollBars kann man nicht das ganze Formular ansehen.
Und nu ???


Bild


Betrifft: AW: ist noch nicht optimal ;-( von: Udo
Geschrieben am: 07.02.2005 19:16:33

Userforms haben ein Zoom-Ereignis, das musst du verwenden.

Udo


Bild


Betrifft: AW: ist noch nicht optimal ;-( von: Matthias G
Geschrieben am: 07.02.2005 19:26:17

Hallo anja,

Habe Dank Google das hier gefunden:
https://www.herber.de/forum/archiv/416to420/t419027.htm

Also dann so:
Private Sub UserForm_Initialize()
With Application
    Me.ScrollHeight = Me.Height
    Me.ScrollWidth = Me.Width
    Me.Left = .Left
    Me.Top = .Top
    Me.Height = .Height
    Me.Width = .Width
End With
End Sub
Gruß Matthias


Bild


Betrifft: vielen lieben Dank ihr zwei von: Anja
Geschrieben am: 07.02.2005 19:29:43

hab auch gerade selbst noch was gefunden - aber das ist besser.
Manchmal hat man echt Tomaten auf den Augen ;-)


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Größe der UserForm anpassen"