Bonjour à tous,
j'ai un probleme de lancement avec auto_open avec le code suivant :
Code :
- Sub Auto_Open()
- Dim NewControl As CommandBarControl
- ' Store an object reference to a command bar.
- Dim ToolsMenu As CommandBars
- ' Figure out where to place the menu choice.
- Set ToolsMenu = Application.CommandBars
- ' Create the menu choice. The choice is created in the first
- ' position in the Tools menu.
- Set NewControl = ToolsMenu("Tools" ).Controls.Add _
- (Type:=msoControlButton, _
- Before:=1)
- ' Name the command.
- NewControl.Caption = "Change to Slide Sorter"
- ' Connect the menu choice to your macro. The OnAction property
- ' should be set to the name of your macro.
- NewControl.OnAction = "ChangeView"
-
- 'Lancement de la macro
- Call ma_macro
-
- End Sub
|
Cette macro est la macro du site de Microsoft
ma_macro lance un UserForm (menu avec choix et bouton ok qui exerce les changement voulus)
Tout marche tres bien mais qd j'ai crée le Add-in et je le load alors tout marche.
Mais des que je lance le powerpoint avec le Add-in chargé, le menu se lance mais aucun changement n'est apporté au slide alors que la macro toute seule marche tres bien ....
Voila, est-ce quelqu'un a une solution ? pê j ai mal crée le Add-in ( 
)
Mon but était seulement de lancer la macro au démarrage du fichier powerpoint.
Merci d'avance et tres bonne journée 
Message édité par clems7516 le 08-03-2007 à 15:42:30
