有没有办法将上次幻灯片更改的日期添加到 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
当您想要更新修改日期时,指定一个按钮来触发此按钮。 - 您可以使用其中任何一种。
第一个宏检查幻灯片母版上的日期占位符并更新它。
第二个宏检查所选幻灯片范围内的日期占位符并更新它。