一次全部更改ppt中的字体

1.在ppt的视图–>宏–>创建
2.嵌入代码

Sub 字体()%自带的
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 = "GB-2312"     字形
        .Size = 20                    字大小
        .Color.RGB = RGB(Red:=0, Green:=0, Blue:=0)             字颜色
        End With
        End If
        Next
        Next
     End Sub  %自带的

3.保存后退出，然后找到创建好的宏 运行 --> ok.