How to Apply this VBA to Several Slides in PowerPoint?

Question

This code works brilliantly for automatically returning the viewer from Slide 3 to 'previous slide viewed' but it seems to only be applicable to one slide. For example, I want to apply it to every odd numbered slide in index (ie 3,5,7,9,11, etc) but then it stops working...

Sub OnSlideShowPageChange()
With ActivePresentation.SlideShowSettings
    .LoopUntilStopped = msoCTrue
    .AdvanceMode = ppSlideShowUseSlideTimings
    .ShowType = ppShowTypeWindow
    .Run
   End With
   
    Dim i As Integer
    i = ActivePresentation.SlideShowWindow.View.CurrentShowPosition
    If Not i = 3 Then Exit Sub
    With SlideShowWindows(1).View

     .GotoSlide (.LastSlideViewed.SlideIndex), msoFalse
    End With

End Sub

Any help would be greatly appreciated!

Nikita Meier · Accepted Answer · 2022-03-10 08:14:51Z

1

So I didn't code vba for some years but if I understand your snippet correctly it e.g. stops the presentation from advancing from page 2 to page 3 (by sending the presentation to the previous page)

if you now want to apply this to every odd page you could rewrite line 11 to:

If Not i Mod 2 > 0 Then Exit Sub

it works for me. please correct me if I understood the task wrong.

edited Mar 10, 2022 at 8:14

answered Mar 10, 2022 at 8:02

Nikita Meier

3082 silver badges10 bronze badges

Sign up to request clarification or add additional context in comments.

2 Comments

Madpoet88 Over a year ago

Yes that works very nicely with my code! Thank you, Nikita Meier!

Nikita Meier Over a year ago

Glad I could help!

Collectives™ on Stack Overflow

How to Apply this VBA to Several Slides in PowerPoint?

1 Answer 1

2 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

2 Comments

Your Answer

Sign up or log in

Post as a guest

Related