Question : How to copy multiple charts from excel in word

I have been trying to write a macro, which generates charts . Say there are five to six excel files that have two sheets each having two charts and an excel range (bin and frequency ) in two columns.
I want to open a word document, open excel workbook one by one , copy chart as well as bin/frequency cplumns and paste it to word . then move to second sheet of same workbook copy chart on this sheet along with bin/frequency, append it to the word document having previous chart. Then move to next excell sheet and do the same. I have written a code below but it overlaps all the charts above each other and it can't copy range(bin/frequency ) columns

Below code works, but overlaps all the charts.
Thanks in advance for the help
Best regards,
amit sharma

Code Snippet:

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

           
           
             Set wrdApp = CreateObject("Word.Application")
 wrdApp.Visible = True
 Set wrdDoc = wrdApp.Documents.Add
 With wrdDoc
 kkk=1
for kkk=1 to sheetscounts        
      Workbooks("" & kkk & "").Sheets("RAW").ChartObjects("Chart 1").Copy           
   .content.Paste Workbooks("" & kkk & "").Sheets("RAW").ChartObjects("Chart 1")
jj=1
for jj=1 to 25    
.content.insertparagraphafter
 next jj   
     Workbooks("" & kkk & "").Sheets("FILTERED").ChartObjects("Chart 1").Copy
.content.Paste Workbooks("" & kkk & "").Sheets("FILTERED").ChartObjects("Chart 1")
.content.insertparagraphafter
jj=1
for jj=1 to 25    
.content.insertparagraphafter
 next jj   
 
next kkk
 .SaveAs ("D:\doc5.doc")
 .Close
 End With
  wrdApp.Quit
 Set wrdDoc = Nothing
 Set wrdApp = Nothing
           
         

Open in New Window Select All

Answer : How to copy multiple charts from excel in word

Hi amitshar131,

Here follows my suggestion.
You should change the .Copy method of the chartobject to .CopyPicture
which means you will not embed the complete worksheet but only a picture of the chart.

To control the position in the word doc you should introduce a variable for a word range, wrdRng
Replace the lines where you paste (8 and 14) by these three lines
Set wrdRng = .content
wrdRng.Collapse Direction:= 0
wrdRng.Paste

The explanation to this is that the range object (in Word) is an area of the document. When you set the range equals .content, the range refers to the whole document area. Then you run the Collapse method with direction:=0 you change the range object to represent only the end position of the content. Then finally you run the paste method on the range object. This should give the same result as manually pasting with the position of the insertion point on the last paragraph.

I would recommend inserting pagebreaks instead of a lot of paragraphs, to separate the chart pictures from each other. Please let me know if you would like me to show how to do that.

Now I leave it to you to evaluate my suggested solution and come back if you need help to make it work.

Kind regards,
Stellan