写VBA代码将PPT中所有文字的字体修改为微软雅黑

Sub ChangeFont() Dim sld As Slide Dim shp As Shape

For Each sld In ActivePresentation.Slides
    For Each shp In sld.Shapes
        If shp.HasTextFrame Then
            shp.TextFrame.TextRange.Font.Name = "微软雅黑"
        End If
    Next shp
Next sld

End Sub