Excel 鼠标不';如果MouseDown出现在同一个图表专用代码中,则不会激发

Excel 鼠标不';如果MouseDown出现在同一个图表专用代码中,则不会激发,excel,vba,Excel,Vba,我在一张纸上有一张图表。我希望在左键按下时显示标签,然后在左键返回时消失 但是,如果两个事件处理程序都存在,那么MouseDown将触发,而MouseUp则不会。如果我引用MouseDown处理程序的注释,MouseUp将启动 其他奇怪的事情也会发生,比如在图表上点击两三下Excel就会崩溃。这让我发疯了。下面是两个事件处理程序。我已经最小化了代码 Private Sub Chart_MouseDown(ByVal Button As Long, _ ByVal Shift As

我在一张纸上有一张图表。我希望在左键按下时显示标签,然后在左键返回时消失

但是,如果两个事件处理程序都存在,那么MouseDown将触发,而MouseUp则不会。如果我引用MouseDown处理程序的注释,MouseUp将启动

其他奇怪的事情也会发生,比如在图表上点击两三下Excel就会崩溃。这让我发疯了。下面是两个事件处理程序。我已经最小化了代码

Private Sub Chart_MouseDown(ByVal Button As Long, _
       ByVal Shift As Long, ByVal X As Long, ByVal Y As Long)
           Me.Labels.Add(X - 100, Y - 100, 60, 30).Characters.Text = "This is a test"
End Sub

Private Sub Chart_MouseUp(ByVal Button As Long, _
       ByVal Shift As Long, ByVal X As Long, ByVal Y As Long)
    Dim i
       For Each i In Me.Shapes
          i.Delete
       Next i
End Sub