Excel splash screen animated dots on loading

[mrwad]

There are a lot of tutorials in the Internet. However I was not able to find anything suitable. Is there any way to make animated dots on loading?


The idea is to make a loop of animated dots

.....

on userform so they would appear one after another and then would start over after some amount of dots.


So I input a dot to Label1 and move it to left after certain time criteria?

Something like https://media1.tenor.com/images/3aaadc45f4da67e52850a02aedf68040/tenor.gif?itemid=13427670


My current code for UserForm:

        Private Sub UserForm_Initialize()
    HideTitleBar.HideTitleBar Me
        Call loadingdots
    End Sub

Code for `Private Sub Workbook_Open()`:

    Loading.Show (vbModeless)
    
    Dim RngCom As Range
    Dim RngTurb As Range
    Dim RngGen As Range
    
    Application.Wait (Now + TimeValue("00:00:06"))
    
    ThisWorkbook.Worksheets("MAIN").ScrollArea = "$A$1:$BL$45"
        Application.DisplayFormulaBar = False
        ActiveWindow.DisplayHeadings = False
        ActiveWindow.DisplayGridlines = False
      etc...
      Unload Loading
    'Application.ScreenUpdating = True
      End Sub

 

[Logit]

.
http://www.kubiszyn.co.uk/download/free/Blue Bubble Loader.xls

 

[COwen]

Here is the code that you would put in your UserForm. It is really a simple code sequence.

Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr) 'this is so that we can use the Sleep _

Private Sub UserForm_Activate()
HideBar Me
Label1.Caption = ChrW(9679)
Label2.Caption = ChrW(9679)
Label3.Caption = ChrW(9679)
dg = RGB(64, 64, 64)
wh = RGB(255, 255, 255)
'9679
t = 0

Do Until t = 4 ' will run for 6 seconds
    Label1.ForeColor = dg
    DoEvents
    Sleep 500
    Label1.ForeColor = wh
    Label2.ForeColor = dg
    DoEvents
    Sleep 500
    Label2.ForeColor = wh
    Label3.ForeColor = dg
    DoEvents
    Sleep 500
    Label3.ForeColor = wh
    t = t + 1
Loop
Unload Me
End Sub

The code that goes in This Workbook Module:

Private Sub Workbook_Open()
UserForm1.Show (False)
End Sub

A new module (I call mine "modCleanForm") that hides the titlebar on the form.

Option Explicit

#If VBA7 Then
    Public Declare PtrSafe Function FindWindow Lib "user32" _
                Alias "FindWindowA" _
               (ByVal lpClassName As String, _
                ByVal lpWindowName As String) As Long


    Public Declare PtrSafe Function GetWindowLong Lib "user32" _
                Alias "GetWindowLongA" _
               (ByVal hWnd As Long, _
                ByVal nIndex As Long) As Long


    Public Declare PtrSafe Function SetWindowLong Lib "user32" _
                Alias "SetWindowLongA" _
               (ByVal hWnd As Long, _
                ByVal nIndex As Long, _
                ByVal dwNewLong As Long) As Long


    Public Declare PtrSafe Function DrawMenuBar Lib "user32" _
               (ByVal hWnd As Long) As Long
#Else
    Public Declare Function FindWindow Lib "user32" _
                Alias "FindWindowA" _
               (ByVal lpClassName As String, _
                ByVal lpWindowName As String) As Long


    Public Declare Function GetWindowLong Lib "user32" _
                Alias "GetWindowLongA" _
               (ByVal hWnd As Long, _
                ByVal nIndex As Long) As Long


    Public Declare Function SetWindowLong Lib "user32" _
                Alias "SetWindowLongA" _
               (ByVal hWnd As Long, _
                ByVal nIndex As Long, _
                ByVal dwNewLong As Long) As Long


    Public Declare Function DrawMenuBar Lib "user32" _
               (ByVal hWnd As Long) As Long
#End If

Sub HideBar(frm As Object)

Dim Style As Long, Menu As Long, hWndForm As Long
hWndForm = FindWindow("ThunderDFrame", frm.Caption)
Style = GetWindowLong(hWndForm, &HFFF0)
Style = Style And Not &HC00000
SetWindowLong hWndForm, &HFFF0, Style
DrawMenuBar hWndForm

End Sub

Try it out. If you would like to see it in a finished workbook, you can see that here. I also have a preloader set with several different preloaders that you can check out here.