full screen

[Blizter]

Hoi

Ik het mogelijk om mijn userform full screen te laten opkomen.

Omdat er verschillende systemen aanwezig zijn zou ik graag willen dat dit automatische ging

Heeft iemand een oplossing voor me ??? zelf een idee ik ook goed.

 

[Elsendoorn2134]

Blitzer,

Probeer deze macro eens in het werkblad.

Private Sub Workbook_Open()
    Load UserForm1
    Application.DisplayFullScreen = True
    UserForm1.Width = Application.ActiveWindow.Width
    UserForm1.Height = Application.ActiveWindow.Height
    UserForm1.Move 0, 0
    Application.DisplayFullScreen = False
    UserForm1.Show
End Sub

Veel Succes.

 

[Blizter]

Hey dank je wel

Dit werkt goed.

Nu alleen nog mijn knop programmeren dat hij het programma afsluit ipv unload en dan komt het goed

Dank je

 

[Blizter]

Nog een vraagje over dit onderwerp.

Nu word het userfram maximaal weergegeven.
Nu heb ik een frame hierin geplaatst om div. kleuren te kunnen gebruiken (op elkaar).
Is het mogelijk dat deze ook maximaal mee gaat dus de gehele userform incl. frames en knoppen ???