Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
692to696
692to696
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Userform an Bildrand verschieben

Forumthread: Userform an Bildrand verschieben

Userform an Bildrand verschieben
15.11.2005 00: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
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Userform an Bildrand verschieben
15.11.2005 00:41:56
Leo
Hi,
in den Eigenschaften: StartupPosition Windows Standard einstellen.
mfg Leo
AW: Userform an Bildrand verschieben
15.11.2005 00: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 :-?
Anzeige
AW: Userform an Bildrand verschieben
15.11.2005 14: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
Anzeige
AW: Userform an Bildrand verschieben
15.11.2005 18: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
Anzeige
AW: Userform an Bildrand verschieben
15.11.2005 18:59:05
Stefan
Danke!!! Funktioniert.
Hatte exakt dasselbe, bloss ohne die 0.75.
Ist das eine Umrechnungskonstante?
Stefan
AW: Userform an Bildrand verschieben
15.11.2005 23:25:14
Nepumuk
Hallo Stefan,
Pixel * 0,75 = Point
Pixel / 72 = Inch
Pixel * 3,5277777777777... = mm
Gruß
Nepumuk
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige