一键修改 PPT 所有页面的字体设置

需要使用宏（macro）来完成，宏代码如下：

Sub Change_font_name()
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"
          End With
          End If
   Next
   Next
End Sub