A
Alex St-Pierre
Hi,
I display a userform with a progress bar (from 0% to 100%). The progress bar
is displayed correctly until I click on the form. When this happens, the box
and the percentage freeze (not responding). The macro continu to run
correctly but it doesn't update the percentage thereafter. Is there something
I can add to the macro below to update the caption or the userform?
Thank you!
Alex
Sub ProgBar(ProgressLevel As Variant, ProgLabel As String)
DoEvents
With UserForm3
If IsNumeric(ProgressLevel) Then
.Caption = fPercent(CStr(Round(ProgressLevel, 0)))
.LabelPROGBAR.Width = (UserForm3.Width - 0 *ProgressLevel/100
.LabelPROGBAR.BackColor = RGB(0, 255 / 3, 255)
Else
.Caption = ProgressLevel
End If
.TextBoxPROGBAR.text = ProgLabel
.Repaint
End With
End Sub
I display a userform with a progress bar (from 0% to 100%). The progress bar
is displayed correctly until I click on the form. When this happens, the box
and the percentage freeze (not responding). The macro continu to run
correctly but it doesn't update the percentage thereafter. Is there something
I can add to the macro below to update the caption or the userform?
Thank you!
Alex
Sub ProgBar(ProgressLevel As Variant, ProgLabel As String)
DoEvents
With UserForm3
If IsNumeric(ProgressLevel) Then
.Caption = fPercent(CStr(Round(ProgressLevel, 0)))
.LabelPROGBAR.Width = (UserForm3.Width - 0 *ProgressLevel/100
.LabelPROGBAR.BackColor = RGB(0, 255 / 3, 255)
Else
.Caption = ProgressLevel
End If
.TextBoxPROGBAR.text = ProgLabel
.Repaint
End With
End Sub