PPT删除空白页 2021-10-19

来自 https://club.excelhome.net/thread-188757-1-1.html

利用PowerPoint中的宏来做。

首先 文件——选项——自定义功能区 ，把宏加进去。

接下来，找到加进去的宏，点创建，复制进去：

Sub 删除占位符()
    Dim sld As Slide, shp As Shape, found As Boolean
    Do
        found = False
        For Each sld In ActivePresentation.Slides
            For Each shp In sld.Shapes
                If shp.Type = 14 And Not shp.TextFrame.HasText Then
                    found = True
                    shp.Delete
                End If
            Next
        Next
    Loop While found = True
End Sub

之后选择 宏，运行即可。