¿Cómo obtener las coordenadas del mouse en VBA? Muy sencillo.
Declarar función GetCursorPos Lib "user32" (lpPoint como POINTAPI) durante el tiempo
Escriba POINTAPI
X durante el tiempo
Y durante el tiempo
Tipo de fin
Función pública getmouse_x_y() como POINTAPI
GetCursorPos getmouse_x_y
Función de fin
sub prueba()
'call getmouse_x_ y 'call "getmouse_x_y"'.y 'Llamar a "obtener procedimiento de coordenadas del mouse" (asumiendo que proporciona un procedimiento/programa llamado getmouse_x_y)
if getmouse_x_y.x>100 y getmouse_x_y.y> 100 entonces... 'Ejecutar un proceso/programa basado en el valor actual de coordenadas del mouse devuelto
...
End sub
p>.