Macro Powerpoint : Auto_Open et Add-in

Macro Powerpoint : Auto_Open et Add-in - VB/VBA/VBS - Programmation

Marsh Posté le 08-03-2007 à 15:40:20    

Bonjour à tous,  
 
j'ai un probleme de lancement avec auto_open avec le code suivant :
 

Code :
  1. Sub Auto_Open()
  3.       Dim NewControl As CommandBarControl
  5.       ' Store an object reference to a command bar.
  6.       Dim ToolsMenu As CommandBars
  8.       ' Figure out where to place the menu choice.
  9.       Set ToolsMenu = Application.CommandBars
  11.       ' Create the menu choice. The choice is created in the first
  12.       ' position in the Tools menu.
  13.       Set NewControl = ToolsMenu("Tools" ).Controls.Add _
  14.                        (Type:=msoControlButton, _
  15.                         Before:=1)
  17.       ' Name the command.
  18.       NewControl.Caption = "Change to Slide Sorter"
  20.       ' Connect the menu choice to your macro. The OnAction property
  21.       ' should be set to the name of your macro.
  22.       NewControl.OnAction = "ChangeView"
  23.      
  24.      'Lancement de la macro
  25.      Call ma_macro
  26.        
  27. 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  :hello:


Message édité par clems7516 le 08-03-2007 à 15:42:30
Reply

Marsh Posté le 08-03-2007 à 15:40:20   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed