powerpoint可以通过vba代码在文本框中插入墨迹公式生成的公式

是的，您可以通过 VBA 代码在 PowerPoint 的文本框中插入墨迹公式生成的公式。以下是一个示例代码：

Sub InsertInkEquation()
    '创建一个新的文本框
    Dim tb As Shape
    Set tb = ActivePresentation.Slides(1).Shapes.AddTextbox( _
        msoTextOrientationHorizontal, 100, 100, 200, 100)
        
    '将墨迹公式插入到文本框中
    Dim inkEq As InkPicture
    Set inkEq = InkPictureConverter.InkToInkPicture( _
        Application.CommandBars.FindControl(Id:=1849).Command)
    inkEq.PictureFormat.CropBottom = 2
    inkEq.PictureFormat.CropTop = 2
    inkEq.PictureFormat.CropRight = 2
    inkEq.PictureFormat.CropLeft = 2
    inkEq.Width = 200
    inkEq.Height = 100
    inkEq.Top = tb.Top
    inkEq.Left = tb.Left
    inkEq.ZOrder msoSendToBack
    tb.Delete
End Sub

这个代码会在第一张幻灯片上创建一个新的文本框，并将当前选定的墨迹公式插入到文本框中。请注意，这个示例代码假定您已经通过“插入”选项卡中的“墨迹公式”命令插入了一个墨迹公式，并且它是当前选定的对象。如果您还没有插入墨迹公式，请先插入一个墨迹公式并将其选中，然后再运行这个代码。