Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Создание окружностей с центром в точках, заданных на графике
 
#1
06.04.2013 18:25:51
Нужно построить окружности, центр которых совпадает с точками на графике и каждая последующая окружность изменяет свой диаметр на 1. Возможно ли задать или построить такие окружности с помощью vba?
Изменено: linda_m - 06.04.2013 18:51:01
 
 
 
#2
06.04.2013 18:35:53
Да можно и без VBA :) Задайте параметры маркера точки: нет заливки, тип: окружности, размер: до 72 (в файле - максимальный), цвет линии маркера, тип линии маркера.
Можно задать индивидуально для каждой точки.
 
 
 
#3
06.04.2013 18:39:51
а как увеличить диаметр каждой последующей окружности на 1?
 
 
 
#4
06.04.2013 18:41:25
А вот это
Код
If -4 <= x <= 4 Then
неправильно, прочитайте
http://www.cyberforum.ru/visual-basic/thread652156.html#post3450742
 
 
 
#5
06.04.2013 19:18:41
linda_m, окружность задается параметрическим уравнением:
X=a+R*Cos(A)
Y=b+R*Sin(A)
здесь: a и b - координаты центра; R- радиус; (А) - 0<=A<=2*Pi
Напишите функцию, вычисляющую X и Y и стройте график. Что б на графике была окружность, а не овал - размерность по осям должна быть в одном масштабе.
 
 
 
#6
06.04.2013 20:55:06
Цитата
linda_m пишет:
а как увеличить диаметр каждой последующей окружности на 1?
Можете дописать к процедуре построения графика или запускать отдельно:
Код
Sub Макрос1()

Dim i&, j&
With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1)
    .MarkerBackgroundColorIndex = xlNone
    .MarkerStyle = xlCircle
    j = 20      'размер первой окружности
    For i = 1 To .Points.Count
        .Points(i).MarkerSize = j
        j = j + 1
    Next
End With
End Sub
 
 
 
#7
06.04.2013 21:26:08
Ещё один вариант без макросов с пузырьковой диаграммой

Немного изменила файл, чтобы менялся именно диаметр окружностей
Изменено: Pelena - 06.04.2013 21:38:32
 
 
 
#8
06.04.2013 21:41:39
Pelena,
 
 
 
#9
07.04.2013 13:06:11
Казанский, этот макрос для любых значений функции подходит? пробовала увеличить промежуток х [-10;10], окружности строятся только до середины графика
 
 
 
#10
07.04.2013 17:21:16
Макрос проходит по всем точам ряда (For i = 1 To .Points.Count).
Попробуйте пройти программу по шагам (F8), одновременно глядя на график.

Цитата
linda_m пишет:
пробовала увеличить промежуток х [-10;10]
А шаг изменили или он тем же остался? Макрос в таком виде может работать с рядом, в котором не более 53 точек. Для 54-й точки размер получается 73 и возникает ошибка (см. пост #2).
 
 
 
#11
07.04.2013 18:47:29
Казанский, да, шаг тем же остался
 
 
 
Страницы: 1
Читают тему
Наверх