Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Scrambling slides

26 views
Skip to first unread message

Steve Barker

unread,
Jun 15, 2001, 11:13:40 PM6/15/01
to
Some time ago about may of 2000, some fine soul on this NG gave me some code or a link to some macro that would scramble the heck out of a group of slides in slide sorter view.  I've since lost the file that was embedded in and cannot find it.  Could someone point me in the right direction for this?  I've got 267 photos to show sunday morning, and I'd like to mix them up a bit without having to do it manually.  THanks in advance for your help!
 
 

--
Steve Barker
Beautiful Downtown Stilwell Kansas
Land of OZ

Echo S

unread,
Jun 16, 2001, 9:32:45 AM6/16/01
to
Steve, you might do a search on this newsgroup at
http://groups.google.com (use the advanced search).

Maybe try searching there on your name--you might be able to turn it up
quickly.

Echo

Steve Barker

unread,
Jun 16, 2001, 12:36:08 PM6/16/01
to
ooooooooh, good idea. do they go back that far?

Echo S <ec...@indy.net> wrote in message news:3B2B5FFD...@indy.net...

Echo S

unread,
Jun 16, 2001, 12:34:31 PM6/16/01
to
I think so. Worth trying, anyway.

Echo

--
Echo
MS PPT MVP
http://www.echosvoice.com

Steve Barker

unread,
Jun 16, 2001, 1:21:02 PM6/16/01
to
Many thanks! I spent a mere 10 minutes there and found what i was looking
for. And some i wasn't. It's scary what a person has written in the past.
<g>.

s


Echo S <ec...@indy.net> wrote in message news:3B2B5FFD...@indy.net...

Michael Koerner

unread,
Jun 16, 2001, 3:17:04 PM6/16/01
to
Wanna post it here? Sounds like interesting code

Michael

"Steve Barker" <stevebark...@kc.rr.com> wrote in message
news:2AMW6.6469$C7.7...@typhoon.kc.rr.com...

Steve Barker

unread,
Jun 16, 2001, 6:07:19 PM6/16/01
to
Here's what i got on my clipboard right now. Worked in PP97, haven't tried
it in 2000 yet, but will later tonight.

begin paste

Sub Don_t_Do_Desperate()
Dim d As Integer
Dim dvalue As Integer
Dim dslides As Integer

dslides = ActivePresentation.Slides.Count
For d = 1 To ActivePresentation.Slides.Count
dvalue = Int((d * Rnd) + 1)
ActiveWindow.ViewType = ppViewSlideSorter
ActivePresentation.Slides(dvalue).Select
ActiveWindow.Selection.Cut
ActivePresentation.Slides(dslides - 1).Select
ActiveWindow.View.Paste
Next

msgbox "Done Dude. Deal."

End Sub

If i remember correctly, you should be in slide sorter view THEN run the
macro.

steve


Michael Koerner <m.koern...@home.com> wrote in message
news:#LJ98rp9AHA.1516@tkmsftngp04...

Steve Barker

unread,
Jun 16, 2001, 6:08:12 PM6/16/01
to
Forgot to mention, You may have to run it several times to get a good
scramble.

s


Michael Koerner <m.koern...@home.com> wrote in message
news:#LJ98rp9AHA.1516@tkmsftngp04...

Michael Koerner

unread,
Jun 16, 2001, 7:58:03 PM6/16/01
to
Steve;

Thanks, greatly appreciated. The wording in the code looks like it might have
been thrown together by Steve Rindsberg. Wouldn't swear to it, but it looks like
his handwriting <G>

Michael

"Steve Barker" <stevebark...@kc.rr.com> wrote in message

news:rMQW6.8406$C7.10...@typhoon.kc.rr.com...

Steve Barker

unread,
Jun 16, 2001, 8:56:00 PM6/16/01
to
Brian Reilly is actually the one I got it from. And it does work fine in
PP2000. Had to turn off my third party clipboard however. (clipmate)

steve


Michael Koerner <m.koern...@home.com> wrote in message

news:O8fWkBs9AHA.2124@tkmsftngp02...

Echo S

unread,
Jun 17, 2001, 1:15:46 AM6/17/01
to
Michael Koerner wrote:
>
> Steve;
>
> Thanks, greatly appreciated. The wording in the code looks like it might have
> been thrown together by Steve Rindsberg. Wouldn't swear to it, but it looks like
> his handwriting <G>
>

Oh, you mean this?
> msgbox "Done Dude. Deal."

I'd say you're right. LOL!

Michael Koerner

