Discussion :

[DevJunior59]

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

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

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 ..
je ne parviens pas à résoudre ce petit problème .
j'ai essaye de mettre un

Code :

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

 Range("MonGraph").Copy

et

Code :

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

 Range(MonGraph).Copy

mais dans ce cas il n'en copie aucun ....

PS : je remercie JoeLeVrai pour son aide précédemment donnée pour m'avoir aiguiller pour établir ce bout de code

Merci à vous

[DevJunior59]

salut,

Il n'y a personne pour m'éclairer ?

[Patrice740]

Il n'y a personne pour m'éclairer ?

Si tu ne mets qu'une partie du code, sans boule de cristal, l'analyse reste superficielle donc pas de réponse certaine.