splash screen

Posted by John Johnson on March 29, 2001 11:39 PM

I have a large workbook about 2mb and it takes a while to open. While it is opening there is just the grey screen and it turns white. Is there a way to load a screen ahead of the workbook so the user would see that?

Thanks
JJ

Posted by Dave Hawley on March 30, 2001 12:17 AM

Hi JJ

Don't think so as the Workbook_Open is the first event to fire, the best that can be done is to show a Splash Screen as soon as the Workbook opens.

In the Workbook Module:

Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:00:05"), "HideSplashScreen"
Run "ShowSplashScreen"
End Sub

I a normal module:

Sub ShowSplashScreen()
UserForm1.Show
End Sub

Sub HideOzGrid()
Unload UserForm1
End Sub

But 2MB is really not that large if it is taking too long to open you may need to do a disk de-frag

Dave

OzGrid Business Applications

Posted by Dave Hawley on March 30, 2001 12:35 AM

Oops, the last sub should be: Sub HideSplashScreen()

OzGrid Business Applications