Vraag : Het kopiëren van grafieken van Excel 2007 aan woord 2007 die VBA gebruikt

Hallo heeft Folks

I een spreadsheet van Excel die tot een paar grafieken leidt en ik wil een proces automatiseren om hen die in een woorddocument te dumpen dan dat woorddocument bewaren.

I heeft de code die dit reeds doet en het goed werkt, is het probleem dat wanneer ik probeer om mijn tweede grafiek in te gaan het de vorige grafiek vervangt die ik in Om het even welke hulp heb gekleefd groot zou zijn, kreeg Iv mijn code below
' deeg/>
Geplaatst oPara3 = oDoc.Content.Paragraphs.Add (oDoc.Bookmarks („\ endofdoc“). Range)
oPara3.Range.Text = „Grafiek Nummer 1 "
oPara3.Format.SpaceAfter = 6
oPara3.Range.InsertParagraphAfter
' kopi�ërt de grafiek van/> Bladen Excel
ect
ActiveChart.CopyPicture/>: =xlScreen, rangschik: =xlScreen, formatteer: =xlPicture
'paste in Vastgesteld woord document
oPara3.Range.Paste

'Paste in tweede chart
oPara4 = oDoc.Content.Paragraphs.Add (oDoc.Bookmarks (“ \ endofdoc "). Range)
oPara4.Range.Text = „2de grafiek "
oPara4.Format.SpaceAfter = 6
oPara4.Range.InsertParagra Bladen/>phAfter
ect
ActiveChart.CopyPicture/>: =xlScreen, rangschik: =xlScreen, formatteer: =xlPicture
     oPara4.Range.Paste
   

Antwoord : Het kopiëren van grafieken van Excel 2007 aan woord 2007 die VBA gebruikt

soultion moet gebruiken
  oPara4.Format.SpaceAfter = 6
    oPara4.Range.InsertParagraphAfter
   
na binnen het kleven van de grafiek.