Riepilogo
È possibile effettuare una chiamata api Windows (application programming interface) a una DLL di Microsoft Windows (libreria a collegamento dinamico) per ottenere e impostare la posizione corrente del cursore. La posizione corrente può essere ottenuta usando la funzione GetCursorPos in USER32.DLL.
Ulteriori informazioni
Microsoft Excel non ha la funzionalità incorporata per ottenere o impostare la posizione del cursore. Tuttavia, è possibile usare l'istruzione Declare in una macro Microsoft Excel Visual Basic, Applications Edition per chiamare una funzione Windows Microsoft per accedere alla posizione corrente. È anche possibile usare un'altra funzione SetCursorPos per impostare la posizione del cursore. La funzione SetCursorPos può essere usata in una struttura a ciclo continuo per spostare il cursore sullo schermo.
Microsoft fornisce esempi di procedure Visual Basic, Applications Edition solo per illustrazione, senza garanzie espresse o implicite, incluse, ma non limitate alle garanzie implicite di esercentibilità e/o idoneità per uno scopo specifico. Le Visual Basic descritte in questo articolo sono fornite "così come sono" e Microsoft non garantisce che possano essere usate in tutte le situazioni. Anche se i professionisti del supporto tecnico Microsoft possono spiegare le funzionalità di una particolare macro, non modificheranno questi esempi per fornire funzionalità aggiuntive, né aiuteranno a creare macro in base alle specifiche esigenze. Se l'esperienza di programmazione è limitata, è possibile consultare uno dei provider di soluzioni Microsoft. I provider di soluzioni offrono un'ampia gamma di servizi a pagamento, tra cui la creazione di macro personalizzate. Per altre informazioni sui Provider di soluzioni Microsoft, chiamare il Servizio informazioni sul cliente Microsoft al numero (800) 426-9400.
ESEMPI
-
Digitare il codice seguente in un nuovo modulo:
' 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 -
Fare clic in un punto qualsiasi all'interno del testo della routine Get_Cursor_Pos e premere F5 per eseguire la macro Get_Cursor_Pos macro.
Verrà visualizzata una finestra di messaggio con le coordinate della posizione corrente del puntatore del mouse. -
Fare clic in un punto qualsiasi all'interno del testo della routine Set_Cursor_Pos e premere F5 per eseguire la macro Set_Cursor_Pos macro.
Il cursore si sposterà diagonalmente verso il basso sullo schermo.
