批量修改PPT所有的字体样式

今天在百度文库上下载了一篇关于Orale优化的PPT，无奈下载下来文中字体大的离谱，而且页码不少，要是我一页一页Ctrl+A全选去修改，未免不是一件体力活，于是在网上找到了一段关于批量修改PPT字体的宏，修改后亲测可用，便记录下来，供参考。

具体操作方法：开发工具——宏——创建宏

将如下方法粘贴，运行即可

代码如下：

Sub ziTiEdit()
    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"
                    .Size = 10
                    .Color.RGB = RGB(Red:=255, Green:=255, Blue:=255)
                End With
            End If
        Next
    Next
End Sub