Adding Section Titles to Slides

[cshenoy]

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!

[HansV]

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