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

Вход

Регистрация

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

 

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

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

Excel 2007
Добрый вечер, уважаемые программисты.
Помогите решить непростую техническую задачу.

Есть макрос определяющий координаты точки графика - в области построения этого графика.

Подскажите, как заставить макрос - определить координаты этой точки графика - не в области построения, а на всем листе книги?
К сообщению приложен файл: 18427.xls (48.0 Kb)
 
Ответить
СообщениеДобрый вечер, уважаемые программисты.
Помогите решить непростую техническую задачу.

Есть макрос определяющий координаты точки графика - в области построения этого графика.

Подскажите, как заставить макрос - определить координаты этой точки графика - не в области построения, а на всем листе книги?

Автор - Grell
Дата добавления - 17.03.2017 в 18:53
Roman777 Дата: Пятница, 17.03.2017, 20:04 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 980
Репутация: 127 ±
Замечаний: 0% ±

Excel 2007, Excel 2013
Grell, тут не долго править =):

[vba]
Код
Sub Макрос3()
    Dim r As Point
    Dim ch1 As Chart
    n& = 5 ' 5я точка
    ActiveSheet.ChartObjects ("Диаграмма 1").Activate
    Set ch1 = ActiveChart
    Set r = ch1.SeriesCollection(1).Points(n)
    MsgBox "y = " & r.Top & Chr(13) & "x = " & r.Left ' положение точки в области графика
    MsgBox "y1 = " & ch1.ChartArea.Top & Chr(13) & "x1 = " & ch1.ChartArea.Left 'положения области графика на листе
    Y# = ch1.ChartArea.Top + r.Top
    X# = ch1.ChartArea.Left + r.Left
    MsgBox "Y = " & Y & Chr(13) & "X = " & X 'видимо, это то, что вы ищите =)
End Sub
[/vba]


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

Сообщение отредактировал Roman777 - Пятница, 17.03.2017, 20:17
 
Ответить
СообщениеGrell, тут не долго править =):

[vba]
Код
Sub Макрос3()
    Dim r As Point
    Dim ch1 As Chart
    n& = 5 ' 5я точка
    ActiveSheet.ChartObjects ("Диаграмма 1").Activate
    Set ch1 = ActiveChart
    Set r = ch1.SeriesCollection(1).Points(n)
    MsgBox "y = " & r.Top & Chr(13) & "x = " & r.Left ' положение точки в области графика
    MsgBox "y1 = " & ch1.ChartArea.Top & Chr(13) & "x1 = " & ch1.ChartArea.Left 'положения области графика на листе
    Y# = ch1.ChartArea.Top + r.Top
    X# = ch1.ChartArea.Left + r.Left
    MsgBox "Y = " & Y & Chr(13) & "X = " & X 'видимо, это то, что вы ищите =)
End Sub
[/vba]

Автор - Roman777
Дата добавления - 17.03.2017 в 20:04
Grell Дата: Пятница, 17.03.2017, 20:26 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 113
Репутация: 0 ±
Замечаний: 60% ±

Excel 2007
Roman777, спасибо. Работает !!!
 
Ответить
СообщениеRoman777, спасибо. Работает !!!

Автор - Grell
Дата добавления - 17.03.2017 в 20:26
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Определение координат точки графика - на Листе книги. (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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