Jak ustawić cały tekst we wszystkich slajdach na tę samą czcionkę?

Robię teraz prezentację, która wygląda bardzo podobnie do potwora Frankensteina. Na wszystkich slajdach używane są 4 różne czcionki i chciałbym to znormalizować. Chcę ustawić cały tekst na tę samą czcionkę.
Jak mogę to zrobić?

Próbowałem po prostu wybrać wszystkie slajdy, ale wtedy nie można wybrać menu Czcionka (i to w miarę moich możliwości programu PowerPoint).

Wybierz wszystkie slajdy ( Ctrl+ A) za pomocą Outlinewidoku. Następnie możesz zmienić czcionkę dla zaznaczonego tekstu.

W 2010 i 2013 roku jest to bardzo proste

1) Karta Narzędzia główne> Zamień (kliknij strzałkę Więcej)> Zamień czcionki

Powinieneś edytować Slide Master . Ustaw wszystkie czcionki jako żądane na wszystkich slajdach w suwaku.

Powyższe sugestie pozwolą Ci zmienić czcionkę dowolnego tekstu w tytule / treści / itp. symbole zastępcze (elementy „Kliknij tutaj”, które pojawiają się na nowych slajdach). Nie wpłynie to na inny tekst; do tego trzeba użyć trochę 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