请高手执招,以下是网上当的代码,高手最好可以直接做到PPT范例里面,不胜感激!
新建一个宏，在宏添加如下代码：
With Application.ActivePresentation
If Not .HasTitleMaster Then .AddTitleMaster
End With
If ActivePresentation.HasTitleMaster Then
With ActivePresentation.TitleMaster.HeadersFooters
With .DateAndTime
.Format = ppDateTimeMdyy
.Text = ""
.UseFormat = msoTrue
.Visible = msoTrue
End With
With .Footer
.Text = ActivePresentation.Slides.Count
.Visible = msoTrue
End With
.SlideNumber.Visible = msoTrue
End With
End If
