PPT一键修改全部字体

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 = "楷体_GB2312"                             '更改为需要的字体            
        .Size = 15                                         '改为所需的文字大小
        .Bold = False                                     '取消加粗
        .Color.RGB = RGB(Red:=255, Green:=120, Blue:=0)   '改成想要的文字颜色，用RGB参数表示 
      End With
      End If
    Next
Next
End Sub