Copier/coller des graphiques depuis Excel vers power point

Bonjour,

Je cherche à créer une macro qui va automatiquement copier et coller des graphs d'un fichier excel vers un power point. Pour cela j'ai créé une macro qui pour l'instant copie et colle les graphs dans un power point mais toujours sur la même diapositive. Je n'arrive pas a trouver comment le coller dans une slide bien spécifique. Egalement comment ajouter automatiquement le nombre de slides dont j'ai besoin.

Merci d'avance si vous avez quelques suggestions

Sub copy_graph2()

'demande à l'utilisateur de quel graph à quel graph il veut copier/coller

lmsn = InputBox("Lower MSN?")

umsn = InputBox("Upper MSN?")

'ouverture du ppt

Dim PPT As Object

Set PPT = CreateObject("PowerPoint.Application")

PPT.Visible = True

PPT.Presentations.Open Filename:="C:\Users\ng4d67B\Desktop\testVBA.pptx"

Set PPApp = GetObject(, "Powerpoint.Application")

Set PPPres = PPApp.activepresentation

Set PPSlide = PPPres.slides _

(PPApp.ActiveWindow.Selection.SlideRange.SlideIndex)

'boucle pour créer copier les graph et les coller dans le ppt

For i1 = lmsn To umsn

Nom_graph = "MSN" & i1

' copier

ActiveSheet.ChartObjects(Nom_graph).Activate

ActiveChart.ChartArea.Copy

' coller

PPSlide.Shapes.Paste.Select

' placer le graph au centre de la slide

PPApp.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, True

PPApp.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, True

Next

End Sub

Bonjour,

Est-ce que quelqu'un connais un site ou je peux trouver des cours détaillés sur comment automatiser un powerpoint. Dans excel je me débrouille un peu et on trouve beaucoup d'informations sur le net. Par contre je ne trouve pas grand chose sur l'automatisation de powerpoint depuis excel...

Cela me permettra de pencher un peu plus sur le sujet et de pas trop vous déranger car je ne suis pas encore au bout de mon projet.

Merci d'avance

Rechercher des sujets similaires à "copier coller graphiques power point"