在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
这样,通过Excel VBA就可以实现更改PowerPoint中页眉/页脚日期和时间格式的操作。
推荐的腾讯云相关产品:腾讯云PPTV(https://cloud.tencent.com/product/pptv)
领取专属 10元无门槛券
手把手带您无忧上云