Microsoft ProgressBar Control Version 6

[Joseph]

Hi

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

Cheer

 

[Bob Phillips]

A few examples

http://www.enhanceddatasystems.com/ED/Pages/ExcelProgressBar.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.aspx?scid=kb;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)

 

[Rob van Gelder]

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

 

[Guest]

Hi Joseph

How about right here?

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