Как создать плагин для PowerPoint 2003

Question

Я хочу создать надстройку для PowerPoint 2003, которая добавляет кнопку на панель инструментов.Как я могу это сделать?

Answer 1

Создайте новый модуль и добавьте нижеприведенную функцию автоматического открытия. Вам нужно будет сохранить файл как 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, проверьте Роберт Грин, создайте надстройку уровня приложения для автоматизации общих задач Office

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