vba - 如何将PowerPoint中的日期自动更新为上个月的最后一天

Question

我需要弄清楚如何自动更新 powerpoint 2013 中的一系列日期。目前它是从 2017 年 1 月到 2017 年 3 月 31 日，但每个月我都需要更新日期到上个月末。所以对于 5 月，我需要 2017 年 1 月 1 日到 2017 年 4 月 30 日。

Answer 1

为了能够运行它，您的幻灯片母版中应该有一个名为“日期”的形状。

Sub showDate()
Dim date1, date2, d1, y1, d2 As Date
Dim m1, m2 As String

date1 = DateSerial(Year(Now), Month(Now) - 4, 1)
date2 = DateSerial(Year(Now), Month(Now), 0)

d1 = Day(date1)
m1 = MonthName(Month(date1))
y1 = Year(date1)

d2 = Day(date2)
m2 = MonthName(Month(date2))

ActivePresentation.SlideMaster.Shapes("date").TextFrame.TextRange = m1 & " " & d1 & ", " & y1 & " - " & m2 & " " & d2 & ", " & Year(date2)
End Sub

Answer 2

Public Sub BuildDateRange()

    Dim dateFrom As Date
        dateFrom = DateValue("01/01/2017")

    Dim dateTo As Date
        dateTo = DateAdd("y", -1, DateSerial(Year(Date), Month(Date), 1))

    While dateFrom <= dateTo

        'add <dateFrom> to your date range...

        dateFrom = DateAdd("y", 1, dateFrom)
    Wend

End Sub