Header
PowerPoint tips, hints and tutorials that will change your presentations for ever!

INDEX

 

Jigsaws
Sounds
Video
Custom Shows
vba code
NaviSlides
Games for teachers
Bullets
Triggers
Security
Flash Cards
Multiple Instances
PowerPoint 2007
Mail Merge
Random events
Animation
Hyperlinks
Set spellcheck language


Home buttonTutorial buttonContact buttonProducts button

Number Sections in PowerPoint 2010

Version 2010 allows you to split your presentation into sections. However it does not allow you to renumber each section starting from one individually.

This code tries to do that for you.

Sub sectioner()
Dim osld As Slide
Dim chK As Long
Dim num As Long
Dim SNplc As Shape
chK = 1
If Val(Application.Version) < 14 Then
MsgBox "This is only for version 2010 on!", vbCritical
Exit Sub
End If
For Each osld In ActivePresentation.Slides
num = num + 1
'new section found?
If osld.sectionIndex > chK Then
num = 1
chK = osld.sectionIndex
End If
osld.HeadersFooters.SlideNumber.Visible = True
Set SNplc = getNumber(osld)
If Not SNplc Is Nothing Then
SNplc.TextFrame.TextRange = CStr(num)
End If
Next osld
End Sub
Function getNumber(osld As Slide) As Shape
For Each getNumber In osld.Shapes
If getNumber.Type = msoPlaceholder Then
If getNumber.PlaceholderFormat.Type = ppPlaceholderSlideNumber Then Exit Function
End If
Next
End Function

Don't know what to do with the code - SEE HERE

 

 

Back to the Index Page

POWERPOINT BLOG

Articles on your favourite sport

Free Microsoft PowerPoint Advice, help and tutorials, Template Links
This website is sponsored by Technology Trish Ltd
© Technology Trish 2007
Registered in England and Wales No.5780175
PowerPoint® is a registered trademark of the Microsoft Corporation