使用excel VBA更改powerpoint中页眉/页脚日期和时间的格式

Question

我目前有以下设置。一切正常，除了DateAndTime.Format没有更改幻灯片左下角的日期格式。日期为2020年10月4日，但我无法使用以下命令将其更改为2020年4月10日：

Set PowerPointApp = GetObject(class:="PowerPoint.Application")
Set myPresentation = PowerPointApp.Presentations.Add
myPresentation.ApplyTemplate "[template file here]"
Const ppSlideSizeA4Paper = 2
myPresentation.PageSetup.SlideSize = ppSlideSizeA4Paper
With myPresentation.SlideMaster.HeadersFooters
.SlideNumber.Visible = True
.DateAndTime.Visible = True
.DateAndTime.UseFormat = True
.DateAndTime.Format = ppDateTimeMMMMdyyyy
End With

Answer 1

我想您发现了一个错误，因为VBA不会更改母版或其子版布局的日期格式。可以在幻灯片上设置：

Sub DateTime()
Dim oSlide As Slide
For Each oSlide In ActivePresentation.Slides
With oSlide.HeadersFooters
.SlideNumber.Visible = True
With .DateAndTime
.Format = ppDateTimeMMMMdyyyy
.Visible = msoTrue
End With
End With
Next oSlide
End Sub

但是，插入新幻灯片时，日期仍将反映布局上设置的格式，您必须重新运行宏。