TextRange没有InsertOLEObject 方法

非常抱歉，我的回答有误。在 PowerPoint VBA 中，`TextRange` 对象确实没有 `InsertOLEObject` 方法，而是应该使用 `Shapes.AddOLEObject` 方法将 OLE 对象插入到幻灯片中的文本框或形状中。

以下是一个示例代码，演示如何将 MathType 编辑器中的数学公式插入文本框中：

Sub InsertMathEquation()
    Dim slide As Slide
    Dim shape As Shape
    
    '获取当前幻灯片
    Set slide = ActivePresentation.Slides(1)
    
    '插入文本框
    Set shape = slide.Shapes.AddTextbox(msoTextOrientationHorizontal, 100, 100, 200, 100)
    
    '将数学公式插入文本框
    shape.TextFrame.TextRange.Characters.Text = "数学公式："
    shape.TextFrame.TextRange.Characters(12).InsertOLEObject ClassType:="MathType.Document"
End Sub

在此示例中，我们使用 `Shapes.AddTextbox` 方法插入一个文本框，然后使用 `shape.TextFrame.TextRange.Characters(12).InsertOLEObject` 方法将 MathType 编辑器中的数学公式插入文本框中。注意，我们使用 `Characters` 属性引用文本框中的字符，以便在数学公式之前插入文本。