VBA PowerPoint - 仅针对特定幻灯片限制宏

Question

我正在尝试对我的 PowerPoint 宏执行错误处理，除非您在幻灯片 5 上，否则该宏会限制您运行宏。我正在尝试使用命令：“Application.ActiveWindow.View 5 Then”，但它似乎没有认识到我在幻灯片 5 上，它的正确命令是什么？

Private Sub CommandButton1_Click()

    Dim Sld As Slide
    Dim Shp As Shape

    'ERROR HANDLING
        If ActivePresentation.Slides.Count < 5 Then
            MsgBox "You do not have any slides in your PowerPoint project."
            Exit Sub
        End If

    Set Sld = Application.ActiveWindow.View.Slide

        If activeSlide <> 5 Then
            MsgBox "You are not on the correct slide."
            Exit Sub
        End If

    Set Sld = Application.ActiveWindow.View.Slide
End Sub

Answer 1

activeSlide 不是 PowerPoint 对象，您还没有将其定义为其他任何东西，请将其替换为 Sld 并添加 SlideIndex 以获得号码：

Private Sub CommandButton1_Click()

    Dim Sld As Slide
    Dim Shp As Shape

    'ERROR HANDLING
        If ActivePresentation.Slides.Count < 5 Then
            MsgBox "You do not have any slides in your PowerPoint project."
            Exit Sub
        End If

    Set Sld = Application.ActiveWindow.View.Slide

        If Sld.SlideIndex <> 5 Then
            MsgBox "You are not on the correct slide."
            Exit Sub
        End If

End Sub