Question

I build VBA applications for both Word and Excel, is there any way to access the progress bar that sometimes appears in the Office status bar.

Answer 1

The following will simulate a progress bar in Excel’s status bar:

Public Sub UpdateStatusBar(percent As Double, Optional Message As String = '')      Const maxBars As Long = 20     Const before As String = '['     Const after As String = ']'      Dim bar As String     Dim notBar As String     Dim numBars As Long      bar = Chr(31)     notBar = Chr(151)     numBars = percent * maxBars      Application.StatusBar = _     before & Application.Rept(bar, numBars) & Application.Rept(notBar, maxBars - numBars) & after & ' ' & _          Message & ' (' & PercentageToString(percent) & '%)'      DoEvents  End Sub