=' [F.xls]Лист2'!A1
Произвольный текст в строке состояния
С помощью небольшого макроса можно включить отображение в строке состояния произвольного текста. Код макроса выглядит следующим образом (листинг 3.5).
Sub ChangeStatusBarText()
Application.StatusBar = «Как надоело работать!!!»
End Sub
Результат применения данного макроса представлен на рис. 3.1.
Рис. 3.1. Изменение текста в строке состояния
Для возврата к первоначальному состоянию можно использовать следующий макрос (листинг 3.6).
Sub ReturnStatusBarText()
Application.StatusBar = False
End Sub
После запуска данного макроса строка состояния примет прежний вид.
Текст, изображенный в строке состояния на рис. 3.1, можно заставить двигаться, то есть создать эффект бегущей строки. В этом нам поможет макрос, код которого приведен в листинге 3.7.
Sub MovingTextInStatusBar()
Dim intSpaces As Integer
' Изменение количества пробелов в начале строки (от 20 до
0) – _
строка бежит (скорее ползет) влево
For intSpaces = 20 To 0 Step -1
' Запись текста в строку состояния
Application.StatusBar = Space(intSpaces) & "Как надоело
работать!!!"
' Выдерживаем паузу
Application.Wait Now + TimeValue(«00:00:01»)
' Дадим Excel обработать пользовательский ввод
DoEvents
Next
Application.StatusBar = False
End Sub
После запуска макроса текст в строке состояния (он может быть произвольным) начнет двигаться справа налево.
Быстрое изменение заголовка окна
Аналогичным образом при необходимости можно изменить текст в заголовке окна программы. Для этого можно использовать, например, следующий макрос (листинг 3.8).
Sub NewTitle()
Application.Caption = «Какая хорошая погода»
End Sub
Результат выполнения макроса показан на рис. 3.2.
Рис. 3.2. Изменение заголовка окна
Однако на рис. 3.2 видно, что перед новым заголовком находится название текущего файла. Чтобы убрать это название, необходимо внести в макрос некоторые изменения (листинг 3.9).
Sub NewTitle()
Application.Caption = «Какая хорошая погода»
ActiveWindow.Caption = ""
End Sub
После запуска данного макроса заголовок примет следующий вид (рис. 3.3).
Рис. 3.3. Заголовок без названия файла
Можно сделать так, что после заголовка будет отображаться произвольный текст. Соответствующий макрос выглядит примерно так (листинг 3.10).
Sub NewTitle()
Application.Caption = «А завтра будет дождь»
ActiveWindow.Caption = «Какая хорошая погода»
End Sub
Результат выполнения этого макроса показан на рис. 3.4.
Рис. 3.4. Измененный заголовок с дополнительным текстом
Чтобы заголовок окна программы принял свой первоначальный вид, необходимо запустить следующий макрос (листинг 3.11).
Sub ReturnTitle()
' Возвращение заголовка приложения (то есть Excel)
Application.Caption = Empty
' Указание правильного названия открытого файла (книги)