如何在Power Point中刪除編程式空白部分

Question

我有一個非常大的Power Point文件，我必須在10個子文件中分解。我將幻燈片移至新的空白演示文稿中，除了各部分留在那裏，我不得不一一刪除它們。

有沒有辦法快速刪除空白部分？

Answer 1

可以使用SectionProperties收集循環向後刪除沒有幻燈片的任何部分：

Sub DeleteEmptySections() 
    Dim lSP as Long 
    With ActivePresentation.SectionProperties 
    For lSP = .Count to 1 Step -1 
     If .SlidesCount = 0 Then .Delete 
    Next 
    End With 
End Sub 

Answer 2

這個功能應該工作：

Function DeleteEmptySections(oPres As Presentation) 
    Dim lSP As Long 
    With oPres.SectionProperties 
    For lSP = .Count To 1 Step -1 
     If .SlidesCount(lSP) = 0 Then 
      .Delete lSP, True 
     End If 
    Next 
    End With 
End Function 

或使用子本上測試ActivePresentation：

Sub DeleteEmptySectionInCurPres() 
    Call DeleteEmptySections(ActivePresentation) 
End Sub