一次性修改ppt字体颜色的宏命令2016年4月13日

在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 = "楷体_GB2312" '改成你需要的字体

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

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

End With

End If

Next

Next

End Sub

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