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

Question

我在所有工作表中有一个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

Answer 1

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

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