Show Splash Screen in MS Excel

[bnc123]

I have made a splash screen for my spreadsheet, which shows-up for a couple of seconds when one opens the spreadsheet. Then it disappears. I created it using the instructions on

http://www.ozgrid.com/Excel/excel-splash-screen.htm

I made a userform and then a macro to kill that form etc. etc. So far, so good.

Is there any way I can make that splash screen appear again by clicking on a button or something, just like showing the "About" screen of a software?

FYI, I am a total zero in Visual Basic.

 

[SkipVought]

Hi,

Put the part of the code that makes the form visible in a separate procedure

Sub DisplayFlash()

End Sub

Then you can call DisplayFlash EITHER from Wotkbook_Open event or from a button (Assign DisplayFlash to the button)

Skip,

_{[red]A palindrome gone wrong?[/red]
A man, a plan, a ROOT canal...
PULLEMALL!}

 

[rmikesmith]

In order for the user to close the splash when activated manually (as from an About... menu command or button) consider the following:
Add a CommandButton to the Userform that when clicked will close the form. Set the CommandButton's Caption to 'Close' and its Visible property to False. Using Skip's procedure, make this modification:

Sub DisplaySplash(byVal DisplayCloseButton As Boolean)
   If DisplayCloseButton Then
     YourUserformName.YourCommandButtonName.Visible = True
   End If
   [green]'Other code here[/green]
End Sub

Note: I'm assuming the splash screen will not "time out" when activated manually.


Regards,
Mike