text 如何根据幻灯片的布局或内容删除幻灯片？

Posted 2021-05-02

Sub Delete_Slides_other_criteria()

Dim p As Presentation
Set p = ActivePresentation
     
Dim Sh As Shape
Dim PPS As Slide
Dim i As Integer
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

'slides with a certain layout
For Each PPS In Ppres.Slides
    If PPS.Layout = ppLayoutSectionHeader Then PPS.Delete
    If PPS.Layout = ppLayoutBlank Then PPS.Delete
    If PPS.Layout = ppLayoutChart Then PPS.Delete
    If PPS.Layout = ppLayoutPictureWithCaption Then PPS.Delete

Next PPS

'slides that have more than a certain number of shapes on them
On Error Resume Next
For i = 2 To Ppres.Slides.Count
    If Ppres.Slides(i).Shapes.Count > 1 Then
    Ppres.Slides(i).Delete
Next i

End Sub