Как пересчитать координаты точки диаграммы в координаты экрана.

[alex77755]

методом тыка более-менее подогнал. Но ведь это не правильно!
Как правильно пересчитать координаты

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

поправил

[IgorGO]

думаю если поставить маркеры то можно взять:
х = Лефт.маркета+ширина.маркера/2
у = Топ.маркера + высота.маркера/2

[alex77755]

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

[IgorGO]

не знаю, я просто предположил
не разбирался, потому-что геморрно и не очень интерсно...