Excel VBA code to fill monitor screen with splash screen

Posted on 2011-03-12
Medium Priority
Last Modified: 2012-05-11
How can I automatically size a splash screen to fill the monitor screen?
I need it to shrink to any size monitor and expand to max 17inch diagonally  

Thanks, --Andres
Question by:AndresHernando
LVL 24

Accepted Solution

jimyX earned 2000 total points
ID: 35115633
After creating the splash screen, the link below will help you doing so:

Only change the code of Initialize() to be as follows:
Private Sub UserForm_Initialize()
    Application.WindowState = xlMaximized
    Me.Top = Application.Top
    Me.Left = Application.Left
    Me.Height = Application.Height
    Me.Width = Application.Width
    Application.OnTime Now + TimeValue("00:00:05"), "KillForm"
End Sub

Open in new window

The above code will set the size of the splash screen to the size of the application window itself so in order to cover the whole screen then the application is maximized so the splash covers the screen.

Author Closing Comment

ID: 35115648
Perfect.  Thanks!!!

Featured Post

Easily manage email signatures in Office 365

Managing email signatures in Office 365 can be a challenging task if you don't have the right tool. CodeTwo Email Signatures for Office 365 will help you implement a unified email signature look, no matter what email client is used by users. Test it for free!

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Are you in the migration process of your Exchange to Exchange Online? Be aware of customized solutions developed on the transport role on your old Exchange server. They might not be convertible to Exchange Online!
What to do if a split doesn't fit? Or a bunch of invoice lines must be rounded while the sum must match a total? It takes a little, but - when done - it is extremely easy to implement.
Enter Foreign and Special Characters Enter characters you can't find on a keyboard using its ASCII code ... and learn how to make a handy reference for yourself using Excel ~ Use these codes in any Windows application! ... whether it is a Micr…
To export Lotus Notes to Outlook PST or Exchange and Domino Server files to Exchange Server or PST files with ease, go for Kernel for Lotus Notes to Outlook conversion tool. Through the video, you can watch the conversion process. A common user with…

624 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question