VBA PowerPoint - Ограничение макроса только для заданного c слайда

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