Faking an animated image in a userform?

[BBrandt]

I've gathered that it's not possible to place an animated GIF like this:

in a userform in Excel. As you might have guessed, I've created a macro that, depending on user inputs, can take a bit of time to run, and I want to display something to let the user know that Excel hasn't locked up. Ideally, this would be a sort of faux status bar like the one above that implies that there is work being done without necessarily actually indicating the amount of work completed (I figure that would be easier to code).

Do you have any recommendations about how to accomplish something like this? Ideally also I'd like to not have to download anything in order to make this work, as the spreadsheet is designed for others to use, so it would be inconvenient if they had to install an add-in or similar to get it to run. Thanks in advance!

 

[Andrew Poulsom]

Maybe you can adapt this:

http://www.j-walk.com/ss/excel/tips/tip34.htm

 

[BBrandt]

Thanks I'll give that a try.

 

[andrewman]

I read the code. But, I seem it will slow down the original code.

Do we have another method to do this?

 

[BBrandt]

Tried it out, that should work nicely once I actually come up with a way to actually determine what percent complete the macro is at any point in time. It's a little more involved than I would have liked, but it'll do. Thanks!

 

[Norie]

BBrandt

Why not just use Application.StatusBar?

Perhaps not so graphically appealing but it's not to hard to code.

 

[VoG]

Or even 'Control the LED Display in the StatusBar' http://www.j-walk.com/ss/excel/files/developer.htm

 

[MickG]

Hi This is ex "Google"
Works quite well when you get the percentage bit figured out.
Place somewhere in Loop
Down side - Not very visible
I used c :- "C" is the loop counter divided by the total times it loops

Application.StatusBar = "Portion completed: " & _
  Format(c, "0%")

'To return to normal
Application.StatusBar = ""

Regards Mick

 

[Legacy 98055]

Is the progressbar control not available?

 

[andrewman]

VOG II have given us a best solution.

Thanks!