Question

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

我没有使用Visual Basic在MS Office 2007中创建宏的经验，特别是PowerPoint '07。

我只需要一个用于将新方程插入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对象完成？我觉得这是一个非常简单的问题，你可以解决一个知识丰富的研究员，让我免于几个小时的谷歌搜索，让我无处可去.......

基本上，最终结果将是快速访问工具栏上的一个按钮，该按钮将打开公式编辑器3.0

Answer 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 2007中创建新的公式宏

1 个答案: