How does one ad text and or icon to bottom Excel (Excel 2000)

[Jim Bassett]

Look at the attached file for a screen shot of Excel as reference. How does one add text or an ocon to the area of the window at the botton where the Word "Ready" and Num can be seen? What is this area referred to?

[TonyE]

It's called the status bar.

Within VBA you can replace the contents with text by using:

Application.StatusBar = "Your text here"

To revert back to the default status bar use:

Application.StatusBar = False

[Jim Bassett]

Thanks. How does one add an icon or other graphic?

[TonyE]

I do not know of any ways to add icons to the status bar (if there are I'm sure one of the VBA experts will assist)

The status bar can be used for anything that results in a string output. For example the following will add the sheetname & address of the selected range to the status bar.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Application.StatusBar = Sh.Name & ":" & Target.Address
End Sub

It is good practice set it's status back to False otherwise the last message will remain until Excel is closed.

[sdckapr]

It is text. I think the best you could do for an icon is an "emoticon" : (

Steve

[TonyE]

Searching around I found a way you can do a bit more with the status bar, but you can not enter icons. For an example download the file called "Control the LED Display in the StatusBar " from John Walkenbach's Excel files for developers