批量更改 PPT 字体的宏代码

' 批量更改 PPT 字体的宏代码

Sub ChangeFont()

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 = "Times New Roman" '改成你需要的字体

' .Size = 20 '改成你需要的文字大小

' .Color.RGB = RGB(Red:=0, Green:=0, Blue:=0) '改成你想要的文字颜色

End With

End If

Next

Next

End Sub

本文来源：https://www.wddqw.com/doc/568271550a4e767f5acfa1c7aa00b52acec79c42.html