vba形状onchange事件

Question

我目前在使用excel vba脚本时出现问题。 基本上我希望通过更改（删除）形状来触发一些代码！

我不知道为什么删除形状不会触发Worksheet_Change事件 - 有人可以帮我解决这个问题吗？

目前，当我点击键盘的删除按钮时，我甚至没有第一个消息框..

Private Sub Worksheet_Change(ByVal Target As Range)
    MsgBox "change"
    If TypeOf Selection Is Shape Then
        MsgBox "first area ok"
        shnames = SheetNames()
        If IsInArray(Selection.Name, shnames) Then
            MsgBox "if command is true"
            Application.OnKey Key:="{DEL}", Procedure:="delete_shape"
        End If
    End If
End Sub

提前感谢您的回复！

BR，鲁珀特