Создание графического объекта

Поясним подробно технологию объектно-ориентированного

программирования на простом наглядном примере создания на активном листе Excel (объект ActiveSheet) графического объекта - раскрашенного игрушечного домика. Объектную модель графики в VBA составляют специальные семейства, свойства и методы. Преимуществом программного позиционирования на листе.

Сделаем пояснения к созданному коду:

• Тип процедуры Public означает, что она может быть использована для вызова в других процедурах.

• Метод AddShape создает новый графический объект семейства Shapes, в качестве параметров метода указываются: тип фигуры (Туре), ее местоположение (координаты) на листе Excel и размеры; метод AddShape позволяет строить фигуры 139 типов - в их числе:

Полный список фигур можно просмотреть через Object Browser или найти в справочнике VBA: нажать кнопку вызова справки и ввести в поле вопроса имя раздела - AddShape Method. Следующие два числовых параметра представляют собой координаты верхнего левого угла прямоугольника, мысленно описанного около выводимой фигуры данного конкретного типа:

Left - горизонтальный отступ (Х-координата) и Тор - вертикальный отступ (Y-координата) от верхнего левого угла листа Excel, выраженные в точках (пикселях). В дальнейшем будем их называть координатами начала фигуры. И, наконец, два последних числовых параметра метода AddShape означают ширину Width и высоту Height фигуры, также выраженные в пикселях.

• Для удобства дальнейшего выбора каждому объекту присвоено собственное имя - свойство Name. Таким образом, к примеру, третья строка кода процедуры ChieldHouse означает, что графический объект «Крыша» представляет собой равнобедренный треугольник, начало которого (вершина верхнего левого угла описывающего прямоугольника) отстоит на 94 пикселя вправо и 52 пикселя вниз от верхнего левого угла листа Excel, длина основания треугольника равна 148, а высота - 50 пикселей.

• Последовательность вывода фигур имеет значение, так как фигура, выведенная позже, перекрывает предыдущую при наложении, т.е., если сначала вывести «Окошко», а потом «Крышу», то «Окошка» видно не будет. Прозрачность контуров предыдущих фигур связана со свойством Visible - по умолчанию прозрачность не установлена и Visible=msoTrue. Чтобы установить прозрачность, нужно установить Visible=msoFalse;

• Графический объект «Фундамент» создан методом AddLine(xl, yl, х2, у2), который используется для черчения отрезков прямой, где xl, yl -координаты одного конца, а х2, у2 - координаты другого конца отрезка. При построении линий неважно, какой из концов отрезка считать первым, а какой - вторым.

• После того, как графические фигуры созданы, можно задавать их свойства. Для установки характеристик фигуры используются последовательности свойств и методов, примененных друг за другом (отделяются точкой), начиная с исходного объекта-фигуры. Это необходимо потому, что в объектной модели VBA некоторые свойства применимы только к специальным объектам, созданным системой. Например, для окраски фигуры каким-либо цветом можно использовать следующую последовательность:

Объект.Fill.ForeColor.SchemeColor = НомерЦвета

При этом свойство Fill (заполнение цветом, заливка) порождает (выдает в качестве своего значения) системный объект FillFormat, имеющий свойства для задания цвета заливки (свойство ForeColor), типа штриховки узором (свойство Patterned), прозрачности заливки (свойство Visible) и другие. В свою очередь, к возвращаемому значению свойства ForeColor применяется свойство SchemeColor выбора конкретного цвета по номеру. Некоторые номера цветов: 1- белый, 2- красный, 3- зеленый, 4 -синий, 5- желтый, 6-лиловый, 7- бирюзовый, 8 - черный, 16- коричневый и т.д. Подробности о цветах заливки можно посмотреть по справке Color Constans, а по типам узоров - Patterned Method.

• Аналогично, свойство Line порождает объект LineFormat, свойства которого позволяют установить цвет (свойство ForeColor), толщину (свойство Weight), тип граничных (контурных) линий исходной фигуры (свойство DashStyle) и другие. Как отмечалось выше, все объекты и их свойства просматриваются также через Object Browser.

Упражнение

На листе Excel программно нарисовать и раскрасить фигуру. Внешний круг имеет радиус 100 пикселей.

Не нашли, что искали? Воспользуйтесь поиском: