Frage : Kopierendiagramme von Excel 2007, zum 2007 using VBA abzufassen

Hallo haben Folks

I einen Excel-Verteilungsbogen, der einige Diagramme verursacht und ich möchte einen Prozess des Dumpings sie in ein Wortdokument automatisieren, das dann dieses Wortdokument sichert.

I haben den Code, der dies bereits tut und es gut funktioniert, Problem ist, dass, wenn ich versuche, mein zweites Diagramm einzutragen, es das vorhergehende Diagramm ersetzt, das ich in jeder möglicher Hilfe sein groß klebte, Iv erhielt meine Code below

' Paste im ersten eingestellten chart
oPara3 = oDoc.Content.Paragraphs.Add (oDoc.Bookmarks („\ endofdoc“). Range)
oPara3.Range.Text = „Diagramm Nr. 1 "
oPara3.Format.SpaceAfter = 6
oPara3.Range.InsertParagraphAfter
' Kopie, die das Diagramm von Excel
bedeckt („ChartNumber1“). Select
ActiveChart.CopyPicture _
Aussehen: =xlScreen, sortieren: =xlScreen, formatieren: =xlPicture
'paste in Wort document
oPara3.Range.Paste

'Paste im zweiten chart
gesetzt oPara4 = oDoc.Content.Paragraphs.Add (oDoc.Bookmarks (“ \ endofdoc "). Range)
oPara4.Range.Text = „2. Diagramm "
oPara4.Format.SpaceAfter = 6
oPara4.Range.InsertParagraphAfter
Blätter („ChartNumber2“). Select
ActiveChart.CopyPicture _
Aussehen: =xlScreen, sortieren: =xlScreen, formatieren: =xlPicture
     oPara4.Range.Paste
   

Antwort : Kopierendiagramme von Excel 2007, zum 2007 using VBA abzufassen

soultion ist zu verwenden
  oPara4.Format.SpaceAfter = 6
    oPara4.Range.InsertParagraphAfter
   
nachdem innen das Diagramm geklebt worden ist.