Question

我正在尝试编写一个将方程式插入PowerPoint幻灯片的宏，但我找不到任何命令来实现这一点。

到目前为止我发现的唯一数学/方程相关元素是Textrange2类中的MathZones，但我认为你不能用它创建一个新的方程式。至少我没弄清楚如何。

我不想插入一个Equation.3对象，如下所述 Create new Equation Macro in PowerPoint 2007。

应按照与按下公式按钮相同的方式插入公式。

我现在正在寻找几个小时，甚至没有任何想法......

Answer 1

感谢您的帮助，但我终于找到了我想要的解决方案。这比我预期的要容易得多......

Application.CommandBars.ExecuteMso ("InsertBuildingBlocksEquationsGallery")

完整示例：

Sub insert_equation()

  Application.CommandBars.ExecuteMso ("InsertBuildingBlocksEquationsGallery")

  With ActiveWindow.Selection.ShapeRange.TextFrame
  With .TextRange
      .Font.Size = 16
      .Text = "\omega"
  End With
  End With

  Application.CommandBars.ExecuteMso ("EquationProfessional")

End Sub

Answer 2

这可能有助于您入门：

将等式插入现有文本框，然后选择它：

Sub WhatIsTheEquationMadeOf()

Dim x as Long

With ActiveWindow.Selection.ShapeRange(1).TextFrame2.TextRange
   For x = 1 to Len(.MathZones(1).Text)
      Debug.Print AscW(Mid$(.MathZones(1).Text,x,1))
   Next
End With

End Sub

这会让你知道它的期望。然后你可以（？）能够将.Mathzones（1）.Text设置为另一个文本框中的相同值作为测试，以查看等式是否出现。

Powerpoint 2013 vba创建Equation / Mathzone

2 个答案: