text 如何从带有VBA的幻灯片中删除某些形状类型？

Posted 2021-05-02

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