如何设置ppt字体.docVIP

如何设置ppt字体 　　篇一：如何一次性更改ppt中的全部字体 　　如何一次性更改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 　　For Each oShape In 　　Set oTxtRange = 　　If Not IsNull(oTxtRange) Then 　　With 　　.Name = “楷体_GB2312” ‘改成你需要的字体 　　.Size = 20 ‘改成你需要的文字大小 　　. = RGB(Red:=255, Green:=0, Blue:=0) ‘改成你想要的文字颜色 　　End