有会vba的么？帮我看看这个代码

yujing

Sub 公式()
    ActivePresentation.Slides(1).Shapes.AddOLEObject(ClassName:="Equation.3").OLEFormat.DoVerb 1
    'SendKeys "%"
    'SendKeys "Ab"
End Sub
上面的代码，无论中间那两句是不是被注释，都没有用（运行时），但设计时偶尔可以。
如果是运行时，根本就打不开公式编辑器。
求帮助一下怎么在运行时能打开公式编辑器。