Comment créer un addin pour PowerPoint 2003

Question

Je veux créer un addin pour PowerPoint 2003 qui ajoute un bouton à la barre d'outils. Comment puis-je faire cela?

Answer 1

Créez un nouveau module et ajoutez la fonction autoopen ci-dessous. Vous devez enregistrer le fichier en tant que ppa dans le dossier 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

Si votre cible est PowerPoint 2007, consultez Robert Green, créer un complément d'application Add-in Automatiser Bureau commun Tâches

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