VBA来删除活动的幻灯片在PowerPoint

Question

我试图删除在Active PPT演示幻灯片，但我有一个错误sld_id = ActiveWindow.Selection.SlideRange.SlideIndex

Sub DEL() 
    Dim i As Long 
    Dim sld_id As Long 
    sld_id = ActiveWindow.Selection.SlideRange.SlideIndex 
    With ActivePresentation.Slides 
    For i = .Count To sld_id Step -1 
     .Item(i).Delete 
    Next i 
    End With 
End Sub 

谁能帮我与？ 非常感谢！ Roxana

Answer 1

下面的代码使用Late Binding to PowerPoint（因此您不需要添加对PowerPoint库的引用），并检查PowerPoint实例是否已打开。

之后，它将ActivePresentation设置为ppPres。

最后，您向后循环删除从结尾到第二张幻灯片的所有幻灯片（只保留第一张幻灯片）。

注意：您可以很容易地修改For i = ppPres.Slides.Count To 2 Step -1循环，以满足您的需求。

代码

Option Explicit 

Sub DEL() 

Dim ppProgram As Object 
Dim ppPres As Object 
Dim ppSlide As Object 
Dim i As Long 

On Error Resume Next 
Set ppProgram = GetObject(, "PowerPoint.Application") 
On Error GoTo 0 

' check if PowerPoint instance is open >> if not raise an error 
If ppProgram Is Nothing Then 
    MsgBox "PowerPoint is closed!" 
    Exit Sub 
Else 
    ' set the ppPres object to active PowerPoint presentation 
    Set ppPres = ppProgram.ActivePresentation 

    ' always loop backwards when deleting objects (in this case slides) 
    For i = ppPres.Slides.Count To 2 Step -1 
     Set ppSlide = ppPres.Slides(i) 
     ppSlide.Delete    
    Next i 
End If 

End Sub