如何将所有幻灯片中的所有文本设置为相同的字体？

我正在做一个看起来很像科学怪人的演示文稿。在所有幻灯片中都使用了4种不同的字体，我想对此进行标准化。我想将所有文本设置为相同的字体。
我怎样才能做到这一点？

我尝试仅选择所有幻灯片，但随后您无法选择“ 字体”菜单（就我的PowerPoint经验而言）。

使用视图选择所有幻灯片（Ctrl+ A）Outline。然后，您可以更改所选文本的字体。

在2010年和2013年，它非常简单

1）主页标签>替换（单击更多箭头）>替换字体

您应该编辑Slide Master。将所有字体设置为所需的幻灯片母版中的所有幻灯片。

上面的建议将允许您更改标题/正文/等中任何文本的字体。占位符（新幻灯片上显示的“单击此处”内容）。不会影响其他文字；为此，您需要使用一些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