Numbering Slides Backwards

Nicole Mauser-Storer

unread,

Jun 14, 2001, 2:54:50 PM6/14/01

to

OK, Here 's a good one for you. I have a boss who has asked to number
the PowerPoint slides backwards. So the first slide would be 20, and
the last slide would be 1. Can this be done? I have looked but can't
think of anything other than just typing them in by hand. Any
suggestions?

Nicole Mauser-Storer

Kathy Jacobs

unread,

Jun 14, 2001, 3:24:52 PM6/14/01

to

Nicole,
Can you put the presentation in the file backwards (i.e., last slide to
first slide) and then create a custom show to run it in the right order?
That way you still have the flexibility to add and delete slides, but
can do the backwards numbering thing. (I just tested it and it does work!)

--
Kathryn Jacobs, BrainBench MVP MS PowerPoint (Get Certified at
http://www.brainbench.com)
Get PowerPoint answers at http://www.powerpointanswers.com
Cook anything outdoors with http://www.outdoorcook.com

Kathy is a trainer, writer, Girl Scout, parent, and whatever else there
is time for

Life is meant to be lived. But:
if we live without making a difference, it makes no difference that we lived

Nicole Mauser-Storer

unread,

Jun 14, 2001, 3:30:43 PM6/14/01

to

Kathy,

Super Idea! I never would have thought of that. The only problem is that this
is for a department manager who is doing good to open powerpoint and anything
fancy only confuses him. I can see if this will work for him, but do you have
any other ideas?

Nicole

Kathy Jacobs

unread,

Jun 14, 2001, 4:12:10 PM6/14/01

to

You can easily set up the custom show as the default show to run. In
fact, that will happen as soon as you set it up if it is the only one.
You may need to set up the show for him, but it goes really quick: You
give the show a name, click on the last slide, then start clicking "Add"
until all the slides are included.

Nicole Mauser-Storer

unread,

Jun 14, 2001, 4:25:27 PM6/14/01

to

I'll try it and see what he thinks. Thanks for your help!

Nicole

Brian Reilly, MS MVP

unread,

Jun 15, 2001, 6:07:29 AM6/15/01

to

Nicole,
I guess that's why they call them sessob.
Here's a quick macro that will do that for you.
It could use some additional error handling in case you want to run it
again but it will work if you only run it once (g).

Sub rebmuN()
Dim i As Integer
Dim iPageNumber As Integer
iPageNumber = ActivePresentation.Slides.Count
For i = 1 To ActivePresentation.Slides.Count
With ActivePresentation.Slides(i)
.Shapes.AddLabel(msoTextOrientationHorizontal, 661.625, _
503.75, 14.5, 28.875).Name = "rebmuN" & iPageNumber
With .Shapes("rebmuN" & iPageNumber).TextFrame.TextRange
.Text = iPageNumber
With .Font
.Name = "Arial"
.Size = 12
.Color.RGB = RGB(Red:=0, Green:=96, Blue:=236)
End With
End With
End With
iPageNumber = iPageNumber - 1
Next i
End Sub

Brian Reilly, PowerPoint MVP

Kathy

unread,

Jun 15, 2001, 11:34:00 PM6/15/01

to

Nicole,

It's interesting that you ask this question because I was just talking
with Shyam about some tools he's developing. One is to reverse the order
of slides. I wondered why people would request that, and here you are
asking the same thing. So I'm curious: Why is the boss asking for this?
Is this for some kind of count-down presentation or some other reason?

Kathy