Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Построение импровизированной Диаграммы - полилинией - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Построение импровизированной Диаграммы - полилинией (Макросы/Sub)
Построение импровизированной Диаграммы - полилинией
yl3d Дата: Вторник, 28.11.2017, 00:50 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 46
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Доброе утро, уважаемые знатоки ВБА.
Помогите разобраться с хитрым непростым вопросом.

На листе находится табличка с числами.
Рядом с ней - находится диапазон J10:T18 - выполненный как импровизированная диаграмма - в которой есть псевдо-Ось Х и псевдо-Ось Y/
Эти оси - на самом деле - обычные диапазоны, заполненные числами (J19:T19 - это ось Х, I10:I18 - это ось Y).

Как макросом - построить в диапазоне J10:T18 - импровизированную диаграмму, выполненную Полилинией ?
К сообщению приложен файл: 35676868.xls(33Kb)
 
Ответить
СообщениеДоброе утро, уважаемые знатоки ВБА.
Помогите разобраться с хитрым непростым вопросом.

На листе находится табличка с числами.
Рядом с ней - находится диапазон J10:T18 - выполненный как импровизированная диаграмма - в которой есть псевдо-Ось Х и псевдо-Ось Y/
Эти оси - на самом деле - обычные диапазоны, заполненные числами (J19:T19 - это ось Х, I10:I18 - это ось Y).

Как макросом - построить в диапазоне J10:T18 - импровизированную диаграмму, выполненную Полилинией ?

Автор - yl3d
Дата добавления - 28.11.2017 в 00:50
buchlotnik Дата: Вторник, 28.11.2017, 01:32 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3433
Репутация: 921 ±
Замечаний: 0% ±

2010, 2013, 2016 RUS / ENG
yl3d, а зачем это всё? какова конечная цель - почему не использовать просто точечную диаграмму с гладкими кривыми?
К сообщению приложен файл: 5527705.xls(40Kb)


"заступлюсь за Юрия" - публичный плевок в душу!
 
Ответить
Сообщениеyl3d, а зачем это всё? какова конечная цель - почему не использовать просто точечную диаграмму с гладкими кривыми?

Автор - buchlotnik
Дата добавления - 28.11.2017 в 01:32
yl3d Дата: Вторник, 28.11.2017, 12:13 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 46
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
buchlotnik, я не сказал в своем вопросе - про "простую точечную диаграмму" - ни единого слова.

Еще раз повторяю свой вопрос:

На листе находится табличка с числами.
Рядом с ней - находится диапазон J10:T18 - выполненный как импровизированная диаграмма - в которой есть псевдо-Ось Х и псевдо-Ось Y.
Эти оси - на самом деле - обычные диапазоны, заполненные числами (J19:T19 - это ось Х, I10:I18 - это ось Y).

Как макросом - построить в диапазоне J10:T18 - импровизированную диаграмму, выполненную Полилинией ?


Сообщение отредактировал yl3d - Вторник, 28.11.2017, 12:14
 
Ответить
Сообщениеbuchlotnik, я не сказал в своем вопросе - про "простую точечную диаграмму" - ни единого слова.

Еще раз повторяю свой вопрос:

На листе находится табличка с числами.
Рядом с ней - находится диапазон J10:T18 - выполненный как импровизированная диаграмма - в которой есть псевдо-Ось Х и псевдо-Ось Y.
Эти оси - на самом деле - обычные диапазоны, заполненные числами (J19:T19 - это ось Х, I10:I18 - это ось Y).

Как макросом - построить в диапазоне J10:T18 - импровизированную диаграмму, выполненную Полилинией ?

Автор - yl3d
Дата добавления - 28.11.2017 в 12:13
nilem Дата: Вторник, 28.11.2017, 13:45 | Сообщение № 4
Группа: Авторы
Ранг: Старожил
Сообщений: 1343
Репутация: 477 ±
Замечаний: 0% ±

Excel 2013
yl3d, привет
[vba]
Код
Sub ertert()
Dim x, r As Range, i&, hH&, hW&
Set r = Range("J19")
hH = r.Height / 2: hW = r.Width / 2
x = Range("B4").CurrentRegion.Value

With ActiveSheet.Shapes.BuildFreeform(msoEditingCorner, r.Offset(-x(1, 2) / 5, x(1, 1)).Left + hW, _
                    r.Offset(-x(1, 2) / 5, x(1, 1)).Top + hH)
    For i = 2 To UBound(x)
        .AddNodes msoSegmentCurve, msoEditingAuto, _
                  r.Offset(-x(i, 2) / 5, x(i, 1)).Left + hW, _
                  r.Offset(-x(i, 2) / 5, x(i, 1)).Top + hH
    Next i
    .ConvertToShape
End With
End Sub
[/vba]


Яндекс.Деньги 4100159601573
 
Ответить
Сообщениеyl3d, привет
[vba]
Код
Sub ertert()
Dim x, r As Range, i&, hH&, hW&
Set r = Range("J19")
hH = r.Height / 2: hW = r.Width / 2
x = Range("B4").CurrentRegion.Value

With ActiveSheet.Shapes.BuildFreeform(msoEditingCorner, r.Offset(-x(1, 2) / 5, x(1, 1)).Left + hW, _
                    r.Offset(-x(1, 2) / 5, x(1, 1)).Top + hH)
    For i = 2 To UBound(x)
        .AddNodes msoSegmentCurve, msoEditingAuto, _
                  r.Offset(-x(i, 2) / 5, x(i, 1)).Left + hW, _
                  r.Offset(-x(i, 2) / 5, x(i, 1)).Top + hH
    Next i
    .ConvertToShape
End With
End Sub
[/vba]

Автор - nilem
Дата добавления - 28.11.2017 в 13:45
yl3d Дата: Вторник, 28.11.2017, 14:30 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 46
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
nilem, ой...
Спасибо огромное.
 
Ответить
Сообщениеnilem, ой...
Спасибо огромное.

Автор - yl3d
Дата добавления - 28.11.2017 в 14:30
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Построение импровизированной Диаграммы - полилинией (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!