chris2727272727
Board Regular
- Joined
- Jul 10, 2005
- Messages
- 152
could anyonetell me how to put a splash screen on workbook opening
-
If you would like to post, please check out the MrExcel Message Board FAQ and register here. If you forgot your password, you can reset your password.
how to input splash screen
- Thread starter chris2727272727
- Start date
erik.van.geit
MrExcel MVP
- Joined
- Feb 1, 2003
- Messages
- 17,832
Hi, Chris,
this works nicely for me
userform module
(assuming you have a "label1")
"normal" module
and for you the "thisworkbook-code"
doing a search for splash screen, surely you will find other methods
kind regards,
Erik
this works nicely for me
userform module
(assuming you have a "label1")
Code:
Option Explicit
Const delay As Double = 2 'seconds
Private Sub UserForm_Activate()
Dim splash As Double
splash = Now + delay / 60 / 60 / 24
Me.Caption = "I will disappear in " & delay & " seconds"
Me.Label1 = "Wait till " & Format(splash, "hh:mm:ss")
Application.OnTime splash, "KillTheForm"
End Sub
Code:
Private Sub KillTheForm()
Unload UserForm1
End Sub
Code:
Private Sub Workbook_Open()
UserForm1.Show
End Subkind regards,
Erik
Upvote
0
Similar threads
- Question
