自动获取PPT总页数宏代码_不晓得如何用?
请高手执招,以下是网上当的代码,高手最好可以直接做到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 期待高手关注
页:
[1]