如何为PowerPoint 2003创建插件

Question

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

Answer 1

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

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中，检查罗伯特·格林，创建一个应用程序级外接自动执行常见办公任务

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