Excel VBA: 如何快速删除当前工作表所有图片

以下是VBA代码，可以在Excel中执行，用于删除当前工作表中的所有图片：

Sub DeletePictures()
    Dim pic As Picture
    For Each pic In ActiveSheet.Pictures
        pic.Delete
    Next pic
End Sub

这段代码会遍历当前工作表中的所有图片文件，并将它们全部删除。