text 如何删除所有幻灯片内容但使用VBA删除其标题？

Posted 2021-05-02

Sub Delete_All_but_Title()

Dim p As Presentation
Set p = ActivePresentation

Dim PPS As Slide
'***************************
For Each PPS In p.Slides
   
Dim i As Shape
    For Each i In PPS.Shapes
        If i.Type <> msoPlaceholder Then i.Delete
    Next i
Next PPS

End Sub