Як встановити весь текст у всіх слайдах на один і той же шрифт?

Я роблю презентацію, яка зараз дуже схожа на монстра Франкенштейна. На всіх слайдах використовуються 4 різних шрифтів, і я хотів би це нормалізувати. Я хочу встановити весь текст на один і той же шрифт.
Як я можу це зробити?

Я спробував просто вибрати всі слайди, але потім ви не можете вибрати меню шрифту (і це стосується мого досвіду PowerPoint).

Виберіть усі слайди ( Ctrl+ A) за допомогою Outlineперегляду. Потім можна змінити шрифт для вибраного тексту.

У 2010 та 2013 роках це дуже просто

1) Вкладка Головна> Замінити (натисніть Більше стрілка)> Замінити шрифти

Ви повинні відредагувати слайд-майстер . Встановіть усі шрифти як потрібні на всіх слайдах у майстрі слайдів.

Наведені вище пропозиції дозволять вам змінити шрифт для будь-якого тексту в заголовку / тілі / тощо. заповнювачі (речі "Натисніть тут", які з’являються на нових слайдах). Це не вплине на інший текст; для цього вам потрібно буде використовувати трохи VBA.

Sub TextFonts()

    Dim oSl As Slide
    Dim oSh As Shape
    Dim sFontName As String

    ' Edit this as needed:
    sFontName = "Times New Roman"

    With ActivePresentation
        For Each oSl In .Slides
            For Each oSh In oSl.Shapes
                With oSh
                    If .HasTextFrame Then
                        If .TextFrame.HasText Then
                            .TextFrame.TextRange.Font.Name = sFontName
                        End If
                    End If
                End With
            Next
        Next
    End With

End Sub