Question

我想为PowerPoint 2003创建一个插件，为工具栏添加一个按钮。我怎么能这样做？

Answer 1

创建一个新模块并添加以下自动打开功能。您需要将文件保存为addin文件夹中的ppa。

Sub Auto_open()

    Dim oToolbar As CommandBar
    Dim oButton As CommandBarButton

    'Create the toolbar
    Set oToolbar = CommandBars.Add(name:="CommandbarName", Position:=msoBarTop)

    'Add the first button
    Set oButton = oToolbar.Controls.Add(Type:=msoControlButton)

    With oButton
        .Caption = "New button"
        .OnAction = "FunctionTocall"
        .Style = msoButtonIconAndWrapCaption
        .FaceId = 11 'icon
    End With

End Sub

Answer 2

如果您的目标是PowerPoint 2007，请检查Robert Green，创建应用程序级外接程序以自动执行常见Office任务

http://msdn.microsoft.com/en-us/library/dd935909.aspx

如何为PowerPoint 2003创建插件

2 个答案: