Определение координат точки графика - на листе.

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Определение координат точки графика - на листе. (Макросы/Sub)

Grell

Дата: Среда, 15.03.2017, 09:33 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 113

Репутация: 0 ±

Замечаний: 60% ±

Excel 2007

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

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

Как макросом определить - какие координаты точка.5 имеет на листе?

К сообщению приложен файл: 2345.xls (37.0 Kb)

Ответить

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

Дата: Среда, 15.03.2017, 18:37 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 113

Репутация: 0 ±

Замечаний: 60% ±

Excel 2007

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

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

Ответить

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

Ответить

cerber412

Дата: Среда, 15.03.2017, 21:52 | Сообщение № 5

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 131

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Roman777, похоже - это то, что нужно.
Спасибо большое.

Ответить

Определение координат точки графика - на листе. (Макросы/Sub)

Страница 1 из 1
1