在 PowerPoint 2007 中创建新的方程式宏答案

【问题标题】：Create new Equation Macro in PowerPoint 2007在 PowerPoint 2007 中创建新的方程式宏
【发布时间】：2011-12-12 05:50:07
【问题描述】：

我正在帮助我的一位教授，但本来应该很简单的任务却开始让我感到沮丧。

我对用于在 MS Office 2007（尤其是 PowerPoint '07）中创建宏的 Visual Basic 没有任何经验。

我只需要一个用于将新方程插入 PowerPoint 幻灯片的宏，然后该宏将用作快速访问工具栏上的按钮。宏应该执行这两个任务：

1) 在插入菜单上，单击对象。

2) 在对象类型列表中，单击 Microsoft Equation 3.0。

（取自http://office.microsoft.com/en-us/powerpoint-help/insert-an-equation-HP005194680.aspx ~我知道它“适用”到 2003 年，但它在 2007 年是相同的过程）

我真的很抱歉在这里提出这么简单的问题，但我一直在网上寻求帮助，但找不到我能理解的 VB 库的简单参考。据我了解，我需要向下浏览对象 PowerPoint、演示文稿、幻灯片，然后添加形状？或者也许可以通过 CommandBars 对象来完成？我觉得这是一个非常简单的问题，可以由你们中的一位知识渊博的伙伴解决，让我免于再花几个小时的 Google 搜索，而这让我无处可去....

基本上，最终结果将是快速访问工具栏上的一个按钮，可以打开 Equation Editor 3.0

【问题讨论】：

标签： vba powerpoint powerpoint-2007

【解决方案1】：

Microsoft Equation 3.0 创建一个 OLE 对象，可以使用以下代码创建和打开它：

Dim SlideNumber As Integer
Dim ShapesCount As Integer

SlideNumber = ActiveWindow.View.Slide.SlideIndex
With ActivePresentation.Slides(SlideNumber)
    .Shapes.AddOLEObject Left:=100, Top:=100, Width:=200, Height:=100, ClassName:="Equation.3", DisplayAsIcon:=False
    ShapesCount = .Shapes.Count
    .Shapes(ShapesCount).OLEFormat.Activate
End With

值得注意的是，上面的代码需要选择一张幻灯片才能工作。如果没有选择幻灯片，则会抛出错误。您可能希望添加额外的代码来避免这种复杂情况。

希望这会有所帮助。

【讨论】：

这太完美了，谢谢！正是我需要的。我确实注意到宏存储在每个演示文稿中，有没有办法将宏绑定到 PowerPoint 而不是每个演示文稿？
是的。您可以将宏存储在启用宏的 PowerPoint 模板文件 (.potm) 中，然后将该文件放在 PowerPoint 模板的受信任默认位置。任何时候通过文件|新建|我的模板访问此文件时，它都会将其内容复制到新的 PowerPoint 演示文稿中。如果您将文件命名为blank.potm（而不是blank.potx，不应同时存在），这将成为默认演示文稿模板并将其自身复制到所有新的空白演示文稿中。（任何一种方法都应在创建新演示文稿时显示与模板关联的 QAT 按钮。）
太棒了！工作完美，我的教授很高兴非常感谢您的帮助。我的头发看起来好多了，如果我试图弄清楚我自己，我现在可能已经把它全部拿出来了......再次感谢！
我在运行宏之前选择了一张幻灯片，但我仍然收到错误“对象'形状'的方法 AddOLEobject 失败”。
@harishli2020 请发布一个显示您的代码的新问题。