mix Powerpoint slides (content) randomly?

Powerpoint Slide Show Question:

Dear MS community,
I am going to place about 75 photos -- one image per page -- in Powerpoint and to make this easy I will bring the images in from folders that are photographer-specific. However, I want to show them as a randomized view, mixing up the order. Order can't change though, after I make it random. Viewers are going to vote on favorite images for a contest.

Anyone have an idea how to "randomize" Powerpoint pages/slides?

jonathan7007
 

Question Info


Last updated January 19, 2019 Views 84,334 Applies to:
See here

Scroll down to "Shuffle part of a presentation"
www.pptalchemy.co.uk

162 people were helped by this reply

·

Did this solve your problem?

Sorry this didn't help.

Great! Thanks for marking this as the answer.

How satisfied are you with this reply?

Thanks for your feedback, it helps us improve the site.

How satisfied are you with this response?

Thanks for your feedback.

John,
Thank you, but that phrase or words/ideas doesn't appear on the version of the page that arrives at my computer, so I will e-mail the page creator. Meanwhile, anyone with other sources?

BTW, what a great resource this is. I used to do more Powerpoint when I was in sales... this would have been great.

To repeat:
>I load up about 75 pages/slides with one picture each.
>I randomize the slides/pages
>I then go back and number the slides 1-75 in some way that creates visible tag
>As the show is running viewers vote for their favorites (photo contest)

So, one randomization, anyone?

2 people were helped by this reply

·

Did this solve your problem?

Sorry this didn't help.

Great! Thanks for marking this as the answer.

How satisfied are you with this reply?

Thanks for your feedback, it helps us improve the site.

How satisfied are you with this response?

Thanks for your feedback.

Not sure I understand but here is the part of the page I meant (I'm the author BTW!)

Shuffle Part of Presentation

You can use rnd in a similar way to shuffle a section of a presentation. Input the highest and lowest slide numbers to be affected.


Sub shufflerange()
Dim Iupper As Integer
Dim Ilower As Integer
Dim Ifrom As Integer
Dim Ito As Integer
Dim i As Integer
Iupper = InputBox("What is the highest slide number to shuffle")
Ilower = InputBox("What is the lowest slide number to shuffle")
If Iupper > ActivePresentation.Slides.Count Or Ilower < 1 Then GoTo err
For i = 1 To 2*Iupper
Randomize
Ifrom = Int((Iupper - Ilower + 1) * Rnd + Ilower)
Ito = Int((Iupper - Ilower + 1) * Rnd + Ilower)
ActivePresentation.Slides(Ifrom).MoveTo (Ito)
Next i
Exit Sub
err:
MsgBox "Your choices are out of range", vbCritical
End Sub

We now have a FREE Add In which can shuffle all or part on your presentation for you! Works only IN 2002-2010

DOWNLOAD IT HERE, unzip the file, read the PDF


www.pptalchemy.co.uk

4 people were helped by this reply

·

Did this solve your problem?

Sorry this didn't help.

Great! Thanks for marking this as the answer.

How satisfied are you with this reply?

Thanks for your feedback, it helps us improve the site.

How satisfied are you with this response?

Thanks for your feedback.

John,
Thank you very much for the follow-up. When I went to the page (a super site, thank you) I searched for the string "shuffle" and "part" and Firefox did not "see" them on the page. I scrolled around for a while but my eye did not catch the words, so I put it off until I had more time. Thanks for sending the info more directly. Looks like either macro or VBA code.  ...and I see you have made a simplified wrapper for download. That looks like a helpful way to do this as I rarely use code in Office (although I have done so...)

Jonathan

Did this solve your problem?

Sorry this didn't help.

Great! Thanks for marking this as the answer.

How satisfied are you with this reply?

Thanks for your feedback, it helps us improve the site.

How satisfied are you with this response?

Thanks for your feedback.

Not sure I understand but here is the part of the page I meant (I'm the author BTW!)

Shuffle Part of Presentation

You can use rnd in a similar way to shuffle a section of a presentation. Input the highest and lowest slide numbers to be affected.


Sub shufflerange()
Dim Iupper As Integer
Dim Ilower As Integer
Dim Ifrom As Integer
Dim Ito As Integer
Dim i As Integer
Iupper = InputBox("What is the highest slide number to shuffle")
Ilower = InputBox("What is the lowest slide number to shuffle")
If Iupper > ActivePresentation.Slides.Count Or Ilower < 1 Then GoTo err
For i = 1 To 2*Iupper
Randomize
Ifrom = Int((Iupper - Ilower + 1) * Rnd + Ilower)
Ito = Int((Iupper - Ilower + 1) * Rnd + Ilower)
ActivePresentation.Slides(Ifrom).MoveTo (Ito)
Next i
Exit Sub
err:
MsgBox "Your choices are out of range", vbCritical
End Sub

We now have a FREE Add In which can shuffle all or part on your presentation for you! Works only IN 2002-2010

DOWNLOAD IT HERE, unzip the file, read the PDF


I followed the instructions in the pdf, but after that I'm not able to open ppt anymore. I get this error:

Did this solve your problem?

Sorry this didn't help.

Great! Thanks for marking this as the answer.

How satisfied are you with this reply?

Thanks for your feedback, it helps us improve the site.

How satisfied are you with this response?

Thanks for your feedback.

@John To help you debugging it: After saying Yes to disable the shuffle07, I got the same error again, but now for shuffle03. I selected Yes again, and ppt works now.
Of course I cannot use the shuffle Add-in, whom I see both appearing in PowerPoint2013/Developer/Add-Ins

Did this solve your problem?

Sorry this didn't help.

Great! Thanks for marking this as the answer.

How satisfied are you with this reply?

Thanks for your feedback, it helps us improve the site.

How satisfied are you with this response?

Thanks for your feedback.

We haven't had any  other reports of this.

The AddIn comes with an uninstaller which you should run either from the Windows control panel or by running the msi file again.

If you have (or have ever had) Kasperski that is the problem and you should contact them and complain.

Once you have uninstalled the downloaded AddIn contact me directly john ATSIGN pptalchemy.co.uk and I will send you a version specific to your version (You will need to say what it is!!)
www.pptalchemy.co.uk

Did this solve your problem?

Sorry this didn't help.

Great! Thanks for marking this as the answer.

How satisfied are you with this reply?

Thanks for your feedback, it helps us improve the site.

How satisfied are you with this response?

Thanks for your feedback.

Hi John,

I tried to use your addone but the problem is it does not randamize after click on slide show

it only shuffle the slide in edit mode. does not work in run time (slide show) mode.

the slide show start from 1 - end in sequence

SahilOnline

Did this solve your problem?

Sorry this didn't help.

Great! Thanks for marking this as the answer.

How satisfied are you with this reply?

Thanks for your feedback, it helps us improve the site.

How satisfied are you with this response?

Thanks for your feedback.

You are correct the free AddIn works if edit mode. How would you call the AddIn in show mode?

The code which is supplied on the same page will work in show mode though just have a shape with an action set to run it on slide 1.

OR

Add this code to call the AddIn (which must be installed)

Sub startAddIn()
Application.Run "shuffle.ppam!shufflerange"
End Sub

Have the shape actioned to run this nmacro

www.pptalchemy.co.uk

Did this solve your problem?

Sorry this didn't help.

Great! Thanks for marking this as the answer.

How satisfied are you with this reply?

Thanks for your feedback, it helps us improve the site.

How satisfied are you with this response?

Thanks for your feedback.

works also with windows 10 after running the compatibility trouble shooter !

Did this solve your problem?

Sorry this didn't help.

Great! Thanks for marking this as the answer.

How satisfied are you with this reply?

Thanks for your feedback, it helps us improve the site.

How satisfied are you with this response?

Thanks for your feedback.