Gerald는 워크 시트의 그림 위로 마우스를 이동하면 마우스 포인터가 십자 모양이라고 말합니다. 그는 VBA를 사용하여 마우스를 클릭 할 때 십자 좌표를 어떻게 결정할 수 있는지 알고 싶어합니다.

Excel에서는 워크 시트에 일반 그림으로 삽입 된 그래픽에서 마우스 포인터의 좌표를 가져올 수 없습니다 (VBA를 사용하더라도). 컨트롤 도구 상자에서 이미지 개체를 사용하여 그림을 삽입하면 관용도가 상당히 높아집니다. 실제로 다음과 같이 MouseDown 이벤트 핸들러를 사용하여 좌표를 결정할 수 있습니다.

Private Sub Image1_MouseDown(ByVal Button As Integer, _   ByVal Shift As Integer, ByVal X As Single, _   ByVal Y As Single)

MsgBox X & ", " & Y End Sub

이 코드는 이미지 이름이 Image1이라고 가정합니다. 유사한 코드를 사용하여 상태 표시 줄에 실시간으로 커서 좌표를 표시 할 수 있습니다.

Private Sub Image1_MouseMove(ByVal Button As Integer, _   ByVal Shift As Integer, ByVal X As Single, _   ByVal Y As Single)

Application.StatusBar = Round(X, 0) & "," & Round(Y, 0)

End Sub

이러한 이벤트 처리기 중 하나 (또는 ​​둘 다)는 분명히 Image1과 연결되어 있으므로 해당 개체의 코드 창에 추가해야합니다.

_ 참고 : _

이 페이지 (또는 ExcelTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶다면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.

link : / excelribbon-ExcelTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요].

_ExcelTips_는 비용 효율적인 Microsoft Excel 교육을위한 소스입니다.

이 팁 (3421)은 Microsoft Excel 97, 2000, 2002 및 2003에 적용됩니다.