Bagaimana cara mengatur semua teks di semua slide ke font yang sama?

Saya sedang membuat presentasi yang sangat mirip dengan monster Frankenstein sekarang. Ada 4 font berbeda yang digunakan di seluruh slide, dan saya ingin menormalkan ini. Saya ingin mengatur semua teks ke font yang sama.
Bagaimana saya bisa melakukan itu?

Saya mencoba hanya memilih semua slide, tetapi kemudian Anda tidak dapat memilih menu Font (dan sejauh pengalaman PowerPoint saya berjalan).

Pilih semua slide ( Ctrl+ A) menggunakan Outlinetampilan. Anda kemudian dapat mengubah Font untuk teks yang dipilih.

Pada 2010 dan 2013 sangat sederhana

1) Tab Beranda> Ganti (klik Lainnya panah)> Ganti font

Anda harus mengedit Master Slide . Atur semua font sebagai yang Anda inginkan di semua slide di Slide Master.

Saran di atas akan memungkinkan Anda untuk mengubah font untuk teks apa pun di judul / tubuh / dll. placeholder ("Klik di sini" hal-hal yang muncul pada slide baru). Ini tidak akan memengaruhi teks lain; untuk itu, Anda harus menggunakan sedikit 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