1

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

我对用于在 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 对象来完成？我觉得这是一个非常简单的问题，可以由你们中的一个知识渊博的人来解决，让我免于再花几个小时的谷歌搜索，这让我无处可去....

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

4

1 回答 1

2

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

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

希望这可以帮助。

于 2011-10-21T04:23:27.840 回答