Resumen
Puede realizar una llamada Windows API (interfaz de programación de aplicaciones) a una DLL de Microsoft Windows (biblioteca de vínculos dinámicos) para obtener y establecer la posición actual del cursor. La posición actual se puede obtener mediante la función GetCursorPos en USER32.DLL.
Más información
Microsoft Excel no tiene la funcionalidad integrada para obtener o establecer la posición del cursor. Sin embargo, puede usar la instrucción Declare en una macro Microsoft Excel Visual Basic para Aplicaciones para llamar a una función Windows Microsoft para obtener acceso a la posición actual. También puede usar otra función SetCursorPos para establecer la posición del cursor. La función SetCursorPos se puede usar en una estructura en bucle para mover el cursor por la pantalla.
Microsoft proporciona ejemplos de procedimientos Visual Basic para Aplicaciones solo para ilustración, sin garantía expresa o implícita, incluidas, entre otras, las garantías implícitas de comerciabilidad y/o idoneidad para un fin determinado. Los Visual Basic de este artículo se proporcionan "tal como están" y Microsoft no garantiza que se puedan usar en todas las situaciones. Aunque los profesionales de soporte técnico de Microsoft pueden ayudar a explicar la funcionalidad de una macro en particular, no modificarán estos ejemplos para proporcionar funcionalidades adicionales, ni le ayudarán a crear macros para satisfacer sus necesidades específicas. Si tiene una experiencia de programación limitada, es posible que desee consultar uno de los proveedores de soluciones de Microsoft. Los proveedores de soluciones ofrecen una amplia gama de servicios basados en tarifas, incluida la creación de macros personalizadas. Para obtener más información sobre los proveedores de soluciones de Microsoft, llame al Servicio de información al cliente de Microsoft al (800) 426-9400.
EJEMPLOS
-
Escriba el código siguiente en un módulo nuevo:
' Access the GetCursorPos function in user32.dll
Declare Function GetCursorPos Lib "user32" _
(lpPoint As POINTAPI) As Long
' Access the GetCursorPos function in user32.dll
Declare Function SetCursorPos Lib "user32" _
(ByVal x As Long, ByVal y As Long) As Long
' GetCursorPos requires a variable declared as a custom data type
' that will hold two integers, one for x value and one for y value
Type POINTAPI
X_Pos As Long
Y_Pos As Long
End Type
' Main routine to dimension variables, retrieve cursor position,
' and display coordinates
Sub Get_Cursor_Pos()
' Dimension the variable that will hold the x and y cursor positions
Dim Hold As POINTAPI
' Place the cursor positions in variable Hold
GetCursorPos Hold
' Display the cursor position coordinates
MsgBox "X Position is : " & Hold.X_Pos & Chr(10) & _
"Y Position is : " & Hold.Y_Pos
End Sub
' Routine to set cursor position
Sub Set_Cursor_Pos()
' Looping routine that positions the cursor
For x = 1 To 480 Step 20
SetCursorPos x, x
For y = 1 To 40000: Next
Next x
End Sub -
Haga clic en cualquier lugar dentro del texto de la Get_Cursor_Pos rutina y presione la tecla F5 para ejecutar la Get_Cursor_Pos macro.
Aparecerá un cuadro de mensaje con las coordenadas de la posición actual del puntero del mouse. -
Haga clic en cualquier lugar dentro del texto de la Set_Cursor_Pos rutina y presione la tecla F5 para ejecutar la Set_Cursor_Pos macro.
El cursor se moverá diagonalmente hacia abajo por la pantalla.
