This code deletes all the shapes (e.g., images, charts, etc.) in the active worksheet.
VBA Code:
Sub DeleteAllShapes()
    Dim shape As Shape
    
    For Each shape In ActiveSheet.Shapes
        shape.Delete
    Next shape
End Sub
		This code deletes all the shapes (e.g., images, charts, etc.) in the active worksheet.
VBA Code:
Sub DeleteAllShapes()
    Dim shape As Shape
    
    For Each shape In ActiveSheet.Shapes
        shape.Delete
    Next shape
End Sub