Microsoft Office Tutorials and References
In Depth Information
Displaying a Progress Indicator
Figure 15-6: Page2 of the MultiPage control will display the progress indicator.
Inserting the UpdateProgress procedure for a progress indicator with a
MultiPage control
Insert the following procedure in the code module for the UserForm:
Sub UpdateProgress(Pct)
With UserForm1
.FrameProgress.Caption = Format(Pct, “0%”)
.LabelProgress.Width = Pct * (.FrameProgress.Width - 10)
End With
End Sub
The UpdateProgress procedure is called from the macro that’s executed when the user clicks
the OK button, and it performs the updating of the progress indicator.
Search JabSto ::

Custom Search