Sub to reverse slides order

  • Thread starter Thread starter Max
  • Start date Start date
M

Max

I have 50 slides in a deck, and would like to flip/reverse the order so that
slide 50 becomes slide 1, slide 49 becomes slide 2, and so on.

Is there a sub which could do this? Thanks
 
Thanks, tried running your sub below,
but got stuck at this line:
(Run-time error '91')

If opres.ReadOnly = True Then

How can I proceed?

-------
Sub reversi()
Dim opres As Presentation
Dim i As Integer
'Cannot alter read only presentation
If opres.ReadOnly = True Then Exit Sub
Set opres = ActivePresentation
'seqentially move slides to front
For i = 2 To opres.Slides.Count
opres.Slides(i).MoveTo 1
Next i
End Sub
 
Thanks, that did it !

I would also appreciate your help in adapting your sub to do the
interleaving bit in my other posting. I'm afraid I'm not up to the task.
 
Something like this I guess (not tested)

Sub inter()
Dim i As Integer
Dim pos As Integer
Dim opres As Presentation
Set opres = ActivePresentation
For i = (opres.Slides.Count) / 2 + 1 To opres.Slides.Count - 1
pos = pos + 2
opres.Slides(i).MoveTo (pos)
Next
End Sub
--
Amazing PPT Hints, Tips and Tutorials

http://www.PPTAlchemy.co.uk
http://www.technologytrish.co.uk
email john AT technologytrish.co.uk
 
Back
Top