copier/coller des graphiques depuis excel vers power point

Y compris Power BI, Power Query et toute autre question en lien avec Excel
r
reivax
Nouveau venu
Nouveau venu
Messages : 6
Inscrit le : 29 avril 2015
Version d'Excel : 2010 FR

Message par reivax » 19 mai 2015, 13:58

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
r
reivax
Nouveau venu
Nouveau venu
Messages : 6
Inscrit le : 29 avril 2015
Version d'Excel : 2010 FR

Message par reivax » 20 mai 2015, 12:13

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
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message