Userform auf volle Excelfenstergröße
12.01.2006 11:35:50
Reinhard
ich will nur die UF angezeigt bekommen. Gefundener Code klappt nicht:
Option Explicit
Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Const SM_CXSCREEN = 0
Const SM_CYSCREEN = 1
Private Sub UserForm_Initialize()
UserForm.Left = 0
UserForm.Top = 0
UserForm.Height = GetSystemMetrics(SM_CYSCREEN)
UserForm.Width = GetSystemMetrics(SM_CXSCREEN)
End Sub
Fehlermeldung sagt dass "Declare" nicht zugelassen sei (Fehler beim Kompilieren)
Im Original code stand
Public Const SM_CXSCREEN = 0
Public Const SM_CYSCREEN = 1
da wurde das Public nicht geduldet.
Code steht im Codeteil der UF
Danke ^ Gruß
Reinhard