Lock Slide Numbers in Powerpoint 2007

Is there a way to lock the slide numbers in a presentation such that I can insert slides and not affect the numbering of later slides?

At my company, we prepare presentations that will eventually become legal support for SEC reporting. The presentations are created in August and reviewed by an Audit Team. That team may have suggestions like: you need to add a slide after slide 82 that describes blah blah blah. They may also reference several slides after 82. If we insert a slide after 82, we'd like to number it something like "82A" so that all originally presented slides retain the numbering as presented in August. That way, all follow-up work by all parties, over several months, remains consistent: everyone continues to talk about the same slide numbers throughout the process.

So we'd like to lock the numbers, say slides 82, 83, 84, and 85 so that when we insert slide 82A, slides 83 to 85 remain slides 83 to 85.
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Brian PiercePhotographerCommented:
In a word no - the slide numbers are dynamic
You can of course always manually number slides.
There is really no way to do this other than to manually number each slide and then manually update it later. Which isn't a good solution, of course.

The only other way would be to do it via an add-in, but I don't think it would be an easy one to develop. It would basically be automating what you'd normally do manually. I believe you can't use PPT's page numbering at all in your scenario. So you'd have to have a button that numbers all slides -- that would add a textbox with the increasing number to each existing slide.  Then you'd have to have another button / option that lets you specify numbering sequence for any slides as you add them -- or maybe you'd have an option to add a set of numbers to selected slides. I think that part could get fairly complicated pretty quickly.
joelhoffmanAuthor Commented:
The manual numbering is definitely an option we'd thought of; however, manually numbering thousands of slides represents quite an effort ... just as bad as the confusion caused by one slide having multiple slide numbers over time. Maybe some VB code of some kind could help? I'll keep watching here for a while and see what others come up with, if anything. Thanks!
10 Tips to Protect Your Business from Ransomware

Did you know that ransomware is the most widespread, destructive malware in the world today? It accounts for 39% of all security breaches, with ransomware gangsters projected to make $11.5B in profits from online extortion by 2019.

One way would be to create special new custom layouts for the A B C slides. Duplicate the normal layout and rename them with names starting with e.g. NSNUM

This code should then number accordingly.
Sub renum()
Dim lngNum As Long
Dim osld As Slide
Dim SN As Shape
Dim lngCHAR As Long
On Error Resume Next
For Each osld In ActivePresentation.Slides

If Not UCase(osld.CustomLayout.Name) Like "NSNUM*" Then
lngCHAR = 65
lngNum = lngNum + 1
osld.HeadersFooters.SlideNumber.Visible = True
Set SN = getNum(osld)
If Not SN Is Nothing Then SN.TextFrame.TextRange = CStr(lngNum)
osld.HeadersFooters.SlideNumber.Visible = True
Set SN = getNum(osld)
If Not SN Is Nothing Then SN.TextFrame.TextRange = CStr(lngNum) & Chr(lngCHAR)
lngCHAR = lngCHAR + 1
End If
End Sub

Function getNum(osld As Slide) As Shape
For Each getNum In osld.Shapes
If getNum.Type = msoPlaceholder Then
If getNum.PlaceholderFormat.Type = ppPlaceholderSlideNumber Then Exit Function
End If
End Function

Open in new window


Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
joelhoffmanAuthor Commented:
I was not aware of custom slide layouts - I'll check those out and try your solution and post back how it worked.
joelhoffmanAuthor Commented:
Brilliant!! Worked like a charm! Thanks!
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Microsoft Office

From novice to tech pro — start learning today.