Permanent slide numbers in PowerPoint

Status
This thread has been Locked and is not open to further replies. Please start a New Thread if you're having a similar issue. View our Welcome Guide to learn how to use this site.

bob32256

Thread Starter
Joined
Jan 7, 2006
Messages
11
Is there a way to fix slide numbers in PowerPoint so they don't change when I drag slides to another presentation? I want a master list of slides that I can choose from for different presentations.
 

DaveA

Trusted Advisor
Spam Fighter
Joined
Nov 16, 1999
Messages
16,574
First Name
David
NO, the numbers are based on the current displayed presentation.

The only way I can think of is to manually enter a text box with the required number in it.
Would this usage of these slides from this "Master List" always be the same slide number in ANY presentation?
I don't think so, so why would you need these permanent slide numbers?
 

bob32256

Thread Starter
Joined
Jan 7, 2006
Messages
11
Because others take slides from my master list and use them to customize presentations. I need a way to quickly reference hundreds of slides in each of several topics. If I have them permanently numbered (TopicA-1, TopicA-2, etc.) that would make it much easier. Photo Album has a "batch rename" that does that for pictures. I had hoped there might be something similar in PowerPoint.
 
Joined
Oct 20, 2004
Messages
7,837
http://www.pptalchemy.co.uk/PowerPoint_vba_SlideID.html

The SlideID does not change when you move the slide but it is Read-Only and can't be edited. However, you can find out what the ID is (see the above page for some VBA that will do that) and could then list the IDs in Excel or Access and also enter a description for each.
Then you could sort (in Excel) or both sort and have queries for specific descriptions in Access.
But PowerPoint will always rename the slides. I think 2007 offers tags as well....
 
Joined
Nov 22, 2007
Messages
262
See if this macro helps:

Code:
Sub perma_num()
Dim osld As Slide
Dim strName As String
strName = InputBox("Enter the descriptive name")
For Each osld In ActivePresentation.Slides
With osld.Shapes.AddTextbox(msoTextOrientationHorizontal, 0, 0, 100, 20)
.TextFrame.TextRange = strName & ": " & osld.SlideIndex
End With
Next
End Sub
 
Status
This thread has been Locked and is not open to further replies. Please start a New Thread if you're having a similar issue. View our Welcome Guide to learn how to use this site.

Users Who Are Viewing This Thread (Users: 0, Guests: 1)

As Seen On
As Seen On...

Welcome to Tech Support Guy!

Are you looking for the solution to your computer problem? Join our site today to ask your question. This site is completely free -- paid for by advertisers and donations.

If you're not already familiar with forums, watch our Welcome Guide to get started.

Join over 807,865 other people just like you!

Latest posts

Staff online

Members online

Top