Hide and Unhide Slide Titles

Problem

Solution

Here are two macros that approach the problem in different ways.

HideSlideTitles1 moves the slide title off the slide so it doesn't display during slide shows, but it's still easy to edit if need be.

HideSlideTitles2 makes the slide title invisible. You can run the companion ShowSlideTitles2 to make them visible again.

There's no ShowSlideTitles1 but with a little clever programming, you could record the original position of the slide title when moving it in HideSlideTitles1 (hint: think Tags) and use that info to reposition the title later.

Sub HideSlideTitles1()
' Hides slide title by moving it just off the slide
' Puts it 2 points to the right and below bottom right corner of slide

    Dim oSlide As Slide
    Dim dSlidewidth As Double
    Dim dSlideheight As Double

    dSlidewidth = ActivePresentation.PageSetup.Slidewidth
    dSlideheight = ActivePresentation.PageSetup.Slideheight

    For Each oSlide In ActiveWindow.Presentation.Slides
            With oSlide.Shapes.Title
                .Left = dSlidewidth + 2
                .Top = dSlideheight + 2
            End With
    Next oSlide

End Sub


Sub HideSlideTitles2()
' Hides slide title by hiding the shape

    Dim oSlide As Slide

    For Each oSlide In ActiveWindow.Presentation.Slides
            oSlide.Shapes.Title.Visible = msoFalse
    Next oSlide

End Sub

Sub ShowSlideTitles2()
' Reverses the effect of HideSlideTitles2

    Dim oSlide As Slide

    For Each oSlide In ActiveWindow.Presentation.Slides
            oSlide.Shapes.Title.Visible = msoTrue
    Next oSlide

End Sub

See How do I use VBA code in PowerPoint? to learn how to use this example code.

Search terms:hide,title,invisible

---