Microsoft ProgressBar Control Version 6
 

Hi

Anyone know where I can get some sample code for this?

Cheer

--
Josep

-----------------------------------------------------------------------
Joseph's Profile: http://www.excelforum.com/member.php...nfo&userid=563
View this thread: http://www.excelforum.com/showthread.php?threadid=27798

Microsoft ProgressBar Control Version 6
 

A few examples

http://www.enhanceddatasystems.com/E...rogressBar.htm

www.j-walk.com/ss/files/developer.htm, look for the item entitled 'Control
the LED Display in the StatusBar
http://www.cpearson.com/excel/Progress.htm


http://support.microsoft.com/default...b;EN-US;170782
XL97: How to Display a Progress Bar with a User Form

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Joseph" wrote in message
...

Hi

Anyone know where I can get some sample code for this?

Cheers


--
Joseph


------------------------------------------------------------------------
Joseph's Profile:
http://www.excelforum.com/member.php...fo&userid=5637
View this thread: http://www.excelforum.com/showthread...hreadid=277989

Microsoft ProgressBar Control Version 6
 

I have a couple of examples on my website. One statusbar, one commandbar.


--
Rob van Gelder - http://www.vangelder.co.nz/excel


"Joseph" wrote in message
...

Hi

Anyone know where I can get some sample code for this?

Cheers


--
Joseph


------------------------------------------------------------------------
Joseph's Profile:
http://www.excelforum.com/member.php...fo&userid=5637
View this thread: http://www.excelforum.com/showthread...hreadid=277989

Microsoft ProgressBar Control Version 6
 

Hi Joseph

How about right here?


Anyone know where I can get some sample code for this?


You will find the ProgressBar control:
From a User form "tools additional controls"
or
From a Worksheet "More controls"

To run the sample, place a ProgressBar on the worksheet
set the max value to 10000 e.i.
(right click the ProgressBar/properties/max/10000)

Private Sub CommandButton1_Click()

Dim intCounter As Integer
Dim i As Integer
Dim sum As Integer
i = 0
ProgressBar1.Visible = True '///// Microsoft Windows Common Control 6.0

For i = 1 To 10000

Do While intCounter < i
intCounter = intCounter + 1 '///// For the ProgressBar.
ProgressBar1.Value = intCounter '///// Update progress.''
sum = sum + 1

Loop
Next i

ProgressBar1.Visible = False

End Sub

Good Luck
TK