2023年如何一次性更改中的全部字体.pdfVIP

如何一次性更改 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 改成你需要的字体