批量处理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