Sub Clear_pics()
Dim jpg As Shape
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
For Each jpg In ws.Shapes
jpg.Delete
Next jpg
Next ws

End Sub

Sub aa()

For Each sht In ThisWorkbook.Sheets
sht.DrawingObjects.Delete
Next
End Sub