Задание №2 Назначить макрос графическим изображениям.

Для запуска макроса можно использовать любой элемент, находящийся на рабочем листе. Например, можно использовать для запуска любое графическое изображение.

1. Откройте файл из задания №1.

2. Используя панель Рисование, нарисуйте на листе любую автофигуру.

3. Щелкните правой кнопкой мыши на изображении и в открывшемся контекстном меню выберите команду Назначить макрос. Отобразится диалоговое окно Назначить макрос объекту.

4. Выберите макрос «Алмаз» и подтвердите выполнение операции.

5. Щелкните вне графического изображения, чтобы снять выделение с объекта.

6. Щелкните по графическому изображению. Макрос «Алмаз» должен выполниться:

7. Запустить макрос на выполнение можно и другим способом, использовав командную кнопку. Вставить командую кнопку непосредственно на рабочий лист Excel можно с помощью панели инструментов «Формы». Затем необходимо назначить ей наш макрос.

8. Для того, чтобы удалить макрос из списка макросов диалогового окна Макросы надо:

1. Выполнить команду СервисМакросМакросы. Появится уже знакомое диалоговое окно.

2. Выделить макрос, подлежащий удалению и щелкнуть по кнопке «Удалить».

3. Подтвердить выполнение операции в специальном окне, которое появится.

4. Сохранить рабочую книгу.

Практическое занятие №6 Тема «Разработка приложения с внедрением рисунка»

Цели занятия:

• закрепление полученных знаний по темам «Основные элементы и объекты VBA» «Основы программирования на VBA»;

• формирование умения создавать приложения в VBA;

• формирование умения внедрять рисунок;

• формирование умения осуществлять разработку кода программного модуля на современных языках программирования.

Вопросы для актуализации опорных знаний:

1. как создать рисунок на форме?

2. как изменить программно свойства рисунка?

3. как согласовать размер рисунка и размер объекта?

Задания для практического занятия и инструктаж по их выполнению

Задание №1 Разработать приложение с внедрением рисунка.

1. В редакторе MS Paint создайте рисунки:

цв1.bmp	цв2.bmp	цв3.bmp

2. Сохраните рисунки в своей папке цв1.bmp, цв2.bmp, цв3.bmp

3. Создайте экранную форму и назовите ее Цветок. Внедрите в созданную форму рисунок и четыре кнопки. Кнопки назовите «Сцена1», «Сцена2», «Сцена3». «ВЫХОД». Используя свойства объектов, отформатируйте созданную форму. Форма может иметь вид:

4. Тексты программ для кнопок:

Объект	Программа
CommandButton1 Вставить рисунок C:\цв1.bmp	Private Sub CommandButton1_Click() UserForm1.Image1.Picture = LoadPicture("C:\цв1.bmp") End Sub
CommandButton2 Вставить рисунок C:\цв2.bmp	Private Sub CommandButton2_Click() UserForm1.Image1.Picture = LoadPicture("C:\цв2.bmp") End Sub
CommandButton3 Вставить рисунок C:\цв3.bmp	Private Sub CommandButton3_Click() UserForm1.Image1.Picture = LoadPicture("C:\цв3.bmp") End Sub
CommandButton4 Закрыть форму	Private Sub CommandButton4_Click() UserForm1.Hide End Sub

5. Запишите процедуру вызова данной формы и назовите ее Цветок:

Public Sub Цветок()

UserForm1.Show

End Sub

6. На листе Excel вставьте Рисунок-Картинка и назначьте ей макрос Цветок:

7. Проверьте работоспособность Кнопки-Рисунка. При ее нажатии должна появляться форма «Цветок». При нажатии на кнопки: «Сцена1», «Сцена2» и «Сцена3» рисунок в форме меняется.

При нажатии на кнопку «ВЫХОД» форма скрывается с листа.

7. Сохраните Вашу работу, результат предъявите преподавателю.