UserForm am linken, oder am unteren Bilschirmrand
18.10.2014 17:34:40
rieckmann
Hallo nochmal,
wie muss folgender Code aussehen, wenn ich die UserForm
a: am linken Bildschirmrand, und
b: am unteren Bildschirmrand positionieren möchte ?
Hier ist er für den rechten Bildschirmrand !
Gruß
Fred
Sub UserformAufApplicationRechteSeiteAnpassen()
'Beispiel Code In Modul zum Aufruf der UserForm
Dim bolDisplayStatusBar As Boolean
Dim FensterHoeheInnen&
Dim FensterRandBreiteUnten&
bolDisplayStatusBar = Application.DisplayStatusBar
Application.DisplayStatusBar = False
FensterHoeheInnen = Application.UsableHeight
Application.DisplayStatusBar = bolDisplayStatusBar
FensterRandBreiteUnten = FensterHoeheInnen - Application.UsableHeight
UserForm1.StartUpPosition = 0
Load UserForm1
UserForm1.Top = Application.Top + Application.Height - Application.UsableHeight - _
FensterRandBreiteUnten - 6
UserForm1.Left = Application.Left + Application.UsableWidth - UserForm1.Width + 6
UserForm1.Height = Application.UsableHeight
UserForm1.Show
End Sub