Discussion :

[ryryyz]

Bonjour,

J'ai un soucis dans mon code Vba. Je travaille sur une macro Excel. Je veux ajouter un slide à un powerpoint déja existant. Le document Excel contient déja une macro me générant ce powerpoint.
J'essaye donc de trouver le code pour ajouter ce slide et y insérer un graphique se trouvant dans la feuille "Evolution" de ce document excel,
mais impossible :s..

Quelqu'un aurait-il une solution?

Thanks

[Menhir]

http://www.developpez.net/forums/d15...werpoint-pptm/

[ryryyz]

Rebonjour,

Merci de m'avoir répondu mais ça ne marche toujours pas.

J'ai essayé avec 3 codes différents mais ça ne marche pas. Il y a une erreur ou alors la macro ne se lance meme pas j'ai l'impression :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
'ThisWorkbook.Sheets("Evolution").Activate                           'active la feuille Evolution
    'Dim myShapeRange As PowerPoint.Shape                                'Image ...
    'myShapeRange.CopyPicture                                            'Copie de l'image
    'countShapes = ppt.Presentations(fileName).Slides(i).Shapes.count
    'ppt.Presentations(fileName).Slides(8).Shapes.PasteSpecial (ppPasteEnhancedMetafile)   'colle au forma spécial
    'countShapes = ppt.Presentations(fileName).Slides(i).Shapes.count
 
 
 
'--- Ajoute un nouveau slide et le positionner en 2eme position
    Set Diapo = ppt.Presentations(fileName).Slides.Add(Index:=9, Layout:=ppLayoutBlank)
 
    ThisWorkbook.Sheets("Evolution").Select
    ActiveSheet.Unprotect
    ActiveSheet.ChartObjects("Graphique 8").Activate
    ThisWorkbook.Sheets("Evolution").ChartObjects("Graphique 8").Copy
    ActiveChart.ChartArea.Copy
   'Et on le colle dans la première diapositive de la présentation :
   ppt.Presentations(fileName).Slides(9).Shapes.Paste
 
 
 
 
 
   ThisWorkbook.Sheets("Evolution").Unprotect
   ' Copie du graphique
   Sheets("Accueil").ChartObjects("Graphique 8").ChartArea.Copy
   Dim graphique As Chart
   Set graphique = Sheets("Evolution").ChartObjects(1).Chart
   Sheets("Accueil").ChartObjects(1).ChartArea.Copy
   graphique.ChartArea.Copy
   ppt.Presentations(fileName).Slides(1).Shapes.Paste

Merci d'avance

[Menhir]

J'ai essayé avec 3 codes différents mais ça ne marche pas.

Quelques questions dont la réponse ma semble évidente mais on ne sait jamais...
As-tu remarqué que dans le premier code tout est mis en commentaire ?
As-tu adapté ces codes aux noms des objets de ton cas (nom d'onglet, nom de graphique, indices, etc.) ?

Il y a une erreur

Quelle erreur ? Sur quelle ligne ?

[ryryyz]

hahaha oui c'était fait exprès car je testais plusieurs bout de code.
Je pense aussi que mon code est adapté à mon sujet.

J'ai réussi à insérer un 9ème slide comme voulu avec la commande suivante: ppt.Presentations(fileName).Slides.Add 9, 1

Mais je n'arrive toujours pas à prendre un graphique contenu dans une feuille de mon document excel, pour le coller dans ce nouveau slide.

Avez-vous une idée de la solution svp? Merci

[Menhir]

Je pense aussi que mon code est adapté à mon sujet.

Quand je vois que tu as mis comme code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Accueil").ChartObjects("Graphique 8").ChartArea.Copy

Je trouve quand même que c'est une étonnante coïncidence que tu ais le même nom d'onglet et de graphique que le demandeur vers qui j'ai proposé le lien...