Question : Graphiques de copie d'Excel 2007 pour exprimer 2007 using VBA

Salut Folks

I ont un bilan d'Excel qui crée quelques graphiques et je veux automatiser un processus de les vider dans un document de mot sauvant alors ce document de mot. le

I ont le code qui fait ceci déjà et cela fonctionne bien, problème est que quand j'essaye d'écrire mon deuxième diagramme il remplace le diagramme précédent que j'ai collé dans n'importe quelle aide serais grand, Iv a obtenu ma pâte du below

'de code dans le premier chart
réglé oPara3 = oDoc.Content.Paragraphs.Add (oDoc.Bookmarks (« \ endofdoc »).
du Range) oPara3.Range.Text =
de « diagramme numéro 1 " copie d'oPara3.Format.SpaceAfter = de 6
oPara3.Range.InsertParagraphAfter
'que le diagramme d'Excel
couvre (« ChartNumber1 »). Aspect du _
de Select
ActiveChart.CopyPicture : =xlScreen, classer : =xlScreen, composer : =xlPicture
'paste dans le document
oPara3.Range.Paste

'Paste de mot dans le deuxième chart
réglé oPara4 = oDoc.Content.Paragraphs.Add (oDoc.Bookmarks ( » \ endofdoc ").
du Range) oPara4.Range.Text =
de « 2ème diagramme " feuilles d'oPara4.Format.SpaceAfter = de 6
oPara4.Range.InsertParagraphAfter
(« ChartNumber2 »). Aspect du _
de Select
ActiveChart.CopyPicture : =xlScreen, classer : =xlScreen, composer : =xlPicture
     oPara4.Range.Paste
    class= de

Réponse : Graphiques de copie d'Excel 2007 pour exprimer 2007 using VBA

le soultion est d'employer
  oPara4.Format.SpaceAfter = 6
    oPara4.Range.InsertParagraphAfter
   
après avoir collé le diagramme dedans.