vba通过with event对shape类型进行监听，处理鼠标事件

可以使用 VBA 的 `WithEvents` 关键字来监听 `Shape` 类型的鼠标事件。

首先，在你的 VBA 代码中声明一个 `Shape` 类型的对象，并使用 `WithEvents` 关键字：

Dim WithEvents myShape As Shape

然后，在加载形状的时候，通过 `Set` 关键字将该形状指定给 `myShape`：

Set myShape = ActiveSheet.Shapes("myShapeName")

最后，在 `myShape` 对象的事件处理程序中，加入对鼠标事件的处理逻辑。下面是一个例子，处理单击事件：

Private Sub myShape_Click()
    MsgBox "You clicked on the shape!"
End Sub

当你单击指定的形状时，VBA 会触发 `myShape_Click` 事件处理程序，弹出一个消息框。同样的，你也可以处理其他鼠标事件，例如鼠标悬停、双击等。只需要将事件处理程序的名称替换为相应的事件名即可。