如何一次性更改ppt中的全部字体 下载

如何一次性更改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 
本站免费提供《如何一次性更改ppt中的全部字体》下载，我们己经对《如何一次性更改ppt中的全部字体》进行全面的整理检查，以保证您安全的下载《如何一次性更改ppt中的全部字体》，本站还有更多房地产资料提供下载，为下次能方便快速的找到本站，记得收藏我们的网址（http://www.liushuye.com）哦！