Упражнение

Создайте процедуру с именем Панель_Час16. Эта процедура должна создать и вывести на экран панель инструментов 16-й час с тремя кнопками: Создать (ID равен 2530), Открыть (ID равен 23) и Сохранить (ID равен 3).

Создайте также процедуру ЗакройПанель, которая будет удалять панель 16-й час.

Полный код процедур:

Sub Панель_Час16()

Dim cbHour16 As CommandBar

Set cbHour16 = CommandBars.Add(Name:="16-й час")

With cbHour16

.Visible = True

.Controls.Add Type:=msoControlButton, *ID:=2520, Before:=1

.Controls.Add Type:=msoControlButton, ID:=23, Before:=2

.Controls.Add Type:=msoControlButton, ID:=3, Before:=3

End With

End Sub

Sub ЗакройПанель()

CommandBars("16-й час").Delete

End Sub

Ответы к 17-му часу

Тесты

1. Какой метод используется для создания меню?

Метод Add.

1. Какое свойство пользовательской команды (элемента меню) назначает процедуру, выполняемую при выборе этой команды?

Свойство OnAction.

1. Какой тип элемента управления задает пункт меню?

msoControlPopup.

1. Как удалить строку меню с помощью кода VBA?

С помощью метода Delete.

1. Какое диалоговое окно должно быть открыто при настройке меню?

Диалоговое окно Настройка, которое открывается с помощью команды Сервис > Настройка.

1. Для создания командной панели вы используете метод Add. Какой аргумент этого метода (и как) надо задать, чтобы командная панель автоматически удалялась при закрытии приложения, содержащего эту панель?

Для этого необходимо задать необязательному аргументу Temporary метода Add значение True (no умолчанию этот аргумент имеет значение False).

1. Как вывести на экран строку меню?

Надо задать свойству Visible строки меню значение True.