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

1. Какой коллекции принадлежат панели инструментов как элементы?

Коллекции CommandBars.

2. Какое свойство используется для назначения кнопке панели инструментов макроса или процедуры?

Свойство OnAction.

3. Какой коллекции принадлежат кнопки панелей инструментов как элементы?

Коллекции Controls.

4. Какой метод применяется для удаления панелей инструментов?

Метод Delete.

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

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

6. Какое свойство применяется для задания значка, выводимого на кнопке?

Свойство FaceID.

7. Истинно или ложно следующее утверждение: после создания панель инструментов автоматически выводится на экран?

Ложно. Для вывода на экран панели инструментов надо задать свойству Visible панели инструментов значение True.

Упражнение

Создайте процедуру с именем Панель_Час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.

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

Свойство OnAction.

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

msoControlPopup.

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

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

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

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

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

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

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

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

Упражнение

Напишите процедуру, которая создавала бы и выводила на экран строку меню (с именем Пример17), содержащую пункты Файл, Правка и Справка. Напишите еще одну процедуру для удаления этой строки меню. На свободном рабочем листе создайте две командные кнопки, которые выполняли бы эти процедуры.

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

Sub Пример17()

 Dim Ex17menubar As CommandBar

 Dim mymenu As Object

 Dim mymenuitem As Object

 Set Ex17menubar = CommandBars.Add(Name:="Пример17", _

  Position:=msoBarTop, MenuBar:=True, Temporary:=True)

 With Ex17menubar

  .Controls.Add Type:=msoControlPopup, ID:=30002, Before:=1

  .Controls.Add Type:=msoControlPopup, ID:=ÒÒÑ, Before:=2

  .Controls.Add Type:=msoControlPopup, ID:=30010, Before:=3

  .Visible = True

 End With

 CommandBars("Worksheet Menu Bar").Visible = False

End Sub

Sub УдалениеПримера17()

 CommandBars("Пример17").Delete

End Sub