unread,
Jun 17, 2001, 6:26:17 AM6/17/01
to
Along with "Sub Don_t_Do_Desperate()" ;<)


"Echo S" <ec...@indy.net> wrote in message news:3B2C3D02...@indy.net...

Steve Rindsberg

unread,
Jun 18, 2001, 9:26:29 AM6/18/01
to
I was just looking at it and thinking "Reilly. It's positively *smeared*
with Reilly." <g>

--
Steve Rindsberg, PowerPoint MVP
Got a PowerPoint wish/suggestion/beef?
Email msw...@microsoft.com with PowerPoint in the subject line
Get the PPT FAQs at http://www.rdpslides.com/pptfaq/
RnR PPTools - http://www.rdpslides.com/pptools/
------


Michael Koerner <m.koern...@home.com> wrote in message

news:O8fWkBs9AHA.2124@tkmsftngp02...

Steve Rindsberg

unread,
Jun 18, 2001, 9:27:57 AM6/18/01
to
Nah.

I'd have put it in slidesorter view outside (outSlide?) the main loop
instead of once every time through. And used a comma instead of a period
after "Dude".

--
Steve Rindsberg, PowerPoint MVP
Got a PowerPoint wish/suggestion/beef?
Email msw...@microsoft.com with PowerPoint in the subject line
Get the PPT FAQs at http://www.rdpslides.com/pptfaq/
RnR PPTools - http://www.rdpslides.com/pptools/
------

Echo S <ec...@indy.net> wrote in message news:3B2C3D02...@indy.net...

Brian Reilly, MS MVP

unread,
Jun 18, 2001, 10:57:05 AM6/18/01
to
All,
Yup that was one of mine (g).
For the record, it puts you in SlideSorter View in the code. you don't
have to start there.
Also for the record, this particular snippet received a lot of
discussion about the fact that the Random function is truly not
random. But it sure does shuffle the cards.
Done Dude! (g) It was an early morning that day.

Brian Reilly, PowerPoint MVP

Michael Koerner

unread,
Jun 18, 2001, 1:36:58 PM6/18/01
to
Sometimes it is hard to tell. You two sound so much alike. (LOL)

"Steve Rindsberg" <drop...@rathole.nul> wrote in message
news:OqowOn$9AHA.1320@tkmsftngp04...

Brian Reilly, MS MVP

unread,
Jun 18, 2001, 2:21:51 PM6/18/01
to
Michael,
It's easy for us. Steve's the one I never understand and almost always
disagree with. I'm the one Steve never understands and almost always
disagrees with.
It's really quite simple to tell us apart. Right or Rong?
Brian Reilly, PowerPoint MVP

Steve Rindsberg

unread,
Jun 18, 2001, 2:38:35 PM6/18/01
to
And has anybody noticed that nobody here has ever seen the two of us in the
same place at the same time?
Except PK, and she's in on the scam, so I wouldn't believe anything SHE adds
to this.

--
Steve Rindsberg, PowerPoint MVP
Got a PowerPoint wish/suggestion/beef?
Email msw...@microsoft.com with PowerPoint in the subject line
Get the PPT FAQs at http://www.rdpslides.com/pptfaq/
RnR PPTools - http://www.rdpslides.com/pptools/
------

Brian Reilly, MS MVP <br...@reillyand.com> wrote in message
news:3b2e4646...@msnews.microsoft.com...

Michael Koerner

unread,
Jun 18, 2001, 3:17:47 PM6/18/01
to
That's easy for you to say, you know each other. I have a hard time
differentiating between right and rong. I therefore have to unscramble my slides
and get back on track. (thread drift correction)

Michael

"Brian Reilly, MS MVP" <br...@reillyand.com> wrote in message
news:3b2e4646...@msnews.microsoft.com...

Brian Reilly, MS MVP

unread,
Jun 18, 2001, 3:24:26 PM6/18/01
to
Steve

'Twouda been Echo, not PK. PK has only been half-cursed (or
half-blessed). And everything Echo would add would just be redundant!
Right?
Brian Reilly, PowerPoint MVP

Sonia

unread,
Jun 18, 2001, 3:27:02 PM6/18/01
to
ROFL!!

"Michael Koerner" <m.koern...@home.com> wrote in message

news:uN0XUuC#AHA.1416@tkmsftngp05...

Steve Rindsberg

unread,
Jun 18, 2001, 4:08:11 PM6/18/01
to
> 'Twouda been Echo, not PK. PK has only been half-cursed (or
> half-blessed). And everything Echo would add would just be redundant!
> Right?

Rong again!

(Me, that is.)

EchoEcho. PK faded on us. Tsk.


0 new messages