虽然看上去其貌不扬

但是短短几行代码，却可以给你提高极大的工作效率

Sub 改字体()

Dim OShape As Shape

Dim OSilde As Slide

Dim OTxtRange As TextRange

On Error Resume Next

For Each OSlide In ActivePresentation.Slides

    For Each OShpae In OSlide.Shapes

        Set OTxtRange = OShape.TextFrame.TextRange

        If Not IsNull(OTxtRange) Then

        With OTxtRange.Font

            .Name = "Times New Roman"

            .Size = 20

            .Color.RGB = RGB(Red:=0, Green:=0, Blue:=0）

            End With

            End If

    Next

    Next

End Sub