Povzetek

Če želite Windows in nastaviti trenutni položaj kazalca, lahko pokličete MICROSOFTOV API (programski vmesnik aplikacije) v Microsoft Windows DLL (dinamično povezovalna knjižnica). Trenutni položaj je mogoče pridobiti s funkcijo GetCursorPos v USER32.DLL.

Več informacij

Microsoft Excel nima vgrajene funkcionalnosti za količino kazalca ali nastavitev položaja kazalca. Vendar pa lahko uporabite izjavo Declare v makru Microsoft Excel VBA za priklic funkcije Microsoft Windows za dostop do trenutnega položaja. Uporabite lahko tudi drugo funkcijo NastaviCursorPos, da nastavite položaj kazalca. Funkcijo NastaviCursorPos lahko uporabite v strukturi zankanja, če želite premakniti kazalec čez zaslon.


Microsoft zagotavlja primere VBA postopkov samo za ilustracijo, brez garancije, izražene ali naznačene, vključno z, vendar ne omejeno na naznačena jamstva glede primernosti za prodajo ali telesno pripravljenost za določen namen. Ti Visual Basic v tem članku so na voljo »takšne, kot so«. Microsoft pa ne zagotavlja, da jih je mogoče uporabljati v vseh primerih. Medtem ko Microsoftovi strokovnjaki za podporo lahko razložijo delovanje določenega makra, teh primerov ne bodo spremenili in tako zagotovili dodane funkcionalnosti, prav tako pa vam ne bodo pomagali ustvariti makrov, ki bodo izpolnili vaše posebne potrebe. Če imate omejeno izkušnjo programiranja, se boste morda želeli posvetujte z enim od ponudnikov Microsoftovih rešitev. Ponudniki rešitev ponujajo številne storitve, ki temeljijo na stroških, vključno z ustvarjanjem makrov po meri. Če želite več informacij o ponudnikih Microsoftovih rešitev, pokličite Microsoftovo storitev za informacije o strankah na spletnem mestu (800) 426-9400.

PRIMERI

  1. V nov modul vnesite to kodo:

    ' 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
  2. Kliknite kjer koli v besedilu rutine Get_Cursor_Pos in pritisnite tipko F5, da zaženete Get_Cursor_Pos makro.

    Prikaže se okno s sporočilom z koordinatami trenutnega položaja kazalca miške.

  3. Kliknite kjer koli v besedilu rutine Set_Cursor_Pos in pritisnite tipko F5, da zaženete Set_Cursor_Pos makro.

Kazalec se bo diagonalno premaknil navzdol po zaslonu.

Ali potrebujete dodatno pomoč?

Razširite svoja znanja
Oglejte si izobraževanje

Vam je bila informacija v pomoč?

Kako ste zadovoljni s kakovostjo jezika?
Kaj je vplivalo na vašo izkušnjo?

Zahvaljujemo se vam za povratne informacije.

×