TPE

Tavvafi@gmail.com

≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡

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