cdr vba 怎么实现获取鼠标点击位置坐标

在VBA (Visual Basic for Applications) 中，如果你想要获取鼠标点击位置的坐标，你可以使用 `MouseClick` 和 `ScreenToClient` 函数结合起来。以下是基本的步骤：

Private Sub Worksheet_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    ' 把屏幕坐标转换为工作表的客户区坐标
    Dim ws As Worksheet ' 替换为你实际的工作表对象
    Set ws = ActiveSheet ' 如果你想获取当前活动工作表的坐标

    Dim clientPoint As Point ' 客户区点对象
    clientPoint.X = x
    clientPoint.Y = y
    
    ' 将鼠标的屏幕坐标转换为客户区坐标
    ws.Range("A1").ScreenToClient clientPoint

    ' 然后你可以在这里访问新的 clientPoint 的 X 和 Y 值，它们就是鼠标点击的实际坐标
    Debug.Print "鼠标点击的坐标是 (" & clientPoint.X & ", " & clientPoint.Y & ")"
End Sub

这个过程会在用户按下鼠标左键（Button = 1）时触发。记得将 `ActiveSheet` 更改为你要获取坐标的特定工作表。当鼠标点击发生时，程序会打印出点击的坐标。