How to Randomize Only VISIBLE Slides, Not Hidden Slides??

Kellaroo · Feb 23rd 2022

Hello all, I'm trying to make my code only randomize non-hidden slides. I know this forum is primarily for Excel, but since there is so much VBA expertise here I was hoping someone could easily identify my problem. I'm a noobie to VBA. I've just tried to figure it out logically, but I'm afraid I lack fundamental coding knowledge to solve this problem.

Code

There are 6 slides and the code will randomize them successfully if I leave out the If statement about "SlideShowTransition.Hidden = False" - So therein lies the problem...

 
Sub RandomVisibleSlides ()
FirstSlide = 1
LastSlide = 6
RSN = SlideIndex
Randomize
'generate random number for Index
GRN:
RSN = Int((LastSlide - FirstSlide + 1) * Rnd + FirstSlide)
If RSN = ActivePresentation.SlideShowWindow.View.Slide.SlideIndex Then

If ActivePresentation.Slides(RSN).SlideShowTransition.Hidden = False Then GoTo GRN
ActivePresentation.SlideShowWindow.View.GotoSlide (RSN)

End Sub

Display More

My experiment PowerPoint is attached.

What am I doing wrong?

**royUK** · Feb 23rd 2022

Welcome to the Forum. Please read the Forum Rules to understand how the Forum works and why I have added Code Tags to your post

All VBA code posted in the forum must be wrapped in code tags, which you omitted, including single-line code snippets.Be sure to use them in future posts.

How to use code tags

Just highlight all of the code and press the <> in the post menu above button to add the code tags.

Thanks.

Also, choose the correct Forum and there is no attachcment

Kellaroo · Feb 24th 2022

Case closed.
The answer to this riddle can be found at:
http://www.vbaexpress.com/foru…ot-Hidden-Slides&p=413692

(I now realize I've 'cross-posted' and will refrain from doing so in the future)

**royUK** · Feb 24th 2022

Thanks for sharing

How to Randomize Only VISIBLE Slides, Not Hidden Slides??

Participate now!

Share

Tags

Users Viewing This Thread