Creating Splash Screen in MS Office 2003

[Siddharth Rout]

Now you can create your own splash screens in MS Office 2003. I have shown an example in Excel. This can be modified slightly to work in MS-Word, MS-Powerpoint etc...

Create a userform. Name it say "frmSplash"

In the userform code window, paste this code

'Set this to true to close the form
Public CloseMe As Boolean

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    Cancel = Not CloseMe
End Sub

I have used a button to start the flash, You can use a sub and call it form the button or even put it in the Workbook open event...

Sub KoolSplash()
    Dim frm As frmSplash
    Dim i As Integer
    Dim j As Double

    '-- Deactivate Keyboard.
    Application.OnKey "^d", "KeyboardOn"
    Application.DataEntryMode = True

    '-- Display the Splash Form
    Set frm = New frmSplash
    frm.CloseMe = False
    frm.KoolPrgBar.Value = 0 '-- KoolPrgBar is the progressbar
    frm.Show False '-- Non Modal

    '-- Perform your task here while splash is shown.
    For i = 0 To 100 Step 10
        frm.KoolPrgBar.Value = i

        '-- Example -> I am killing time here... lol
        'Replace it with your code
        For j = 1 To 100000
            DoEvents
        Next j
    Next i

    '-- Close the Splash Form.
    frm.CloseMe = True
    Unload frm

    '-- Re-Activate keyboard.
    Application.DataEntryMode = False
End Sub

Project Attached...