Авто – обновленная дата изменения в 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 = "Последнее изменение: " & 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 = "Последнее изменение: " & Format(Now(), "mm/dd/yyyy")
                End If
            End If
        Next
    End With
Next
End Sub

Ответ или решение

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

Введение

Добавление даты последнего изменения слайда в PowerPoint — это полезная функция, которая позволяет пользователям отслеживать время редактирования и актуальность содержимого презентации. В стандартной версии PowerPoint дата обновляется только при открытии или при печати документа, что может быть неудобно. В этой статье мы разберем, как создать автоматическое обновление даты изменения слайда с помощью макросов.

Решение проблемы

PowerPoint поддерживает создание макросов, которые можно использовать для выполнения различных действий, включая обновление даты последнего изменения. Ниже представлен код, который вы можете использовать для создания двух типов макросов: один для обновления даты на основном слайде (Slide Master) и другой для обновления даты на выбранных слайдах.

Пример кода макроса

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 = "Последнее изменение: " & Format(Now(), "dd/mm/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 = "Последнее изменение: " & Format(Now(), "dd/mm/yyyy")
                    End If
                End If
            Next
        End With
    Next
End Sub

Пошаговое руководство по применению макросов

1. Открытие редактора VBA:

   • Нажмите Alt + F11, чтобы открыть редактор Visual Basic for Applications (VBA).

2. Создание нового модуля:

   • В редакторе VBA щелкните правой кнопкой мыши на вашем проекте в левой панели и выберите Insert → Module.

3. Вставка кода:

   • Скопируйте и вставьте приведённый выше код в новый модуль.

4. Сохранение и закрытие редактора:

   • Сохраните изменения и закройте редактор.

5. Назначение макроса кнопке:

   • Чтобы вызвать макрос, создайте кнопку на слайде или в разделе Вставка выберите Фигуры и нарисуйте кнопка.
   • Щелкните правой кнопкой мыши на кнопке, выберите Назначить макрос и выберите нужный макрос (либо UpdateModifyDateOnMaster, либо UpdateModifyDateOnSlides).

Заключение

Использование макросов для автоматического обновления даты изменения слайдов в PowerPoint делает работу более организованной и бесстрашной. Эти простые шаги обеспечат вам актуальную информацию о времени последнего редактирования, что особенно полезно в командной работе и при демонстрациях.

Для более детального изучения возможностей работы с макросами в PowerPoint, можете обратиться к документации Microsoft или искать сообщества и форумы, где пользователи обмениваются опытом.