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

Элементы

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

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

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

 

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

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

ActiveS h eet.Ovals. Add 0, 0, 72, 72

Объект Rectangle

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

 

Объект Rectangles

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

 

Пример 1

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

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

Рисунок 8.3. - Пользовательская форма UserForm1

 

Результат

 

Рисунок 8.4. - Результат программы «Line»

Программа

VBA

 

Private Sub CommandButton1_Click()

ActiveSheet.Lines.Delete

ActiveSheet.Rectangles.Delete

ActiveSheet.Lines.Add 20, 20, 220, 20

ActiveSheet.Lines.Add 20, 40, 20, 140

ActiveSheet.Lines.Add 20, 180, 200, 110

ActiveSheet.Rectangles.Add 140, 100, 401, 50

ActiveSheet.Rectangles.Add 160, 50, 240, 100

End Sub

 

Пример 2

 

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

Интерфейс c пользователем реализован в виде форм Form 1

 

Рисунок 8.5. - Интерфейс программы «Circle»

 

Результат

Рисунок 8.6. - Результат программы «Circle»

 

 

Программа

 

VBA

Private Sub CommandButton1_Click()

ActiveSheet.Ovals.Delete

ActiveSheet.Ovals.Add 50, 25, 50, 50

ActiveSheet.Ovals.Add 50, 25, 50, 50

ActiveSheet.Ovals.Add 100, 50, 50, 100

ActiveSheet.Ovals.Add 30, 150, 180, 50

End Sub

 

Варианты заданий

 

1.Составить программу построения осей координат x и y и фигуры в соответствии с номером вашего варианта. Координаты вершин фигуры выбрать самостоятельно.

2. Набрать программу.

1		4
2		5
3		6
7		12
8		13
9		14
10			15
11			16

 

Практическая работа № 10

Тема: График функций

Пример

Программа «График» с помощью цикла со счетчиком и метода Ovals. Add строит график функции y=ax² + bx + c (a=1, b=-2, c=-3). Кроме самого графика с помощью метода Lines. Add изображаются оси координат.

Интерфейс программы реализуется на активном листе в виде формы размером 300х300:

 

Рисунок 10.1. - Интерфейс программы «График»

 

Программа

VBA

Private Sub CommandButton1_Click1()

ActiveSheet.Ovals.Delete

ActiveSheet.Lines.Delete

For X= -2 To 4 step 0.1

Y=X^2 –2*X-3

ActiveSheet.Ovals.Add 112+40*X, 150-30*Y, 5, 5

Next X

ActiveSheet.Lines.Add 0, 150, 300, 150

ActiveSheet.Lines.Add 112, 0, 112, 300

End Sub

 

Вычисление сдвигов и масштабов

S_y=150            M_y=30

S_x=    M_x=

Варианты заданий

 

1. Составить программу построения графика функции у=f(x) на отрезке [a, b] при изменении x с шагом dx (согласно номеру Вашего варианта). Масштабы графика по осям координат выбрать самостоятельно.

2. Выполнить построение графика.

 

№ вар.	Y=f(x)	a	b	dx
1	2	3	4	5
1		0	2	0,05
2		-3	1,5	0,1
3		-1,5	1,5	0,05
4		-2	2	0,1
5		-3,5	3,5	0,1
6		-1,5	1,5	0,05
7		-4	1	0,1
8		-3	3	0,1
9		-1,9	1,9	0,1
10		-1	6	0,1
11		-3	3	0,1
12		-1,8	1,8	0,05
13		-2	2	0,1
14		-1,5	0,5	0,04
15		-3	6	0,1