如何爲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