VBA Tips Update Statusbar

Is the StatisBar protected from code like the Ribbon in Outlook 2007?
Cannot get VBA to update the Status Bar in Outlook?

Sub myFolder()
Dim objOlApp As New Outlook.Application
Dim objOlExplor As Outlook.Explorer
Dim objOlFolder As Outlook.Folder
Dim strStatus$

Set objOlExplor = objOlApp.ActiveExplorer
Set objOlFolder = objOlExplor.CurrentFolder

MsgBox "Active MailBox ==> " & objOlFolder.Name
'objOlApp.StatusBar = "Active MailBox ==> " & objOlFolder.Name
End Sub

Hi and Thanks in advace!

I am manipulating data contained in one array

Code:

    For x= LBound(aPT, 1) To UBound(aPT, 1)
      If x= 0 Then Exit Sub
      Application.StatusBar = x
      'many other code rows
    Next x

if X is long variable

Why many times

my Application.StatusBar goes to sleep and does not show the proper X value
does not show the updated X value.

Don't know why

I need to show on the statusbar what am I doing.


at present, my statusBar goes fine but once X=596 more or less

I see the same message on the statusBar until the macro ends
What am I missing??

Thanks!

i put a statusbar in my macro but all's it does it say "please be patient"

that's hardly a help

if i could put in a statusbar that shows what percentage of the macro has run, that would be great

How do I switch the status bar programmtically between functions.

Sometimes I want the default display: "Calculating Cells: xx%" (which is useful as my spreadsheet is memory intensive and slow"

Other times it shows "Filter Mode" or "Found 1245/12456" records but I have only ever got it into 'Filter Mode' by chance!

Other times I want it to show a programatic value e.g.
Code:

Application.Statusbar = "MyText"

I can reset to default by using
Code:

Application.statusbar = false

But this doesnt always go back to "Calculating Cells: xx%" for instance. (It just says "Calculate" or sometimes "Filter Mode")

Any help appriciated.

How can I put a numeric cell value (e.g. A1) into the statusbar?


Rgds
Gerald

I have a Word file where I have embedded hundreds of active links to many Excel files. Now, to summarize all of the links collectively in the Word file, I wrote code in one summary Excel file to go open the Word file and go to each field (excel link), copy the link source and paste it neatly in a list back in my Summary Excel file. I can do all that but I also want to copy to statusbar information in the Word document for each field. The statusbar info shows each link's location, e.g., page #, line#, col#. My code is as follows with commented lines where I need help:
Sub OpenAndReadWordDoc()
Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
Dim tString As String
Dim linenum As Variant
Dim fName As String
Dim r As Long
Dim fieldLoop As Field
fName = ActiveSheet.Range("e1")
Application.AskToUpdateLinks = False
Application.DisplayAlerts = False
r = 4
Set wrdApp = CreateObject("Word.Application")
Options.UpdateLinksAtOpen = False
Set wrdDoc = wrdApp.Documents.Open(fName, ConfirmConversions:=False, ReadOnly _
:=False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate _
:="", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="" _
, Format:=wdOpenFormatAuto, XMLTransform:="")
wrdDoc.Activate
With wrdDoc
For Each fieldLoop In ActiveDocument.Fields
tString = fieldLoop.Code.Text
'Here I need a line that gets the statusbar info from the Word document
'linenum = fieldLoop.Code.statusbar something....
'linenum = fieldLoop.code.information something....
ActiveSheet.Range("E" & r).Formula = tString
ActiveSheet.Range("G" & r).Formula = linenum
r = r + 1
Next fieldLoop
.Close
End With
Options.UpdateLinksAtOpen = True
wrdApp.Quit
Set wrdDoc = Nothing
Set wrdApp = Nothing
MsgBox ("All done. Go to next step.")
End Sub

Is there a way to display the statusbar message in a userform? I am not talking about creating a progress bar. I am referring to the application status bar message that is at the bottom the screen. I have set my status bar to false, so more page displays, but would occasionally like to show the status. I thought I might be able to reroute to a userform. Is this possible.

I tried:

Code:

 
Private Sub UserForm_Activate()
Label1 = Application.StatusBar
End Sub

but it just shows "False"

Anybody have a macro or scheme for refreshing the statusbar while the macro is running. for example every 3 seconds refresh the message

Hello All,

I have a workbook that has the calculations set to Automatic, the workbook calculates just fine, but the word calculate remains in the Statusbar like it would when you have them off. Any way to fix? This is a report that internal customers use and they would get confused over something like this. I have no other workbooks open.

Thanks.

is it possible to scroll a text message in the status bar? It can be done in html, but is it possible in excel?

many thanks