在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
批量处理PPT字体格式
最新推荐文章于 2021-11-17 11:34:35 发布