View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.programming
Rob Hargreaves[_2_] Rob Hargreaves[_2_] is offline
external usenet poster
 
Posts: 32
Default Progress Indicator

Greg,

I am intersted in seeing the code for your progress meters.

Thanks
Rob
"Greg Wilson" wrote in message
...
I have two versions of a progress indicators. One is simple (which I
recomment) and the other is complex. Both are constructed of grouped shape
objects (native) and have a 3D appearance similar to a text box embedded
in a
user form absent the caption bar.

The complex one was developed for a colleague to monitor a very long,
multiphase test process. It can be made huge so it can easily be seen from
outside the room. It allows for text messages and the band colour can be
adjusted corresponding to the different phases. At the end it is destroyed
by
setting the Kill argument to True. As things typically go in my life, the
colleague left us and we no longer do this type of testing, so it never
got
used.

The simple one can be made very compact and only supports a band. Your
code
simply specifies the band size (%). It automatically self-destructs at
100%.
The 3D graphics is a personal touch. You need to paste the code to a code
module. Arguments are as follows:

ProgressBar(Val As Variant, Optional Size, Optional Left, Optional Top)

On first call the PB is created after which the Size, Left and Top
arguments
are ignored. An example of calling it after creation:

ProgressBar 25

If interested, I can post the code.

Regards,
Greg

"Rob Hargreaves" wrote:

Hi I need to find a simple to use progress indicator for excel. I cant
use
one which requires a dll or any references.

cpearson has a nice looking one but that does!!

jwalks example only works in some of my code. The loops are quite tight
in
the example I want to use one with and it is part of an automated task
between excel and word.

Any suggestions would be great. Graphical ones would be better on a form
which updated an indicator or progress bar whilst the code was being
executed.

(The current code takes 1/2 hour to finish)

Thanks for any help,

Rob