运行脚本 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