userform startup splash screen
 

Hi everyone, is it possible to get a userform to load up before the
workbook itself loads up?

Because I have a workbook which is about 30mB and takes about
3-4seconds to load.

Is there anyway to force a userform to show while the workbook itself
is still opening?

Thanks guys and gals.

Andy


--
carlito_1985
------------------------------------------------------------------------
carlito_1985's Profile: http://www.excelforum.com/member.php...o&userid=21390
View this thread: http://www.excelforum.com/showthread...hreadid=469760

userform startup splash screen
 

Hi Andy.

Here's some VBA code from John Walkenbach's book 'Power programming with VBA'.

First create your form (MyStartupForm).

Then, in ThisWorkbook code module (VB editor):

Private Sub Workbook_Open()
MyStartupForm.Show
End Sub

This will show the form at start-up.

In the code module of the form:

Private Sub MyStartupForm_Activate()
Application.OnTime Now+TimeValue("00:00:05"), "Kill_The_Form"
End Sub

This will show the form for 5 seconds.

Finally, in a VBA module:
Private Sub Kill_The_Form()
Unload MyStartupForm
End Sub

This unloads the form after the 5 seconds.

Regards,
Alex



"carlito_1985" wrote:


Hi everyone, is it possible to get a userform to load up before the
workbook itself loads up?

Because I have a workbook which is about 30mB and takes about
3-4seconds to load.

Is there anyway to force a userform to show while the workbook itself
is still opening?

Thanks guys and gals.

Andy


--
carlito_1985
------------------------------------------------------------------------
carlito_1985's Profile: http://www.excelforum.com/member.php...o&userid=21390
View this thread: http://www.excelforum.com/showthread...hreadid=469760

userform startup splash screen
 

I understand how to do that, the problem is, with a 30mB file, it take
some time to open as mentioned earlier about 3-4 sec and I would like
splash screen during this time, not after.
(In the bottom left corner, it says opening and has a green bar slowl
filling over 3-4sec. I want the splash during this)
Thanks anyways alexhatzisavas.
Andy

alexhatzisavas Wrote:
Hi Andy.

Here's some VBA code from John Walkenbach's book 'Power programmin
with VBA'.

First create your form (MyStartupForm).

Then, in ThisWorkbook code module (VB editor):

Private Sub Workbook_Open()
MyStartupForm.Show
End Sub

This will show the form at start-up.

In the code module of the form:

Private Sub MyStartupForm_Activate()
Application.OnTime Now+TimeValue("00:00:05"), "Kill_The_Form"
End Sub

This will show the form for 5 seconds.

Finally, in a VBA module:
Private Sub Kill_The_Form()
Unload MyStartupForm
End Sub

This unloads the form after the 5 seconds.

Regards,
Ale

--
carlito_198
-----------------------------------------------------------------------
carlito_1985's Profile: http://www.excelforum.com/member.php...fo&userid=2139
View this thread: http://www.excelforum.com/showthread.php?threadid=46976

userform startup splash screen
 

carlito,
I guess you could initially open a dummy WB containing only the splash
screen userform. This WB then open your desired WB and then closes itself.

NickHK

"carlito_1985"
wrote in message
news:carlito_1985.1vr0qd_1127372719.9521@excelforu m-nospam.com...

I understand how to do that, the problem is, with a 30mB file, it takes
some time to open as mentioned earlier about 3-4 sec and I would like a
splash screen during this time, not after.
(In the bottom left corner, it says opening and has a green bar slowly
filling over 3-4sec. I want the splash during this)
Thanks anyways alexhatzisavas.
Andy

alexhatzisavas Wrote:
Hi Andy.

Here's some VBA code from John Walkenbach's book 'Power programming
with VBA'.

First create your form (MyStartupForm).

Then, in ThisWorkbook code module (VB editor):

Private Sub Workbook_Open()
MyStartupForm.Show
End Sub

This will show the form at start-up.

In the code module of the form:

Private Sub MyStartupForm_Activate()
Application.OnTime Now???("00:00:05"), "Kill_The_Form"
End Sub

This will show the form for 5 seconds.

Finally, in a VBA module:
Private Sub Kill_The_Form()
Unload MyStartupForm
End Sub

This unloads the form after the 5 seconds.

Regards,
Alex


--
carlito_1985
------------------------------------------------------------------------
carlito_1985's Profile:
http://www.excelforum.com/member.php...o&userid=21390
View this thread: http://www.excelforum.com/showthread...hreadid=469760

userform startup splash screen
 

I would go with Nick's idea.

Have a wrapper workbook with fires the splash screen.
Load the other workbook from within the userform activate event.
When loaded, unload the form and close that wrapper workbook.

--
HTH

Bob Phillips

"NickHK" wrote in message
...
carlito,
I guess you could initially open a dummy WB containing only the splash
screen userform. This WB then open your desired WB and then closes itself.

NickHK

"carlito_1985"
wrote in message
news:carlito_1985.1vr0qd_1127372719.9521@excelforu m-nospam.com...

I understand how to do that, the problem is, with a 30mB file, it takes
some time to open as mentioned earlier about 3-4 sec and I would like a
splash screen during this time, not after.
(In the bottom left corner, it says opening and has a green bar slowly
filling over 3-4sec. I want the splash during this)
Thanks anyways alexhatzisavas.
Andy

alexhatzisavas Wrote:
Hi Andy.

Here's some VBA code from John Walkenbach's book 'Power programming
with VBA'.

First create your form (MyStartupForm).

Then, in ThisWorkbook code module (VB editor):

Private Sub Workbook_Open()
MyStartupForm.Show
End Sub

This will show the form at start-up.

In the code module of the form:

Private Sub MyStartupForm_Activate()
Application.OnTime Now???("00:00:05"), "Kill_The_Form"
End Sub

This will show the form for 5 seconds.

Finally, in a VBA module:
Private Sub Kill_The_Form()
Unload MyStartupForm
End Sub

This unloads the form after the 5 seconds.

Regards,
Alex


--
carlito_1985
------------------------------------------------------------------------
carlito_1985's Profile:
http://www.excelforum.com/member.php...o&userid=21390
View this thread:
http://www.excelforum.com/showthread...hreadid=469760