Adding Section Titles to Slides
-
- StarLounger
- Posts: 59
- Joined: 08 Feb 2010, 14:26
- Location: Lawrence, KS
Adding Section Titles to Slides
Is there a way to add the section title to a header or footer for all the slides in one section? I know I can add a text box and copy to everything in the section, but I was hoping for a more elegant automatic solution. I don't use Powerpoint a lot and it's features don't seem to be as advanced as some other programs. I just wanted to see if those of you with more experience has any ideas. Thanks so much!
Cathy
-
- Administrator
- Posts: 78534
- Joined: 16 Jan 2010, 00:14
- Status: Microsoft MVP
- Location: Wageningen, The Netherlands
Re: Adding Section Titles to Slides
There is no built-in support for this, but you could run the following macro, created by PowerPoint MVP John Wilson:
Code: Select all
Sub SectionFooters()
Dim osld As Slide
Dim oshp As Shape
Dim b_found As Boolean
If ActivePresentation.SectionProperties.Count > 0 Then
For Each osld In ActivePresentation.Slides
osld.HeadersFooters.Footer.Visible = True
For Each oshp In osld.Shapes
If oshp.Type = msoPlaceholder Then
If oshp.PlaceholderFormat.Type = ppPlaceholderFooter Then
oshp.TextFrame.TextRange = _
ActivePresentation.SectionProperties.Name(osld.sectionIndex)
End If
End If
Next oshp
Next osld
End If
End Sub
Best wishes,
Hans
Hans