PPT改字体.pptVIP

* 首先录制一个新的宏 路径：工具 → 宏 → 录制新宏 弹出窗口 → 点击确定 在屏幕的某个地方会出现一个 控制盒 ，见下方红框 点击图中 或 直接关闭 以停止录制这个宏 这样就在PPT里添加了一个宏 进入这个宏 路径：工具 → 宏 → 宏 Macro 1就是我们刚才录制的宏 当然你可以在录制宏的时候换个名字 单击 “编辑” 单击编辑后，进入宏编辑界面，红框里就是宏的VB语句， 下面我们把所有语句都删掉，替换进新的语句，删的方法很简单，框起来delete 将下面的语句，复制进去 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 = Arial 修改字体 .Size = 20 修改字体尺寸 .Color.RGB = RGB(Red:=255, Green:=0, Blue:=0) 改成你想要的文字颜色 End With End If Next Next End Sub 见下图，其中涉及三行语句，分别是设定 字体、字的大小、字的颜色 1） Name = “Arial” 双引号里面就是字体的名称，你可以改成你想要的字体，只要电脑里有，比如宋体、楷体-GB2312 等等，一定要保留 “” 双引号 2） Size = 20 可以改变字体大小，可以根据需要更改 10 20 甚至 小五 四号 这样的都可以 3） Color.RGB = RGB(Red:=255, Green:=0, Blue:=0) 可以改变文字颜色，但是不会调颜色的慎用，只是友情提醒一下，red green blue都是0，那么颜色就是黑色，如果想通篇使用黑色的字，可以用一下，反之，所有都是255，则字呈白色 提醒： 如果你仅需要调整字体、大小、颜色中的一项或两项， 就把不需要设置的那一项，一整行的语句删掉即可 修改完成后点击 运行宏 ，运行以后点 回到PPT界面 这时，你就发现所有的字体都按照你的设定完成了更改 *