Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.05.2017, 12:21   #1
alex77755
Форумчанин
 
Аватар для alex77755
 
Регистрация: 14.02.2009
Сообщений: 753
По умолчанию Как пересчитать координаты точки диаграммы в координаты экрана.

методом тыка более-менее подогнал. Но ведь это не правильно!
Как правильно пересчитать координаты
Код:
Dim pt() As POINTAPI

    ActiveSheet.ChartObjects("Диаграмма 2").Activate
    Set q = ActiveChart.SeriesCollection(1).Points '(2) '.Select
    ReDim pt(1 To q.Count)
For i = 1 To q.Count
    Set w = ActiveChart.SeriesCollection(1).Points(i)
    pt(i).x = w.Left * 1.333 + ActiveSheet.ChartObjects("Диаграмма 2").Left * 1.333 + 30
    pt(i).y = w.Top * 1.333 + ActiveSheet.ChartObjects("Диаграмма 2").Top * 1.333 + 222
Next
поправил
помогу решить контрольные VB6, VBA (недорого)
Alex77755@mail.ru

Последний раз редактировалось alex77755; 19.05.2017 в 12:32.
alex77755 вне форума Ответить с цитированием
Старый 19.05.2017, 12:31   #2
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

думаю если поставить маркеры то можно взять:
х = Лефт.маркета+ширина.маркера/2
у = Топ.маркера + высота.маркера/2
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 19.05.2017, 12:36   #3
alex77755
Форумчанин
 
Аватар для alex77755
 
Регистрация: 14.02.2009
Сообщений: 753
По умолчанию

а чем координаты маркера отличаются от координат Points? это же координаты не экранной системе, а в диаграмме!
А координаты диаграммы в системе окна.
А окно в приложении
А уже приложение на экране
если приложение развернуто и окно развернуто, то более-менее попадает при изменении положения диаграммы.
И когда приложение в оконном режиме не на весь экран, а окно развернуто на всё приложение тоже попадает.
А вот если приложение развернуто, а окно не на все приложение, то не попадает.
По идее надо учитывать и координаты окна.
Пока не соображу как
помогу решить контрольные VB6, VBA (недорого)
Alex77755@mail.ru

Последний раз редактировалось alex77755; 19.05.2017 в 12:46.
alex77755 вне форума Ответить с цитированием
Старый 19.05.2017, 13:32   #4
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

не знаю, я просто предположил
не разбирался, потому-что геморрно и не очень интерсно...
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как найти координаты точки? BadCats Помощь студентам 1 10.03.2017 22:40
Преобразование трехмерных координат точки в двухмерные координаты экрана. SaMaLerO Общие вопросы Delphi 0 18.02.2014 00:21
как найти координаты точки на графике? Vladuk Общие вопросы Delphi 1 10.04.2012 00:13
Имеются координаты точки. Как проверить какого цвета соседние точки на форме? Rin Мультимедиа в Delphi 2 10.11.2009 22:47
Как в TChart получить координаты точки на графике? Влажимир Общие вопросы Delphi 2 07.04.2008 15:37