在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
正在阅读：
一次性修改ppt字体颜色的宏命令2016年4月13日01-01
感谢长辈的话语 何须惆怅近黄昏01-01
咏柳古诗的意思和赏析01-01
划线法和倾注法分的步骤01-01
难忘的泼水节 古诗二首01-01
七年级环境教育第十课 第十课 人类面临的严峻挑战——环境问题01-01
教育随笔-对待撒谎孩子01-01
描写春天的诗句——《东城寻春》01-01
领土的解释及造句01-01