Лабы по Excel / Лабораторная работа 10

Лабораторная работа №10

Тема работы: векторная графика в VBA.

Цель работы: получение навыков использования векторной графики в MS Excel.

Задание: разработать программу, позволяющую выводить заданные числа на лист MS Excel, используя возможности век- торной графики. В качестве исходного числа использовать значение ab Вашего варианта. Реализовать в программе возможность удаления нарисованных цифр. Подготовить отчет по лаборатор- ной работе.

Примерный внешний вид выполненной лабораторной работы №10 изображен на рисунке 10.

Рисунок 10 – Примерный внешний вид лабораторной работы 10

Дополнительная информация

Рассмотрим несколько примеров, которые могут быть полезны при выполнении лабораторной работы №10.

Рисование в VBA за счет использования объектов векторной графики MS Word. Графические фигуры, представленные на панели рисования MSWord, образуют в VBA семейство объектов Shapes.

Для рисования используются варианты метода добавления объектов семейства Shapes – Add: AddLine – добавить линию, AddCurve – добавить кривую, AddPolyLine – добавить полилинию и AddShape – добавить фигуру.

Для рисования красной горизонтальной линии с началом в точке (10, 50) и концом в точке (150, 50) необходимо выполнить следующий код:

В результате выполнения рассмотренного кода на лист MS Excel будет добавлена горизонтальная линия красного цвета толщиной 10 pt.

Удаление линии с листа MS Excel может быть выполнено следующим образом:

При добавлении объектов Shapes тип объекта можно указывать, используя его номер или название:

В результате выполнения рассмотренного кода на лист MS Excel будет добавлено два прямоугольника.

Вывод цифр на лист MS Excel может быть реализован с помощью команды AddPolyline следующим образом:

В результате выполнения рассмотренного кода на лист MS Excel будет добавлена красная цифра шесть.