Hide and Unhide Slide Titles
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.