bonjour,
Actuellement je crée une macro qui boucle en foreach pour copier les graphiques de ma feuille active et les collent dans un powerpoint ( 1 graph-1 diapo)
j'obtiens une erreur par moment sur la ligne en gras
il me met une erreur 1004 " Erreur définie par l'application ou l'objet" mais ce qui est bizarre c'est que j'ai 3 graphiques, 2 graphiques fonctionnent bien et le 3e ne se colle pas ..
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 Index = 3 Dim Sht As Worksheet For Each MonGraph In ActiveSheet.ChartObjects MonGraph.Copy Pres.Slides(Index).Shapes.PasteSpecial (ppPasteBitmap) nbshpe = Pres.Slides(Index).Shapes.Count With Pres.Slides(Index).Shapes(nbshpe) .Left = 450 .Top = 100 .Width = 300 .Height = 300 End With Index = Index + 1 Next MonGraph
je ne parviens pas à résoudre ce petit problème .
j'ai essaye de mettre un
et
Code : Sélectionner tout - Visualiser dans une fenêtre à part Range("MonGraph").Copy
mais dans ce cas il n'en copie aucun ....
Code : Sélectionner tout - Visualiser dans une fenêtre à part Range(MonGraph).Copy
PS : je remercie JoeLeVrai pour son aide précédemment donnée pour m'avoir aiguiller pour établir ce bout de code
Merci à vous
Partager