powerpoing 用vba插入数学公式的问题

ifreeswan

1.     With oShape.TextFrame.TextRange
   
2.             .Text = "7/2"
   
3.             .Font.Size = 36
   
4.             .Select
   
5.             Call Application.CommandBars.ExecuteMso("InsertBuildingBlocksEquationsGallery")
   
6.             Call Application.CommandBars.ExecuteMso("EquationProfessional")
   
7.     End With
   

复制代码

用 Application.CommandBars.ExecuteMso 的办法，需要先 select  但是又时候 select 会出错。
请问，还有没有其他的方法，比如 word 使用 omath。
或者，怎么让 select 不出错。