date - PowerPoint：将昨天和明天的日期添加到幻灯片

Question

我想在我的 PowerPoint (2016) 幻灯片上有一个表格，应该如下所示：

系统日期 - 1	系统日期	系统日期 + 1
02.09.2021	03.09.2021	04.09.2021

为了保持幻灯片直观，日期应自动更新。

通过使用Insert -> Text -> Date & Time，我可以为中心列添加一个包含当前日期的字段。

如何为昨天和明天添加动态字段？

Answer 1

首先，按照此处的步骤命名您的表。之后，插入一个模块（Alt+F11，Insert - Module）并添加这段代码：

Sub SetTableHeaders()
    
    Const SlideNo = 1
    Const TableName = "TableName Here"
    
    Dim MyTable As Table
    Set MyTable = ActivePresentation.Slides(SlideNo).Shapes(TableName).Table
    
    MyTable.Rows(1).Cells(1).Shape.TextFrame.TextRange.Text = Format(Now - 1, "yyyy-mm-dd")
    MyTable.Rows(1).Cells(2).Shape.TextFrame.TextRange.Text = Format(Now, "yyyy-mm-dd")
    MyTable.Rows(1).Cells(3).Shape.TextFrame.TextRange.Text = Format(Now + 1, "yyyy-mm-dd")
    
End Sub

用正确的值替换SlideNo和TableName值。运行它 (F5) 设置标题。