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

Вход

Регистрация

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

 

= Мир MS Excel/Определение координат точки графика - на листе. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Определение координат точки графика - на листе. (Макросы/Sub)
Определение координат точки графика - на листе.
Grell Дата: Среда, 15.03.2017, 09:33 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 113
Репутация: 0 ±
Замечаний: 60% ±

Excel 2007
Здравствуйте, уважаемые программисты. Помогите решить непростой вопрос.

В книге расположена точечная диаграмма.
Точка.5 - этого графика - на диаграмме имеет координаты (3;4)

Как макросом определить - какие координаты точка.5 имеет на листе?
К сообщению приложен файл: 2345.xls (37.0 Kb)
 
Ответить
СообщениеЗдравствуйте, уважаемые программисты. Помогите решить непростой вопрос.

В книге расположена точечная диаграмма.
Точка.5 - этого графика - на диаграмме имеет координаты (3;4)

Как макросом определить - какие координаты точка.5 имеет на листе?
Автор - Grell
Дата добавления - 15.03.2017 в 09:33
Roman777 Дата: Среда, 15.03.2017, 11:17 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 980
Репутация: 127 ±
Замечаний: 0% ±

Excel 2007, Excel 2013
Grell,
Например, вот так:
[vba]
Код
Sub Макрос2()
    Dim r As Series
    n& = 5 ' 5я точка
    ActiveSheet.ChartObjects("Диаграмма 1").Activate
    Set r = ActiveChart.SeriesCollection(1)
    MsgBox "y = " & r.Values(n) & Chr(13) & "x = " & r.XValues(n)
End Sub
[/vba]

Много чего не знаю!!!!

Сообщение отредактировал Roman777 - Среда, 15.03.2017, 20:56
 
Ответить
СообщениеGrell,
Например, вот так:
[vba]
Код
Sub Макрос2()
    Dim r As Series
    n& = 5 ' 5я точка
    ActiveSheet.ChartObjects("Диаграмма 1").Activate
    Set r = ActiveChart.SeriesCollection(1)
    MsgBox "y = " & r.Values(n) & Chr(13) & "x = " & r.XValues(n)
End Sub
[/vba]
Автор - Roman777
Дата добавления - 15.03.2017 в 11:17
Grell Дата: Среда, 15.03.2017, 18:37 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 113
Репутация: 0 ±
Замечаний: 60% ±

Excel 2007
Roman777, вы меня не совсем правильно поняли.
Определить координаты точки на графике - я могу просто посмотрев на таблицу с исходными данными.

Я имел ввиду - координаты этой точки не на графике, а на листе.
На листе - есть система координат. Например кажда ячейка, каждая автофигура - на листе - имеют свои координаты.
 
Ответить
СообщениеRoman777, вы меня не совсем правильно поняли.
Определить координаты точки на графике - я могу просто посмотрев на таблицу с исходными данными.

Я имел ввиду - координаты этой точки не на графике, а на листе.
На листе - есть система координат. Например кажда ячейка, каждая автофигура - на листе - имеют свои координаты.
Автор - Grell
Дата добавления - 15.03.2017 в 18:37
Roman777 Дата: Среда, 15.03.2017, 20:55 | Сообщение № 4
Группа: Проверенные
Ранг: Ветеран
Сообщений: 980
Репутация: 127 ±
Замечаний: 0% ±

Excel 2007, Excel 2013
Grell, Тогда так:
[vba]
Код
Sub Макрос3()
    Dim r As Point
    n& = 5 ' 5я точка
    ActiveSheet.ChartObjects("Диаграмма 1").Activate
    Set r = ActiveChart.SeriesCollection(1).Points(n)
    MsgBox "y = " & r.Top & Chr(13) & "x = " & r.Left
End Sub
[/vba]

Много чего не знаю!!!!

Сообщение отредактировал Roman777 - Среда, 15.03.2017, 20:56
 
Ответить
СообщениеGrell, Тогда так:
[vba]
Код
Sub Макрос3()
    Dim r As Point
    n& = 5 ' 5я точка
    ActiveSheet.ChartObjects("Диаграмма 1").Activate
    Set r = ActiveChart.SeriesCollection(1).Points(n)
    MsgBox "y = " & r.Top & Chr(13) & "x = " & r.Left
End Sub
[/vba]
Автор - Roman777
Дата добавления - 15.03.2017 в 20:55
cerber412 Дата: Среда, 15.03.2017, 21:52 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 131
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Roman777, похоже - это то, что нужно.
Спасибо большое.
 
Ответить
СообщениеRoman777, похоже - это то, что нужно.
Спасибо большое.
Автор - cerber412
Дата добавления - 15.03.2017 в 21:52
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Определение координат точки графика - на листе. (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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