Convertir graphiques avec liaison en image

[athos7776]

Bonjour,

Voici mon soucis. J'ai plusieurs présentation PowerPoint avec des graphiques qui sont liés à des graphiques dans certains classeurs Excel. Pour mon usage personnel, ça se passe à merveille. À chaque mois, je n'ai qu'à changer les données dans mes fichiers Excel et ensuite tous mes graphiques se mettent à jour lorsque j'ouvre mes fichiers PPT.

Par contre, ces données doivent être publiés à l'externe et on ne veut pas que les autres départements aient accès aux données directement, question qu'ils n'ayent pas jouer dans les données d'origine. Par contre, l'option du collage spécial du graphique en image métafichier amélioré est une très bonne alternative. Je n'ai qu'à enregistrer la présentation PPT dans un nom différent et dans un dossier différent et à remplacer les graphiques avec liaison par des images métafichiers améliorés. Cependant, j'aimerais que le tout se fasse par une macro... Vous avez une idée comment je peux faire ça?

Je connais VBA, mais seulement à partir d'Excel.

[Philippe JOCHMANS]

Bonjour

Regardes cette discussion : http://www.developpez.net/forums/d66...el-powerpoint/

Philippe

[athos7776]

Salut Philippe,

Merci pour ta réponse. Par contre, moi ce qui m'intéresse particulièrement c'est de pouvoir convertir (copier/coller) mes graphiques dans mes présentations Powerpoint en image métafichier amélioré. Bien entendu, il suffirait de faire une boucle pour que ça copie/colle le tout automatiquement.

Voici un code que j'ai trouvé sur Internet, mais il ne semble pas fonctionner et je ne sais pas pourquoi.

Code :

1
2
3
4
5
6
7
8
9
Dim myChart As PowerPoint.Shape
 Set myChart = ActivePresentation.Slides(ActiveWindow.Selection.SlideRange(1).SlideIndex).Shapes.Paste(1)
 myChart.Copy
 myChart.Delete
 
Dim myEMF As PowerPoint.Shape
 Set myEMF = ActivePresentation.Slides(ActiveWindow.Selection.SlideRange(1).SlideIndex).Shapes.PasteSpecial(ppPasteEnhancedMetafile).Item(1)
 myEMF.Left = 0
 myEMF.Top = 0

Merci pour votre aide

[Philippe JOCHMANS]

Bonjour

Tel quel, ce code ne fonctionnera pas.

Est-ce qu'il y avait autre chose avec ? Comme un parcours des diapositives ?

Philippe

[athos7776]

Non, je n'ai rien trouvé d'autre. Le code bloque à set mychart... Pourtant, en lisant le code, tout semble logique. Je ne comprends pas.

[Philippe JOCHMANS]

Re

Si le code est tel quel c'est normal, il faut qu'il soit dans une routine (Sub) pour fonctionner.

Philippe