Powerpoint 中自动更新更改日期

Powerpoint 中自动更新更改日期

有没有办法将上次幻灯片更改的日期添加到 PowerPoint 中?

powerpoint 提供的日期可以固定或自动更新,但每次打印/打开时都会更新。我希望它在幻灯片更改时更新,而不是仅在查看/打印时更新。

答案1

有没有办法将上次幻灯片更改的日期添加到 PowerPoint 中?

您可以使用按钮触发的宏,如下所示:

Sub UpdateModifyDateOnMaster()
Dim oShp As Shape
For i = 1 To ActivePresentation.Designs.Count
    With ActivePresentation.Designs(i).SlideMaster.Shapes
        For j = 1 To .Placeholders.Count
            If .Placeholders(j).PlaceholderFormat.Type = ppPlaceholderDate Then
                .Placeholders(j).TextFrame.TextRange.Text = "Last Modified: " & Format(Now(), "mm/dd/yyyy")
            End If
        Next
    End With
Next
End Sub

Sub UpdateModifyDateOnSlides()
Dim oShp As Shape
For i = 1 To ActiveWindow.Selection.SlideRange.Count
    With ActiveWindow.Selection.SlideRange(i).Shapes
        For j = 1 To .Count
            If .Item(j).Type = msoPlaceholder Then
                If .Item(j).PlaceholderFormat.Type = ppPlaceholderDate Then
                    .Item(j).TextFrame.TextRange.Text = "Last Modified: " & Format(Now(), "mm/dd/yyyy")
                End If
            End If
        Next
    End With
Next
End Sub
  • 当您想要更新修改日期时,指定一个按钮来触发此按钮。 - 您可以使用其中任何一种。

  • 第一个宏检查幻灯片母版上的日期占位符并更新它。

  • 第二个宏检查所选幻灯片范围内的日期占位符并更新它。

来源在 PowerPoint 中插入上次修改日期

相关内容