Bonjour,
j'ai un petit souci
J'essaye de mettre à jour des graphiques de Powerpoint, que j'ai copier/coller a partir d'Excel (donc normalement il y a les liens)
Je voudrais maintenant mettre à jour ces graphiques.
Pour cela, j'ai pris une macro qu'avais écrit bbil :
Le problème est que la macro déja s'arrete sur la ligne en gras, en me disant
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 Sub UpdatePpt() Dim ppt As PowerPoint.Application Set ppt = CreateObject("PowerPoint.Application") Dim Pres As PowerPoint.Presentation Set Pres = ppt.Presentations.Open(Filename:="C:\SR Handling.ppt") Pres.UpdateLinks End Sub
Déja je comprend pas trop d'ou ça vient, mais je me dis qu'il faut peut etre que je sélectionne une Slide, meme si je pense pas qu ele fond vienne de la.presentations(unknown number) : invalid request.
Pour info, j'ai bien activé les bibliothèques de Powerpoint hein
Pour la suite, pour les mettre à jour les graphiques, j'ai trouvé cette macro :
qui permet de mettre à jour les graphique dans le premier slide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 For Each sh In ActivePresentation.Slides(1).Shapes If sh.Type = msoLinkedOLEObject Then With sh.LinkFormat .Update End With End If Next
Le soucis pour moi est que ma présentation contient 21 Slides, donc ma question c'est : comment boucler sur les slides ?
Merci beaucoup pour votre aide, par avance.
Partager