Cacher is the code snippet organizer for pro developers

Sub Delete_shape_type()

Dim p As Presentation
Set p = ActivePresentation

Dim PPS As Slide
Dim Sh As Shape
'***************************

For Each PPS In p.Slides
    For Each Sh In PPS.Shapes
            
    If Sh.Type = msoPicture Then Sh.Delete
    If Sh.Type = msoTextBox Then Sh.Delete
    If Sh.Type = msoAutoShape Then Sh.Delete
    
    Next Sh
Next PPS

End Sub