【求助】如何用VBA统一修改PPT的字体

whj188

如题，想统一修改PPT所有幻灯片的字体，网上说的切大纲不适用，又百度了一段修改字体的宏代码试着改了一下，运行没成功，修改后的代码如下，求助：

Sub OED01()

Dim oShape As Shape

Dim oSlide As Slide

Dim oTxtRange As TextRange

On Error Resume Next

For Each oSlide InActivePresentation.Slides

For Each oShape In oSlide.Shapes

Set oTxtRange = oShape.TextFrame.TextRange

If Not IsNull(oTxtRange) Then

With oTxtRange.Font

.Name = "微软雅黑"

End With

End If

Next

Next

End Sub

补充内容 (2019-10-28 09:38):
第六行是In ActivePresentation.Slides，粘贴的时候少了个空格
以及，为什么我按照百度上说的切换到大纲视图后，并没有显示所有PPT上的文字，导致不能同意修改字体？

whj188

重新测试，发现只能改英文字体，无法改中文的，而且smartart图形里的字体也改不了……求助_(:з」∠)_