Синтаксис – object.Add (x1, y1, x2, y2)

Элементы

Add метод имеет следующий квалификатор object и поименованные аргументы:

Object – обязательный. Line – объект.

X1,Y1 – обязательные. Определяет позицию первой координаты объекта, в точках (1/72 дюйма), относительно верхнего левого угла ячейки A1 или верхнего левого угла диаграммы.

X2, Y2 - обязательные. Определяет позицию второй координаты объекта, в точках относительно верхнего левого угла ячейки A1 или верхнего левого угла диаграммы.

Пример применения метода Add

Этот пример создает новую линию со стрелкой направленной в верхний левый угол. Обратите внимание на порядок точек – точка со стрелкой во второй координате

With ActiveSheet.Lines.Add (80, 80, 10, 10)

. ArrowHeadStyle=xlOpen

. Border.LineStyle=x1Dot

End with

Метод Delete

Применяется к Lines, Ovals, Rectangles

Описание – удаляет объект

Синтаксис – object Delete

Элементы

Object – обязательный. Объект, к которому применяется этот метод

Пример применения метода Delete

Этот пример удаляет овал номер 1 с активного листа

ActiveSheet.Ovals(1).Delete

Объект Oval

Описание – овальный графический объект, на диаграмме или рабочем листе (Рисунок 8.2.).

Рисунок 8.2. - Овальный графический объект

Объект – Ovals

Описание – коллекция объектов oval

Метод Add

Применяется к Ovals, Rectangles

Описание – создает новый рисованный объект, используя координаты в точках (1/72 дюйма). Тип объекта зависит от коллекции в которой вы вызвали Add. Например, Rectangles. Add создает новый прямоугольник, Ovals. Add создает новый овал.

Синтаксис

Object.Add (left, top, width, height)

Элементы

Add метод имеет следующий квалификатор object и поименованные аргументы.

Object - обязательный. Объект, к которому применяется этот метод left, top – обязательные. Определяет начальные координаты нового объекта в точках (1/72 дюйма), относительно левого верхнего угла ячейки A1 на рабочем листе или левого верхнего угла диаграммы.

Width, height – обязательные. Определяют начальный размер нового объекта в точках (1/72 дюйма).

Пример применения метода Add.

Этот пример добавляет новый овал.

ActiveSheet.Ovals.Add 0, 0, 72, 72

Объект Rectangle

Описание – прямоугольный графический объект на диаграмме или рабочем листе

Объект Rectangles

Описание – коллекция объектов Rectangle.

Пример 1

Программа «Line» демонстрирует использование графического объектов.

Интерфейс с пользователем реализован в виде формы Form1 (Рисунок 8.3.).