Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Splash Screen Problem
I have a problem with the Splash Screen for my XLA. Basically, I have code
in the Workbook_Open routine to show a userform (called FSplash) i.e. Private Sub Workbook_Open() FSplash.Show End Sub And code in FSplash's Activate event to set up a timer to call another routine called CloseSplash that closes the form i.e. Private Sub UserForm_Activate() Application.OnTime Now + TimeValue("00:00:05:"), "CloseSplash" End Sub CloseSplash is located in a standard module and simply closes the userform i.e. Public Sub CloseSplash() Unload FSplash End Sub All of this works OK if I open Excel normally. I launch Excel, my addin is loaded and my splash screen is displayed and removed. My problems begin when, if rather than opening Excel normally, I open Excel by double-clicking on a workbook. My intention here is to have Excel open, my addin load (displaying the splash screen) and then the workbook that I double clicked on to open. Basically it doesn't. My addin loads, the splash screen shows and disappears but the workbook is never opened. Excel just sits there with no workbook open at all (not even a new blank one). If I disable my splash screen then everything works fine. Also, once Excel is open, double clicking on workbooks does cause then to load into Excel as normal. Does anyone have any suggestions? Thanks Alan |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Splash Screen Problem
I've found a partial solution by opeining the userform using another OnTimer
event but if anyone has any other solutions I'd still be interested. Regards Alan "Alan Roberts" wrote in message ... I have a problem with the Splash Screen for my XLA. Basically, I have code in the Workbook_Open routine to show a userform (called FSplash) i.e. Private Sub Workbook_Open() FSplash.Show End Sub And code in FSplash's Activate event to set up a timer to call another routine called CloseSplash that closes the form i.e. Private Sub UserForm_Activate() Application.OnTime Now + TimeValue("00:00:05:"), "CloseSplash" End Sub CloseSplash is located in a standard module and simply closes the userform i.e. Public Sub CloseSplash() Unload FSplash End Sub All of this works OK if I open Excel normally. I launch Excel, my addin is loaded and my splash screen is displayed and removed. My problems begin when, if rather than opening Excel normally, I open Excel by double-clicking on a workbook. My intention here is to have Excel open, my addin load (displaying the splash screen) and then the workbook that I double clicked on to open. Basically it doesn't. My addin loads, the splash screen shows and disappears but the workbook is never opened. Excel just sits there with no workbook open at all (not even a new blank one). If I disable my splash screen then everything works fine. Also, once Excel is open, double clicking on workbooks does cause then to load into Excel as normal. Does anyone have any suggestions? Thanks Alan |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Splash Screen | New Users to Excel | |||
Splash Screen | Excel Discussion (Misc queries) | |||
splash screen | Excel Discussion (Misc queries) | |||
Splash Screen | Excel Programming | |||
VBA splash screen | Excel Programming |