Чем заменить ScaleMode в VBA????

[alex-lev9]

Собсно вопрос сформирован.
Для чего это нужно. Хочу постоянно контролировать позицию курсора мыши и сравнивать ее с координатами определенного столбца данных таблицы Excel. А поскольку измерения того и другого производятся в разных единицах, возникает резонный вопрос, как привести все к общему знаменателю.
Определение позиции курсора провожу при помощи Application.OnTime.

[GSerg]

Причём тут только scalemode?..
Проблема решена?

[alex-lev9]

Ё-моё! Так ведь это же я!
А если серьезно, то проблема так и не решена.
Координаты курсора мыши определить труда не составляет:

z = GetCursorPos(MousePos) - в пикселах

Границы ячейки - тем более:

X_min = Worksheets("Лист1").Range("G1").Left;
X_max = X_min + Worksheets("Лист1").Range("G1").Width - в пойнтах, насколько я понимаю.

А вот как узнать, что X_min < MousePos.x < X_max.

[alex-lev9]

Так все-таки, какие мысли бродят у смышленого народа по этому поводу?

[alibek]

Э... Это тонкий сарказм или я чего-то не понимаю?
If MousePos.x >= X_min And MousePos.x <= X_max Then ...

[GSerg]

alibek, переведи в экранные координаты columns(7).left

[alibek]

А...
Ну так, максимизировать клиентское окно, скрыть заголовки строк и столбцов

[alex-lev9]

Итак, подведем промежуточные итоги.
1) Определяю координаты курсора в текущий момент времени:
z = GetCursorPos(MousePos)

2) Определяю пределы изменения позиции курсора мыши (для начала по оси X), ограниченные слева
X_min = Columns(7).Left,
справа
X_max = Columns(7).Left + Columns(7).Width.

3) Перевожу X_min и X_max в пикселы
или MousePos.x и MousePos.y в пойнты.

4) Проверяю выполнение условия
MousePos.x > X_min And MousePos.x < X_max.

Так вот - меня напрягает пункт №3. Как правильно и корректно перевести пикселы в пойнты или пойнты в пикселы?
Клиентское окно развернуто, названий строк и столбцов нет.

Что касается подозрения в сарказме, то уверяю, что никого обидеть и в мыслях не держал.

[GSerg]

Подойдём к вопросу с другой стороны...

Код: Выделить всё

  Dim p As POINT, r As Object
 
  GetCursorPos p
 
  Set r = Windows(1).RangeFromPoint(p.x, p.y)
 
  If Not r Is Nothing Then
    If TypeOf r Is Excel.Range Then
      If r.Column = 7 Then
        '...
      End If
    End If
  End If

[alex-lev9]

Огромнейшее спасибо. Подошло как в лучших домах Парижа и Жмеринки. Прям то, что нужно. Еще раз БОЛЬШОЕ СПАСИБО