Yhteenveto
Voit soittaa Windows -ohjelmointirajapinnan (application programming interface) Microsoft Windows DLL:lle (dynamic-link Library), jotta saat ja määrittää kohdistimen nykyisen sijainnin. Nykyinen sijainti saadaan käyttämällä GetCursorPos-funktiota USER32.DLL.
Lisätietoja
Microsoft Excel ei ole valmiina toimintoa kohdistimen sijainnin saaminen tai sijoittaminen. Voit kuitenkin käyttää Declare-lauseketta Microsoft Excel Visual Basic for Applications, kun haluat kutsua Microsoft Windows -funktion käyttämään nykyistä sijaintia. Voit määrittää kohdistimen sijainnin myös käyttämällä toista SetCursorPos-funktiota. SetCursorPos-funktiota voi käyttää silmukkarakenteessa kohdistimen siirtämiseen näytöllä.
Microsoft tarjoaa esimerkkejä Visual Basic for Applications kuvitustavoista ilman nimenomaisia tai oletettuja takuita, mukaan lukien mutta ei rajoittuen oletettuihin takuihin, jotka koskevat soveltuvuutta kaupankäynnin tarkoituksessa ja/tai soveltuvuutta tiettyyn tarkoitukseen. Tämän Visual Basic ohjeissa annetaan "kuten on", eikä Microsoft takaa, että niitä voidaan käyttää kaikissa tilanteissa. Vaikka Microsoftin tukihenkilöt voivat auttaa selittämään tietyn makron toiminnot, he eivät muokkaa näitä esimerkkejä lisätoimintojen tarjoamiseksi eivätkä ne auta sinua rakentamaan makroja tarpeisiisi. Jos ohjelmointikokemus on rajallinen, voit kysyä neuvoa Microsoftin ratkaisuntarjoajilta. Palveluntarjoajat tarjoavat laajan valikoiman maksullisia palveluja, kuten mukautettujen makrojen luomisen. Jos haluat lisätietoja Microsoft-ratkaisuntarjoajista, soita Microsoftin asiakaspalveluun numeroon (800) 426-9400.
ESIMERKKEJÄ
-
Kirjoita seuraava koodi uuteen moduuliin:
' 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 -
Napsauta mitä tahansa kohtaa Get_Cursor_Pos ja paina F5-näppäintä, jotta voit suorittaa Get_Cursor_Pos makron.
Näkyviin tulee viestiruutu, jossa näkyvät hiiren osoittimen nykyisen sijainnin koordinaatit. -
Napsauta mitä tahansa kohtaa Set_Cursor_Pos ja paina F5-näppäintä, jotta voit suorittaa Set_Cursor_Pos makron.
Kohdistin siirtyy vinosti alaspäin näytöllä.
