×
Traktatov.net » Excel. Трюки и эффекты » Читать онлайн
Страница 78 из 146 Настройки

=' [F.xls]Лист2'!A1

Произвольный текст в строке состояния

С помощью небольшого макроса можно включить отображение в строке состояния произвольного текста. Код макроса выглядит следующим образом (листинг 3.5).

Листинг 3.5. Произвольный текст в строке состояния

Sub ChangeStatusBarText()

Application.StatusBar = «Как надоело работать!!!»

End Sub

Результат применения данного макроса представлен на рис. 3.1.

Рис. 3.1. Изменение текста в строке состояния


Для возврата к первоначальному состоянию можно использовать следующий макрос (листинг 3.6).

Листинг 3.6. Восстановление строки состояния

Sub ReturnStatusBarText()

Application.StatusBar = False

End Sub

После запуска данного макроса строка состояния примет прежний вид.

Текст, изображенный в строке состояния на рис. 3.1, можно заставить двигаться, то есть создать эффект бегущей строки. В этом нам поможет макрос, код которого приведен в листинге 3.7.

Листинг 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).

Листинг 3.8. Изменение заголовка окна

Sub NewTitle()

Application.Caption = «Какая хорошая погода»

End Sub

Результат выполнения макроса показан на рис. 3.2.

Рис. 3.2. Изменение заголовка окна


Однако на рис. 3.2 видно, что перед новым заголовком находится название текущего файла. Чтобы убрать это название, необходимо внести в макрос некоторые изменения (листинг 3.9).

Листинг 3.9. Изменение заголовка окна (со скрытием названия файла)

Sub NewTitle()

Application.Caption = «Какая хорошая погода»

ActiveWindow.Caption = ""

End Sub

После запуска данного макроса заголовок примет следующий вид (рис. 3.3).

Рис. 3.3. Заголовок без названия файла


Можно сделать так, что после заголовка будет отображаться произвольный текст. Соответствующий макрос выглядит примерно так (листинг 3.10).

Листинг 3.10. Еще один вариант изменения заголовка

Sub NewTitle()

Application.Caption = «А завтра будет дождь»

ActiveWindow.Caption = «Какая хорошая погода»

End Sub

Результат выполнения этого макроса показан на рис. 3.4.

Рис. 3.4. Измененный заголовок с дополнительным текстом


Чтобы заголовок окна программы принял свой первоначальный вид, необходимо запустить следующий макрос (листинг 3.11).

Листинг 3.11. Возврат к первоначальному заголовку

Sub ReturnTitle()

' Возвращение заголовка приложения (то есть Excel)

Application.Caption = Empty

' Указание правильного названия открытого файла (книги)