Bonjour forum,
Il m'est arrivé d'être frustré par l'absence d'évènements dans PowerPoint. Il y a ce tuto très utile de l'excellent Arkam46, mais là encore on coince un peu pour initialiser le gestionnaire d'évènements.
Il serait quand même sympa de pouvoir lancer une procédure automatique à l'ouverture d'une présentation.
Et bien on peut assez simplement en utilisant le chargement d'un onglet personnalisé du ruban. Voici son xml créé avec un éditeur 2007La procédure de Call back est la suivante
Code xml : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> <ribbon startFromScratch="false"> <tabs> <tab id="ghostTab" label="Ghost Tab" getVisible="scbGhostTabVisible"> </tab> </tabs> </ribbon> </customUI>A l'ouverture de la présentation on a le message "Coucou". Le clou c'est que l'onglet bidon n'est pas affiché.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 'Callback for ghostTab getVisible Sub scbGhostTabVisible(control As IRibbonControl, ByRef returnedVal) returnedVal = False 'insérer ici le code ou l'appel de procédure à exécuter à l'ouverture de la présentation. MsgBox "Coucou" End Sub
Bien sûr, en lieu et place de la ligne MsgBox ... on peut écrire ce qu'on veut, ça s'exécute.
Cordialement,
pgz
Pour télécharger la présentation : OpenEventPPT.rar
Partager