写VBA代码将PPT中所有表格文本框图表中的可编辑文字的字体修改为微软雅黑

Sub ChangeFont() Dim ppt As Presentation Set ppt = ActivePresentation

Dim slide As Slide
Dim shape As Shape

For Each slide In ppt.Slides
    For Each shape In slide.Shapes
        If shape.HasTextFrame Then
            If shape.TextFrame.HasText Then
                If shape.TextFrame.TextRange.Font.Name <> "微软雅黑" Then
                    shape.TextFrame.TextRange.Font.Name = "微软雅黑"
                End If
            End If
        End If
    Next shape
Next slide

End Sub