Координаты курсора мыши

[Goodwin]

Возможно ли через VBA (Excel 2007) определить положение курсора?

[SAS888]

Спомощью WinAPI возможно:
GetCursorPos - Возвращает текущую позицию курсора мыши (глобально).

Синтаксис объявления:

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

Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" _
(lpPoint As POINTAPI) As Long

Пример:

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

Type POINTAPI
    x As Long
    y As Long
End Type

Private Sub Command1_Click()
    Dim a As POINTAPI
    GetCursorPos a
    MsgBox  a.x & a.y
End Sub