bonsoir Celeda
j'espere que cette macro répondra à ta demande
la procedure boucle sur les 3 premiers graphiques de la feuille active et les colle/repositionne dans le 28eme slide PowerPoint
c'est un peu bricolé et tu auras peux etre quelques adaptations à apporter
Sub insertionGraphiqueDansPowerPoint_V02()
'necessite d'activer la reference Microsoft Powerpoint Object Library
Dim PPT As PowerPoint.Application
Dim PptDoc As PowerPoint.Presentation
Dim NbShpe As Byte, i As Byte
Dim EspaceH As Single, Largeur As Single, Hauteur As Single, posV As Single
Set PPT = CreateObject("Powerpoint.Application") 'creation session PowerPoint
PPT.Visible = True
Set PptDoc = PPT.Presentations.Open("C:\Celeda0501.ppt") 'ouverture fichier ppt
Largeur = 350 'largeur shapes collé dans powerpoint
Hauteur = 300 'hauteur shapes collé dans powerpoint
EspaceH = (PptDoc.PageSetup.SlideWidth - (Largeur * 2)) / 3
posV = 50 'position verticale dans le slide
For i = 1 To 3 'boucle sur les 3 premiers graphiques de la feuille active
ActiveSheet.ChartObjects(i).Copy 'copie du Graphique
PptDoc.Slides(28).Shapes.Paste 'collage dans le Slide du document Power Point
'compte le nombre de shapes dans le slide
'le dernier objet inséré correspond à l'index le plus élevé
NbShpe = PptDoc.Slides(3).Shapes.Count
If i < 3 Then 'personnalisation des 2 premiers collages
With PptDoc.Slides(28).Shapes(NbShpe)
.Name = "monGraph" & i 'personnalise le nom de l'image inseree
.Left = EspaceH + ((Largeur + EspaceH) * (i - 1))
.Top = posV 'position verticale dans le slide
.Height = Hauteur 'hauteur image
.Width = Largeur 'largeur image
End With
Else 'personnalisation du 3eme collage
With PptDoc.Slides(28).Shapes(NbShpe)
.Name = "monGraph" & i 'personnalise le nom de l'image inseree
.Left = (PptDoc.PageSetup.SlideWidth - Largeur) / 2
.Top = Hauteur 'position verticale dans le slide
.Height = Hauteur 'hauteur image
.Width = Largeur 'largeur image
End With
End If
Next i
'PptDoc.Save 'sauvegarder les modification
'PptDoc.Close 'fermer le document
'PPT.Quit 'fer l'application powerPoint
End Sub
je te souhaite une tres bonne soirée
MichelXld