text 如何仅删除演示文稿中的某些幻灯片？

Posted 2021-05-02

Sub Delete_Slides_on_SlideIDs()

Dim Ppres As Presentation
Set Ppres = ActivePresentation

Dim Sh As Shape
Dim i As Integer
Dim PPS As Slide
'******************************************************
'used in Delivery Reviews
For Each PPS In Ppres.Slides

If PPS.SlideID <> 1651 And PPS.SlideID <> 1543 And PPS.SlideID <> 1711 _
    And PPS.SlideID <> 1683 And PPS.SlideID <> 1684 _
    And PPS.SlideID <> 1439 And PPS.SlideID <> 1433 And PPS.SlideID <> 1440 _
    And PPS.SlideID <> 1434 And PPS.SlideID <> 1442 And PPS.SlideID <> 1441 _
    And PPS.SlideID <> 1502 And PPS.SlideID <> 1435 And PPS.SlideID <> 1436 _
    And PPS.SlideID <> 1437 And PPS.SlideID <> 1438 Then PPS.Delete

Next PPS

End Sub