Größe einer Userform

Raimond

unread,

Jan 17, 2002, 7:08:04 PM1/17/02

to

Hallo allerseits

Ich komme einfach nicht drauf, aber wie bekomme ich die Größe einer Userform
auf Vollbild?

Raimond

Monika Weber

unread,

Jan 18, 2002, 3:00:16 AM1/18/02

to

Hallo Raimond

> Ich komme einfach nicht drauf, aber wie bekomme ich die Größe einer
Userform
> auf Vollbild?

Du könntest die Grösse im Eigenschaftenfenster anpassen.
- High (Höhe)
- Width (Breite)

--
Ich hoffe, dass dir das weiterhilft.

Liebs Grüessli aus der Schweiz
Monika

------ EXCEL ------
http://www.jumper.ch

Raimond

unread,

Jan 18, 2002, 3:31:59 AM1/18/02

to

"Monika Weber" <mon...@jumper.ch> schrieb im Newsbeitrag
news:euSe4W$nBHA.1744@tkmsftngp07...

> Hallo Raimond
>
> > Ich komme einfach nicht drauf, aber wie bekomme ich die Größe einer
> Userform
> > auf Vollbild?
>
> Du könntest die Grösse im Eigenschaftenfenster anpassen.
> - High (Höhe)
> - Width (Breite)
>
> --

Ich wollte eigentlich eine Userform haben die unabhängig von der
Bildschirmauflösung immer auf Vollbild ist.
Mal anders gefragt, wie kann ich unter VBA die aktuelle Bildschirmauflösung
ermitteln. Unter VB gibt es ja "Screen.Height" und "Screen.Width", aber
unter VBA kann ich das nicht finden.

Gruß Raimond

stefan onken

unread,

Jan 18, 2002, 4:12:43 AM1/18/02

to

hallo Raimund,

Userform.Height = Application.Height
und Width ebenso.

So ist allerdings evtl. die Taskleiste sichtbar, was man per API ändern könnte.

ciao
stefan

--
__________________________________________________________
News suchen, lesen, schreiben mit http://newsgroups.web.de

Raimond

unread,

Jan 18, 2002, 8:00:31 AM1/18/02

to

"stefan onken" <onk...@hamburg.beiersdorf.com> schrieb im Newsbeitrag
news:3c47e70b$1...@netnews.web.de...

> hallo Raimund,
>
>
> Userform.Height = Application.Height
> und Width ebenso.
>
>
> So ist allerdings evtl. die Taskleiste sichtbar, was man per API ändern
könnte.
>
>

Danke

Genau das habe ich gesucht. Das die Taskleiste sichtbar ist, ist schon ok
(eigentlich sogar gut so)
.
Gruß Raimond

Frank Arendt-Theilen

unread,

Jan 18, 2002, 3:43:04 PM1/18/02

to

Hallo Raimond,
wie folgt:

Private Declare Function GetSystemMetrics Lib "user32" _
(ByVal nIndex As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, ByVal _
lpWindowName As String) As Long
Private Declare Function SetWindowPos Lib "user32" _
(ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
ByVal x As Long, ByVal y As Long, ByVal cx As Long, _
ByVal cy As Long, ByVal wFlags As Long) As Long

Private Sub UserForm_Initialize()
Dim Titel$, Suchstring$, Fensterhandle&
Dim cx&, cy&
Suchstring = "QWERYT"
Titel = Me.Caption
Me.Caption = Suchstring
Fensterhandle = FindWindow(vbNullString, Suchstring)
Me.Caption = Titel
cx = GetSystemMetrics(0)
cy = GetSystemMetrics(1)
SetWindowPos Fensterhandle, 1, 0, 0, cx, cy, 0
End Sub

MfG Frank
_____________________________________________________
Frank Arendt-Theilen, Microsoft MVP für Excel, Hameln
eMail: Thei...@t-online.de, Homepage: http://www.xl-faq.de