Using a UserForm for a Splash Screen

• • Reply

  14 years ago

  by jgiddy

  John Giddy

  , Australia

  Joined 14 years ago
  I have tried to implement a "Splash Screen" at the start of an Excel project, following the suggestion on pages 447 -449 of John Walkenbach's "Excel 2003 Power Programming with VBA".
  
  This puts   "Private Sub Workbook_Open()
                         UserForm1.Show
                    End Sub"
  into the "ThisWorkbook" code,
  
  and           "Private Sub UserForm1_Activate()
                         Application.OnTime  Now + TimeValue("00:00:05"), "KillTheForm"
                    End Sub"
  into the code for UserForm1
  
  Another subroutine is placed in any other module in the project:
                 "Private Sub KillTheForm()
                         Unload UserForm1
                        UserForm2.Show
                   End Sub"
  
  However this doesn't work.
  I have fallen back to the simple method of adding a ControlButton to unload UserForm1 and show the next UserForm.  This does work OK.
  
  I would still like the Splash Screen (UserForm1) to disappear after 5 seconds by itself, so how do I do It please ?
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  Report abuse
• • Reply

  14 years ago

  by Izol

  Joshua Masson

  , United States

  Joined 14 years ago

  Private Sub Workbook_Open()

  
      UserForm1.Show vbModeless
      Application.Wait (Now + TimeValue("0:00:05"))
      Unload UserForm1
  
  
  

  End Sub

  the vbModeless allows code to continue executing.

  Waits 5 seconds and unloads it.

  Report abuse