Mimic .NET Marquee Style ProgressBar in VBA????

[westchamp24]

Hello everyone,

I am trying to display a very elementary progress bar for a VBA application. Basically, I am looking to mimic the marquee style progress bar available in .NET. Simply put I just want to have some type of animation while the program is running; I am not looking to use steps. Any suggestions

 

[strongm]

Here's one possible method. You'll need a userform with two Images on it and a command button:

[blue]Option Explicit

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub CommandButton1_Click()
    Dim lp As Long
    For lp = 0 To 100
        Progressbar lp
        DoEvents
        Sleep 100
    Next
End Sub

Private Sub Progressbar(Percent As Variant)
    Image2.BackColor = RGB(0, 0, 255)
    With Image1
        Image2.Move .Left, .Top, .Width * Percent / 100, .Height
    End With
End Sub[/blue]

 

[chandlm]

If you are looking to do this within Excel without Userforms, then take a look at this.

http://j-walk.com/ss/excel/files/developer.htm

download the "Control the LED Display in the StatusBar" sample file.




Hope this helps.

Matt