Deletes all pictures and shapes from excel spreadsheet (does it for all sheets inside the document)

delete_all_shapes_from_xls.vba

Option Explicit
Sub delete_all_shapes()
  Dim shape As Shape
  Dim worksheet As Worksheet
  
  Dim response As Integer
  response = MsgBox("This action will delete all pictures and shapes from your spreadsheet. Do you want to continue?", vbYesNo, "Delete all shapes from spreadsheet")
    
    If response = vbYes Then
      For Each worksheet In ThisWorkbook.Worksheets
        For Each shape In worksheet.Shapes
            shape.Delete
        Next shape
      Next worksheet
    End If
End Sub

Script que apaga todas as imagens e formas em todas as abas de uma planilha do excel.
Obs: Testado para o Excel 2016.