PowerPoint（或Excel）VBA捕获鼠标点击坐标

一些背景：

简单的背景是，我正处于构建 PowerPoint 加载项的研究阶段。我的最终目标是开发 CAD 尺寸标注插件来帮助加快工程演示的创建。我们必须做大量的“PowerPoint 工程”，其中组件的一般尺寸显示在使用 PPT 形状或 CAD 几何本身的屏幕截图创建的所述组件的简化版本上。但一遍又一遍地创建维度是很乏味的。每一条通常由一个箭头、两条线和一个带有尺寸值的文本框组成。

这是我需要帮助的地方。

（如果您知道如何在 Excel 中执行以下操作，那也可以，稍后我将努力找出 PPT 等效项。）

在 PowerPoint 幻灯片中，在设计模式（即非幻灯片放映模式）下，我想要执行以下工作流程：

1. 在打开的用户窗体中，用户单击名为“START”的按钮
2. 该代码开始侦听幻灯片本身字段中的鼠标左键单击 (LMC)（它不应该响应实际用户窗体上的 LMC，例如，如果用户需要将用户窗体拖开）
3. 在 LMC 上，光标的坐标记录为 (x1,y1)
4. 重复步骤 2 和 3 记录 (x2, y2)
5. 用这些坐标做一些事情（例如，在两个坐标之间绘制一个尺寸

我相信我可以处理除第 2 步之外的所有编码，这就是我在这里的原因。我很难找到起点。具体来说，我需要帮助如何聆听 LMC。简而言之，设想如下：

While Listening:
  If LMC = TRUE
    Do Stuff
  End If
End While 

但我没有编码的知识While Listening部分。我需要朝正确的方向推动。

我的搜索让我找到了MouseDownMSDN 上的事件处理程序页面，但在我的测试中，我认为这不是我需要的。看起来好像MouseDown旨在当鼠标按下用户窗体中的命令按钮时启动例程。

我还发现了这篇文章，其中唯一的答案似乎暗示如果不竭尽全力这是不可能的，并且代码可能对文件本身有害：如何在Excel VBA中记录鼠标点击？。 （我可以不遗余力地投入工作，但如果生成的代码很可能会造成损害，正如帖子似乎暗示的那样。）（此外，OP 被否决，没有任何解释，也许有人可以告诉我为什么，这样我就不会犯同样的错误。）

您可以通过执行以下操作来完成您想要做的事情（底部部分可能对您最有帮助）： 首先，声明以下内容：

Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Public Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Public Const MOUSEEVENTF_LEFTDOWN = &H2
Public Const MOUSEEVENTF_LEFTUP = &H4
Public Const MOUSEEVENTF_RIGHTDOWN As Long = &H8
Public Const MOUSEEVENTF_RIGHTUP As Long = &H10

以下代码片段将允许您单击、双击或右键单击：

Private Sub SingleClick()
  SetCursorPos 100, 100 'x and y position
  mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
  mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub

Private Sub DoubleClick()
  'Double click as a quick series of two clicks
  SetCursorPos 100, 100 'x and y position
  mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
  mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
  mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
  mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub

Private Sub RightClick()
  Right Click
  SetCursorPos 200, 200 'x and y position
  mouse_event MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0
  mouse_event MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0
End Sub

您所需要做的就是将光标位置更改为屏幕上的坐标。 为此，我使用以下代码创建了一个新宏，并将其分配给“Ctrl+Y”按钮。这将告诉您当前鼠标位置的坐标。

Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Type POINTAPI
    x As Long
    y As Long
End Type

Sub CurosrXY_Pixels()

    Dim lngStatus As Long
    Dim typWhere As POINTAPI

    lngStatus = GetCursorPos(typWhere)
    MsgBox "x: " & typWhere.x & Chr(13) & "y: " & typWhere.y, vbInformation, "Pixels"

End Sub