每季度更改幻灯片中的日期

【问题标题】：Change date in slides for every quarter每季度更改幻灯片中的日期
【发布时间】：2018-04-16 06:19:52
【问题描述】：

我有一个 PowerPoint，有几张标题幻灯片。我想知道是否可以在幻灯片中自动更改日期以参考年份和季度。

因此，例如 6 月应该是 2018 Q2。

可以在 VBA for PowerPoint 中完成吗？

【问题讨论】：

此文本（“2018 Q2”）在幻灯片中的什么位置？在文本框中？页脚？在许多不同的形状？图表？

标签： vba powerpoint

【解决方案1】：

这是将 SlideMaster 页脚更改为您的年/季格式的 VBA

Sub FormatSlideMasterFooter()

ActivePresentation.SlideMaster.HeadersFooters.Footer.Text = Format(Now(), "yyyy") & " L" & Int(Month(Now()) / 4) + 1


End Sub

【讨论】：