批量處理PPT字體格式

在PPT中新建宏文件：
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 = “宋體” '改成你需要的字體
.Size = 20’改字體大小
.Color.RGB = black '改成你想要的文字顏色
End With
End If
Next
Next
End Sub