使用vba编程 在powerpoint中插入公式

您可以使用以下 VBA 代码将 LaTeX 公式插入 PowerPoint 中：

Sub InsertFormula()
    Dim formula As String
    formula = "Your LaTeX formula here"
    
    Dim oSh As Shape
    Set oSh = ActivePresentation.Slides(1).Shapes.AddOLEObject(Left:=100, Top:=100, Width:=200, Height:=100, ClassName:="Equation.3", Link:=False)
    oSh.OLEFormat.Object.Formula = formula
End Sub

将 "Your LaTeX formula here" 替换为您要插入的公式，然后运行此代码即可将其插入到当前幻灯片的指定位置。请注意，在插入公式之前，您需要将 Equation 编辑器添加到 PowerPoint 中。

相关问题

vba编程 在powerpoint中插入公式

您可以使用以下 VBA 代码将 LaTeX 公式插入 PowerPoint 中：

Sub InsertFormula()
    Dim formula As String
    formula = "Your LaTeX formula here"
    
    Dim oSh As Shape
    Set oSh = ActivePresentation.Slides(1).Shapes.AddOLEObject(Left:=100, Top:=100, Width:=200, Height:=100, ClassName:="Equation.3", Link:=False)
    oSh.OLEFormat.Object.Formula = formula
End Sub

将 "Your LaTeX formula here" 替换为您要插入的公式，然后运行此代码即可将其插入到当前幻灯片的指定位置。请注意，在插入公式之前，您需要将 Equation 编辑器添加到 PowerPoint 中。

vba编程 在powerpoint中插入墨迹公式

您可以使用以下 VBA 代码将墨迹公式插入 PowerPoint 中：

Sub InsertInk()
    Dim oSlide As Slide
    Set oSlide = ActivePresentation.Slides(1)
    
    Dim oInk As Shape
    Set oInk = oSlide.Shapes.AddShape(msoShapeInk, 100, 100, 200, 100)
    
    oInk.Ink.InsertStrokesFromFile "C:\Path\To\Ink.strokes"
End Sub

将 "C:\Path\To\Ink.strokes" 替换为您保存墨迹公式的文件路径，然后运行此代码即可将其插入到当前幻灯片的指定位置。请注意，在插入墨迹公式之前，您需要使用墨迹输入或其他墨迹输入设备创建并保存墨迹公式。