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

Userform Links plazieren ?

Forumthread: Userform Links plazieren ?

Userform Links plazieren ?
16.01.2008 22:07:47
Kurt
Guten Abend, wie kann man eine UserForm Links am Bildschirmrand plazieren.
Wenn ich jetzt die UF aufrufe wird Sie genau MITTIG plaziert, mittig ist ja i.o. aber dann sollte
Sie Links sein.
gr Kurt P

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Userform Links plazieren ?
16.01.2008 22:28:00
Daniel
Hi
entweder zum Code der Userform folgendes hinzufügen:

Private Sub UserForm_Activate()
Me.Left = 1
End Sub


oder in den Userform-Eigenschaften die Eigenschaft StartUpPosition auf 0 - Manual setzen, dann erscheint die Userform nicht nur links, sondern auch oben.
Gruß, Daniel

Anzeige
AW: Userform Links plazieren ?
16.01.2008 22:30:38
Herby
Hallo Kurt,
unter den Eigenschaften kannst du die StartUpPosition z.B. auf 3=Windows-Standard setzen.
Folge davon ist, dass die Userform in der linken oberen Ecke angezeigt wird.
Willst du das so ?
Viele Grüße
Herby

AW: Userform Links plazieren ?
16.01.2008 22:31:00
Thorsten_Z
Moin Kurt,
ändere in den Userformeigenschaften die "StartUpPosition" auf manuel, und vergib für "High" und "Left" entsprechende Werte... Mußte ein bischen rumprobieren
Gruß
Thorsten

Anzeige
AW: Userform Links plazieren ?
16.01.2008 22:32:00
fcs
Hallo Kurt,
im VBA-Editor muss du einige Eigenschaften des Userforms anpassen.
StartUpPosition auf 0-manual
Left auf 0
Top auf ca. 200 abhängig von der Höhe des Userforms.
Alternativ zu festen Einstellungen in den Eigenschaften des Userforms kann man die Position auch in der Initialize- oder Activate-Prozedur des Userforms festlegen.

Private Sub UserForm_Initialize()
With Me
.StartUpPosition = 0 'manual
.Top = 200
.Left = 0
End With
End Sub


Gruß
Franz

Anzeige
An ALLE, thanks für die Unterstützung -)
17.01.2008 10:01:19
Kurt
Guten Tag/Morgen, Super für die Unterstützung, das mit dem Makro gefällt mir sehr Gut, kann ich so
auch auf andere anwenden !
SchönenTag an ALLE
gr Kurt P
;

Beliebteste Forumthreads (12 Monate)

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