如何批量修改ppt字体大小及颜色

Question

标题字体：黑体40
下面的文字是黑体32
所有字体颜色是黑色！
跪求批量修改整张PPT的方法
或者是用宏，教一下我呀

Answer 1

视图-母板-幻灯片母板，进入母板后，修改母板中的标题和文本格式，改完后，单击“关闭母板视图”，返回幻灯片，所有幻灯片中的字体格式就都改过来了。本回答被提问者采纳

Answer 2

即可实现，看图操作吧!
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
//更改具备相同文字区域的PPT批量修改(跟据上面的例字整理所得)
Sub
aa()
'
'
宏由
wsqxushui
创建，日期
2011-3-16。
'
Dim
oShape
As
Shape
Dim
oSlide
As
Slide
Dim
oTxtRange
As
TextRange
On
Error
Resume
Next
For
Each
oSlide
In
ActivePresentation.Slides
'遍历所有的幻灯片
Set
oShape
=
oSlide.Shapes("Text
Box
4")
'每个幻灯片中文字区域
Set
oTxtRange
=
oShape.TextFrame.TextRange
'每个区域中文字
If
Not
IsNull(oTxtRange)
Then
With
oTxtRange.Font
.Name
=
"宋体"
'改成你需要的字体
.Size
=
14
'改成你需要的文字大小
.Color.RGB
=
black
'改成你想要的文字颜色
End
With
End
If
Next
End
Sub