Вопрос : Копируя диаграммы от Эксел 2007 для того чтобы сформулировать 2007 using VBA

Hi Folks

I имеет электронная таблица Эксел создает немного диаграмм и я хочу автоматизировать процесс сбрасывать их в документ слова после этого сохраняя тот документ слова.

I имеет Кодего делает это уже и оно работает наилучшим образом, проблему что когда я пытаю вписать мою вторую диаграмму он заменяет ть ранее диаграмму, котор я наклеил в любой помощи был бы больш, Iv получило мой затир below

' Кодего в первом установленном chart
oPara3 = oDoc.Content.Paragraphs.Add (oDoc.Bookmarks («\ endofdoc»).
Range) oPara3.Range.Text = «
диаграммы 1 " экземпляр oPara3.Format.SpaceAfter = 6
oPara3.Range.InsertParagraphAfter
', котор диаграмма от Excel
покрывает («ChartNumber1»). Возникновение _
Select
ActiveChart.CopyPicture: =xlScreen, определите размер: =xlScreen, форматируйте: =xlPicture
'paste в document
oPara3.Range.Paste

'Paste слова в втором chart
установленном oPara4 = oDoc.Content.Paragraphs.Add (oDoc.Bookmarks (» \ endofdoc ").
Range) oPara4.Range.Text = «
2-ой диаграммы " листы oPara4.Format.SpaceAfter = 6
oPara4.Range.InsertParagraphAfter
(«ChartNumber2»). Возникновение _
Select
ActiveChart.CopyPicture: =xlScreen, определите размер: =xlScreen, форматируйте: =xlPicture
     oPara4.Range.Paste
    class=

Ответ : Копируя диаграммы от Эксел 2007 для того чтобы сформулировать 2007 using VBA

soultion должно использовать
  oPara4.Format.SpaceAfter = 6
    oPara4.Range.InsertParagraphAfter
   
после наклеивать диаграмму внутри.