Excel 命令按钮在我运行脚本VBA时删除

我有一个VBA脚本，运行该脚本可以删除所有工作表中Excel中的任何图片/屏幕快照。但是，当我按下按钮时，我的按钮也被删除

Private Sub CommandButton1_Click()
ScreenUpdating = False

For Each Sheet In Worksheets
    Sheet.Activate
    For Each Pic In ActiveSheet.Pictures
        Pic.Delete
    Next Pic
Next Sheet

ScreenUpdating = True
End Sub

这可能不准确，但它应该让你走上正确的道路

---

@PatD如果使用表单控件而不是activeX控件，则它可以工作

Private Sub CommandButton1_Click()
ScreenUpdating = False

For Each Sheet In Worksheets
    Sheet.Activate
    For Each Pic In ActiveSheet.Pictures
        If Pic <> CommandButton1.Picture Then
            Pic.Delete
        End If
    Next Pic
Next Sheet

ScreenUpdating = True
End Sub