Logga in med Microsoft
Logga in eller skapa ett konto.
Hej,
Välj ett annat konto.
Du har flera konton
Välj det konto som du vill logga in med.

Sammanfattning

Du kan ringa Windows API-anrop (application programming interface) till ett Microsoft Windows DLL-bibliotek (dynamic-link Library) för att hämta och ställa in den aktuella markörpositionen. Du kan få den aktuella positionen genom att använda funktionen GetCursorPos i USER32.DLL.

Mer information

Microsoft Excel har inte de inbyggda funktionerna för att få eller ställa in markörens position. Du kan dock använda Declare-satsen i ett Microsoft Excel Visual Basic for Applications-makro för att anropa en Microsoft Windows-funktion för att komma åt den aktuella positionen. Du kan också använda en annan funktion Som SetCursorPos för att ställa in markörens position. Funktionen SetCursorPos kan användas i en slinga för att flytta markören över skärmen.


Microsoft tillhandahåller exempel på Visual Basic for Applications endast för illustrationer, utan garantier som vare sig uttrycks eller underförstådda, inklusive, men inte begränsat till, underförstådda garantier om säljbarhet och/eller lämplighet för ett visst ändamål. De Visual Basic i den här artikeln anges "som är" och Microsoft garanterar inte att de kan användas i alla situationer. Microsofts supportpersonal kan hjälpa dig att förklara funktionaliteten i ett visst makro, men de ändrar inte de här exemplen för att ge ytterligare funktioner, och de hjälper inte heller dig att skapa makron efter dina specifika behov. Om programmeringsupplevelsen är begränsad kan du kontakta någon av Microsofts lösningsleverantörer. Lösningsleverantörer erbjuder ett brett utbud av avgiftsbaserade tjänster, inklusive att skapa egna makron. Mer information om Microsoft-lösningsleverantörer finns på Microsofts kundtjänst (800) 426-9400.

EXEMPEL

  1. Skriv in följande kod i en ny modul:

    ' 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. Klicka någonstans i texten på Get_Cursor_Pos rutin och tryck på F5-tangenten för att köra Get_Cursor_Pos makrot.

    Ett meddelande visas med koordinaterna för muspekarens aktuella position.

  3. Klicka någonstans i texten på Set_Cursor_Pos rutinen och tryck på F5-tangenten för att köra Set_Cursor_Pos makrot.

Markören flyttas diagonalt nedåt över skärmen.

Behöver du mer hjälp?

Utöka dina kunskaper
Utforska utbildning
Få nya funktioner först
Anslut till Microsoft Insiders

Hade du nytta av den här informationen?

Hur nöjd är du med språkkvaliteten?
Vad påverkade din upplevelse?

Tack för din feedback!

×