- 26 Out 2018 às 11:54
#38129
Bom dia, gostaria de saber como fazer as coordenadas X aparecer em A1 e Y aparecer em A2
Declare Function GetCursorPos Lib "user32" (lpPoint As PointAPI) As Long
Type PointAPI
X_Pos As Long
Y_Pos As Long
End Type
Sub Get_Cursor_Pos()
Dim Hold As PointAPI
GetCursorPos Hold
MsgBox "X Position is : " & Hold.X_Pos & Chr(10) & "Y Position is : " & Hold.Y_Pos
End Sub
Declare Function GetCursorPos Lib "user32" (lpPoint As PointAPI) As Long
Type PointAPI
X_Pos As Long
Y_Pos As Long
End Type
Sub Get_Cursor_Pos()
Dim Hold As PointAPI
GetCursorPos Hold
MsgBox "X Position is : " & Hold.X_Pos & Chr(10) & "Y Position is : " & Hold.Y_Pos
End Sub
