none
Como fazer as coordenadas X e Y aparecer em A1 e A2 RRS feed

  • Pergunta

  • 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


    • Editado ArtesF sexta-feira, 26 de outubro de 2018 14:23
    sexta-feira, 26 de outubro de 2018 14:04

Todas as Respostas

  • Olá ArtesF

    Basta você alterar o método Get_Cursor_Pos para:

    Sub Get_Cursor_Pos()
     
      Dim Hold As PointAPI
      GetCursorPos Hold
      Range("A1").Value = Hold.X_Pos
      Range("A2").Value = Hold.Y_Pos
      
    End Sub
    

    O "problema" agora é você definir quando isso vai acontecer, pois o Excel não reconhece os eventos de mouse.

    Mas você poderia testar colocando esse mesmo trecho dentro do evento SelectionChange por exemplo.

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        Dim Hold As PointAPI
        GetCursorPos Hold
        Range("A1").Value = Hold.X_Pos
        Range("A2").Value = Hold.Y_Pos
    End Sub
    

    Dessa forma, a cada vês que você alterasse a célula selecionada com o Mouse o valor de x e y serão atualizados.

    Abraço!


    Natan

    sexta-feira, 26 de outubro de 2018 15:18
  •  Muito obrigado amigo!!
    sexta-feira, 26 de outubro de 2018 15:25