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

Question

我想在我的 PowerPoint (2016) 幻灯片上放一张 table，它应该如下所示：

sysdate - 1	sysdate	sysdate + 1
02.09.2021	03.09.2021	04.09.2021

为使幻灯片直观，日期应自动更新。

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

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

Answer 1

首先，按照 the steps here 为您的 table 命名。之后，插入一个模块（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) 设置 headers.

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

PowerPoint: Add Date of Yesterday and Tomorrow to a Slide

powerpoint

date

powerpoint-2016