R
RobFMS
I am working on some automation code and I am trying to get an understanding
of the "HasTitleMaster" property. I was looking at the macro code that was
being generated from PowerPoint (2003). If someone could offer some detail
information on this, I would appreciate it.
'Public Sub HeadersAndFooters()
'
' If ActivePresentation.HasTitleMaster Then
' With ActivePresentation.TitleMaster.HeadersFooters
' With .DateAndTime
' .Format = ppDateTimeMdyy
' .Text = ""
' .UseFormat = msoTrue
' .Visible = msoTrue
' End With
' With .Footer
' .Text = "(this is the footer)"
' .Visible = msoTrue
' End With
' .SlideNumber.Visible = msoTrue
' End With
' End If
' With ActivePresentation.SlideMaster.HeadersFooters
' With .DateAndTime
' .Format = ppDateTimeMdyy
' .Text = ""
' .UseFormat = msoTrue
' .Visible = msoTrue
' End With
' With .Footer
' .Text = "(this is the footer)"
' .Visible = msoTrue
' End With
' .SlideNumber.Visible = msoTrue
' End With
' With ActivePresentation.Slides.Range.HeadersFooters
' With .DateAndTime
' .Format = ppDateTimeMdyy
' .Text = ""
' .UseFormat = msoTrue
' .Visible = msoTrue
' End With
' With .Footer
' .Text = "(this is the footer)"
' .Visible = msoTrue
' End With
' .SlideNumber.Visible = msoTrue
' End With
'
'End Sub
Thanks,
of the "HasTitleMaster" property. I was looking at the macro code that was
being generated from PowerPoint (2003). If someone could offer some detail
information on this, I would appreciate it.
'Public Sub HeadersAndFooters()
'
' If ActivePresentation.HasTitleMaster Then
' With ActivePresentation.TitleMaster.HeadersFooters
' With .DateAndTime
' .Format = ppDateTimeMdyy
' .Text = ""
' .UseFormat = msoTrue
' .Visible = msoTrue
' End With
' With .Footer
' .Text = "(this is the footer)"
' .Visible = msoTrue
' End With
' .SlideNumber.Visible = msoTrue
' End With
' End If
' With ActivePresentation.SlideMaster.HeadersFooters
' With .DateAndTime
' .Format = ppDateTimeMdyy
' .Text = ""
' .UseFormat = msoTrue
' .Visible = msoTrue
' End With
' With .Footer
' .Text = "(this is the footer)"
' .Visible = msoTrue
' End With
' .SlideNumber.Visible = msoTrue
' End With
' With ActivePresentation.Slides.Range.HeadersFooters
' With .DateAndTime
' .Format = ppDateTimeMdyy
' .Text = ""
' .UseFormat = msoTrue
' .Visible = msoTrue
' End With
' With .Footer
' .Text = "(this is the footer)"
' .Visible = msoTrue
' End With
' .SlideNumber.Visible = msoTrue
' End With
'
'End Sub
Thanks,