Userform an Bildrand verschieben

Forumthread: Userform an Bildrand verschieben
6 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Userform an Bildrand verschieben

15.11.2005 01:29:57

Stefan

Hallo,
ich möchte eine Userform genau an den linken
bzw. rechten Bildschirmrand platzieren.
Gibt es dafür eine (einfache) Lösung?
Danke schonmal.
Gruss
Stefan

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Userform an Bildrand verschieben

15.11.2005 01:41:56

Leo
AW: Userform an Bildrand verschieben

15.11.2005 01:58:00

Luc:-?
AW: Userform an Bildrand verschieben

15.11.2005 15:38:26

Stefan
AW: Userform an Bildrand verschieben

15.11.2005 19:10:06

Nepumuk
AW: Userform an Bildrand verschieben

15.11.2005 19:59:05

Stefan
AW: Userform an Bildrand verschieben

16.11.2005 00:25:14

Nepumuk

AW: Userform an Bildrand verschieben

15.11.2005 01:41:56

Leo

Hi,
in den Eigenschaften: StartupPosition Windows Standard einstellen.
mfg Leo

AW: Userform an Bildrand verschieben

15.11.2005 01:58:00

Luc:-?

Hallo Stefan,
Habe dir noch eine Erläuterung im alten Thread nachgereicht. Zu diesem hier habe ich noch einen kleinen Hinweis:
Mit einigem Aufwand ist es mittels VBA möglich, eine Userform auf wechselnde Zellbereiche oder Zeichenobjekte zu fixieren (auch plattformunabhängig).
Kannst das ja mal versuchen.
Gruß Luc :-?

AW: Userform an Bildrand verschieben

15.11.2005 15:38:26

Stefan

Danke für die schnellen Antworten.
Ich möchte die Userform allerdings zur Laufzeit
ganz nach links oder rechts verschieben und zwar
durch einen Klick auf eine Schaltfläche.
Ganz links ist klar: Userform1.Left = 0
Aber ganz rechts? Der rechte Rand der Userform
soll am rechten Bildschirmrand "kleben"...
Gruss
Stefan

AW: Userform an Bildrand verschieben

15.11.2005 19:10:06

Nepumuk

Hallo Stefan,
ganz einfach:

' **********************************************************************
' Modul: UserForm2 Typ: Userform
' **********************************************************************

Option Explicit

Private Declare Function GetSystemMetrics Lib "user32" ( _
ByVal nIndex As Long) As Long

Private Const SM_CXSCREEN = 0

Private Sub CommandButton1_Click()
Me.Left = GetSystemMetrics(SM_CXSCREEN) * 0.75 - Me.Width
End Sub

Gruß
Nepumuk