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

Dim pptApp As PowerPoint.Application
Dim pptPres As PowerPoint.Presentation

Set pptApp = New PowerPoint.Application
Set pptPres = pptApp.Presentations.Open("C:\Path\to\YourPresentation.pptx")

Dim slide As PowerPoint.Slide
Dim shape As PowerPoint.Shape
Dim headerFooter As PowerPoint.HeaderFooter

For Each slide In pptPres.Slides
    For Each shape In slide.Shapes
        If shape.HasTextFrame Then
            If shape.TextFrame.HasText Then
                Set headerFooter = shape.TextFrame.TextRange.HeaderFooter
                If Not headerFooter Is Nothing Then
                    ' 更改日期和时间的格式
                    headerFooter.DateAndTime.Visible = msoTrue
                    headerFooter.DateAndTime.Format = "yyyy-mm-dd"
                End If
            End If
        End If
    Next shape
Next slide

pptPres.Save
pptPres.Close
pptApp.Quit

Set pptPres = Nothing
Set pptApp = Nothing