如何一次性更改ppt中的全部字體？起初這個我也不知道，也是在百度上搜索得來的。非常感謝大家！當(dāng)然，我也要把這樣的好東西共享一下，為大家節(jié)約時間！

    先看第一種方法。一般高手都是用這種方法的，我不會用！

點(diǎn)擊ppt中的工具里的宏選項里的宏。然后輸入你要創(chuàng)建的宏名點(diǎn)擊創(chuàng)建按鈕，在出現(xiàn)的頁面中將下面一段代碼覆蓋掉原先的代碼：

Sub OED01()  '批量修改字體格式、大小和顏色
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) '改成你想要的文字顏色
          End With
          End If
   Next
   Next
End Sub