一键批量修改PPT所有页面的字体样式、大小和颜色的方法

问题背景

作为大学生的我们，在为每门课程的考试备考的时候，可能像我有这样的需求：打印所有老师上课讲解用到的PPT，这样可以在几天时间内临时抱佛脚通过考试。打印PPT的技巧就是一面纸张上打印2x3页PPT，同时这也导致每一页PPT内容较小，因此就需要每页PPT的字体样式为正规样式（如：微软雅黑）、大小尽量要大（如：字号24）、颜色要深（如：黑色），这样能保证我们看得清每一页较小的PPT。
我们可以在具体的某一页PPT按住Ctrl+A选中全部元素（文字、图片、表格等）然后调节字体大小和颜色即可统一该页PPT的字体样式、大小、颜色。

但是PowerPoint有这样一个限制：我们不能全部选中所有的PPT页面进而如上面一页PPT一般一键设置字体样式、大小、颜色。因为当我们按住Ctrl+A选中全部PPT页面时，我们会发现字体调节等功能是灰色的，即不可设置参数状态。

那么，我们有没有办法可以实现这个需求呢？这就要用到PowerPoint的宏了。

实现步骤

在PowerPoint的视图-宏中输入本次要创建的宏的名称PPT同一字体设置，创建。

在以下弹出的宏代码编辑框中，输入再下方的宏代码，输入完成后按住Ctrl+S保存。

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 = "微软雅黑"       '更改为需要的字体
             .Size = 24       '改为所需的文字大小
             .Color.RGB = RGB(Red:=0, Green:=0, Blue:=0) '改成想要的文字颜色，用RGB参数表示。这里代表黑色
          End With
          End If
   Next
   Next
End Sub

若出现以下弹框，选择是。

再次点击PowerPoint的视图-宏，选中我们刚编辑好的宏，再点击“运行”，即可完成一键批量修改PPT所有页面的字体样式、大小和颜色。