Упражнение

Напишите процедуру, которая создавала бы и выводила на экран строку меню (с именем Пример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

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

Тесты

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

ОператорCharts.Add.

1. Какое свойство объекта Application возвращает текущую активную диаграмму?

Свойство ActiveChart.

1. Какое свойство объекта Chart определяет тип создаваемой диаграммы?

Свойство ChartType.

1. Какой метод объекта Chart управляет данными, отображаемыми в диаграмме?

Метод SourceData.

1. Что из перечисленного не является свойством объекта Chart: ChartArea, ChartType, ChartLocation или ChartTitle?

ChartLocation.

1. Истинно или ложно следующее утверждение: процесс построения диаграмм можно записать с помощью макроса?

Истинно. Это самый простой способ создания процедур, строящих диаграммы.

1. Свойство _____________ объекта Workbook возвращает активную диаграмму.

ActiveChart.