Авто - обновленная дата изменения в Powerpoint

Question

Есть ли способ добавить дату последнего изменения слайда в PowerPoint?

Дата, предложенная powerpoint, может быть фиксированной или автоматически обновленной, но она обновляется при каждом принтиге / открытии. Я бы хотел, чтобы он обновлялся при смене слайда, а не при его просмотре / распечатке.

Answer 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