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

(2009-05-24 16:02:24)

转载

标签： 杂谈

   如何一次性更改ppt中的全部字体？起初这个我也不知道，也是在百度上搜索得来的。非常感谢大家！当然，我也要把这样的好东西共享一下，为大家节约时间！

   先看第一种方法。一般高手都是用这种方法的，我不会用！

点击ppt中的工具里的宏选项里的宏。然后输入你要创建的宏名点击创建按钮，在出现的页面中将下面一段代码覆盖掉原先的代码：

SubOED01()  '批量修改字体格式、大小和颜色
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 InoSlide.Shapes
         SetoTxtRange = oShape.TextFrame.TextRange
         If NotIsNull(oTxtRange) Then
        WithoTxtRange.Font
           .Name ="楷体_GB2312"      '改成你需要的字体
           .Size =20      '改成你需要的文字大小
           .Color.RGB= RGB(Red:=255, Green:=0, Blue:=0) '改成你想要的文字颜色
         EndWith
         EndIf
   Next
   Next
End Sub