只需要將以下VBA代碼中紅色字體，替換成需要更改的字體參數(shù)，然后將修改完成的VBA代碼放入VBA編輯器中運(yùn)行即可!只適合PPT2007及其以上版本!

Sub change()

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 '改為所需的文字大小

.Color.RGB = RGB(Red:=255, Green:=120, Blue:=0) '改成想要的文字顏色，用RGB參數(shù)表示

End With

End If

Next

Next

End Sub