如何一次性更改

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 = 

If Not IsNull(oTxtRange) Then 

 With oTxtRange.Font 

.Name = "

楷体

_GB2312"  

'

改成你需要的字体

.Size = 20  

'

改成你需要的文字大小