powerponit vba 没有InsertFormula 借口

非常抱歉，我犯了一个错误。PowerPoint VBA 没有 `InsertFormula` 方法。如果要将公式插入到 PowerPoint 文本框中，可以使用以下 VBA 代码：

Sub InsertFormula()
    Dim sld As Slide
    Dim shp As Shape
    Dim txtRng As TextRange
    
    Set sld = ActivePresentation.Slides(1) '假设公式要插入到第一张幻灯片上
    Set shp = sld.Shapes(1) '假设文本框是幻灯片上的第一个形状
    
    Set txtRng = shp.TextFrame.TextRange '获取文本框的文本范围
    
    txtRng.Text = "" '清空文本框的内容
    
    '插入公式
    txtRng.InsertAfter "E=mc"
    shp.TextFrame.TextRange.Characters(txtRng.Characters.Count + 1, 1).Font.Superscript = True
    txtRng.InsertAfter "2"
End Sub

这个宏会在文本框中插入公式“E=mc²”。方法是先插入“E=mc”，然后将“2”设置为上标。你可以根据需要修改这个代码，以插入其他公式。