Bonjour,

Dans le cadre d'un projet, j'ai besoin d'ajouter un chart (statistique) durant le diaporama (pour après le mettre à jour chaque seconde).
J'ai très bien réussi à utiliser la méthode AddChart dans une macro en mode hors diapo :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
     Dim oSl As PowerPoint.Slide
     Dim oSh As PowerPoint.Shape
     Dim numSlide As Integer
 
     numSlide = ActiveWindow.View.Slide.SlideIndex
 
     'Selection de la slide parcourue
     Set oSl = ActivePresentation.Slides(numSlide)
     'Création du graph
     Set oSh = oSl.Shapes.AddChart(xl3DPie, 220, 150, 550, 350)
Mais aucun moyen de faire fonctionner ça durant un diaporama. L'erreur est :
"Erreur d'exécution '-2147467259 (80004005)': La méthode 'AddChart' de l'objet 'Shapes' a échoué"
Le pire, c'est que si dans la macro j'active la fenêtre powerpoint juste avant la fonction et ré-active le diapo juste après, cela fonctionne, mais pour une présentation professionnelle je ne peux pas laisser le fait que l'on voye le diapo quitter puis revenir.
De plus, l'ajout d'autres shapes comme addTextBox ou AddPicture fonctionne durant le diaporama ...

Avez vous une idée ou est-ce un bug ?


Merci,
Julien