PowerPoint 全局修改字体

打开宏，运行以下代码

Sub Font()
    Dim oShape As Shape
    Dim oSlide As Slide
    Dim oTxtRange As TextRange
    On Error Resume Next
    For Each oSlide In ActivePresentation.Slides
    For Each oShape In oSlide.Shapes
    Set oTxtRange = oShape.TextFrame.TextRange
    If Not IsNull(oTxtRange) Then
    With oTxtRange.Font
        .Name = "楷体_GB2312"       '更改为需要的字体
        .Size = 20       '改为所需的文字大小
        .Color.RGB = RGB(Red:=255, Green:=0, Blue:=0) '改成想要的文字颜色，用RGB参数表示
    End With
    End If
    Next
    Next
End Sub