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

Вход

Регистрация

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

 

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

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

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

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

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

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

Как макросом - построить в диапазоне J10:T18 - импровизированную диаграмму, выполненную Полилинией ?
Автор - yl3d
Дата добавления - 28.11.2017 в 00:50
buchlotnik Дата: Вторник, 28.11.2017, 01:32 | Сообщение № 2
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация: 929 ±
Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG
yl3d, а зачем это всё? какова конечная цель - почему не использовать просто точечную диаграмму с гладкими кривыми?
К сообщению приложен файл: 5527705.xls (39.5 Kb)
 
Ответить
Сообщениеyl3d, а зачем это всё? какова конечная цель - почему не использовать просто точечную диаграмму с гладкими кривыми?
Автор - buchlotnik
Дата добавления - 28.11.2017 в 01:32
yl3d Дата: Вторник, 28.11.2017, 12:13 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 66
Репутация: 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
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
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
Группа: Пользователи
Ранг: Участник
Сообщений: 66
Репутация: 0 ±
Замечаний: 0% ±

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

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