Select most items on a slide and delete them

I want to

1. select a particular slide from the active presentation
A. assuming something like the following for slide number 8

Code:

---

ActivePresentation.Slides(8).Select

---

2. select/Delete most of the shapes that are on that slide.
A. if the shape has the word "placeholder" it will stay on the slide
B. a slide could have 2 items or 5.
C. names of pictures will vary
D. they could have Rectangle 5, Slide Number Placeholder1, and Picture 3 as names
3. then I will insert a photo from a file to replace the deleted one(s)....

my focus for this question is selecting the items and getting them deleted.

https://docs.microsoft.com/en-us/off...e.msoshapetype

https://docs.microsoft.com/en-us/off...laceholdertype

i wouldn't trust the .Name

I think it'd be safer to use Shape.Type and Shape.PlaceHolderFormat.Type

Code:

---

Option Explicit


Sub test()
    Dim oPres As Presentation
    Dim oSlide As Slide
    Dim oShape As Shape
   
    Set oPres = ActivePresentation
   
    For Each oSlide In oPres.Slides
        For Each oShape In oSlide.Shapes
            With oShape
                If .Type = msoPlaceholder Then
                    If .PlaceholderFormat.Type = ppPlaceholderCenterTitle Then
                        MsgBox "Title"
                    End If
               
                ElseIf .Type = msoPicture Then
                    MsgBox "Picture"
           
                Else
                    MsgBox "Somethin Else"
                End If
            End With
        Next
    Next


End Sub

---

Maybe this would work

Code:

---

Sub killer()
Dim osld As Slide, L As Long
Set osld = ActivePresentation.Slides(1)' change number
For L = osld.Shapes.Count To 1 Step -1
If osld.Shapes(L).Type <> msoPlaceholder Then
osld.Shapes(L).Delete
End If
Next
End Sub

---

In PPT always try to avoid select shapes / slides in code unless it is really necessary BTW. Work on a copy just in case.

John's code worked perfectly. I am going to use Paul's code to add additional code to insert the new photo after the slides are successfully deleted.
thank you for the easy to understand explanations. you guys are amazing:beerchug:

Be advised that if you have Grouped Shapes, then they might require some special checks