powerpoint通过vba在文本框中插入墨迹公式

是的，你可以通过VBA代码在PowerPoint文本框中插入墨迹公式。下面是一个示例代码，它可以将墨迹公式图片插入到PowerPoint文本框中：

Sub InsertInkEquation()
    Dim oSlide As Slide
    Dim oShape As Shape
    Dim oInkEquation As InkEquation
    Dim InkImage As Variant
    
    ' 获取当前幻灯片
    Set oSlide = ActiveWindow.View.Slide
    
    ' 创建文本框
    Set oShape = oSlide.Shapes.AddTextbox(msoTextOrientationHorizontal, 100, 100, 200, 100)
    
    ' 创建墨迹公式对象
    Set oInkEquation = New InkEquation
    
    ' 设置墨迹公式
    oInkEquation.Formula = "x^2 + y^2 = r^2"
    
    ' 将墨迹公式转换为图片
    InkImage = oInkEquation.Render(200, 100, 96)
    
    ' 将图片插入到文本框中
    oShape.Fill.UserPicture InkImage
    
End Sub

这个代码将在幻灯片上创建一个文本框，并将"x^2 + y^2 = r^2"这个墨迹公式插入到文本框中。你可以根据需要修改代码中的公式内容和文本框位置大小。