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

Question

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

sysdate - 1	sysdate	sysdate + 1
02.09.2021	03.09.2021	04.09.2021

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

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

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

Answer 1

首先，关注the steps here 为您的表命名。之后，插入一个模块（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) 设置标题。