Hi guys...i'm quite new to macro programming and need some help here. I have created a macro button on my spreadsheet to copy all the charts in my spreadsheet to a new microsoft word file.

the problem i have is when the charts are copied to the microsoft word file, all the charts are "joined" together as a single image. how do i paste those charts as individual image on microsoft word?

and also, let say if i have 1 of the charts on my spreadsheet which have no trendline/data, i don't want it to be pasted on the microsoft word. how do i do it?(meaning if i click on the macro button, only charts with trendline will be copied to the microsoft word)

below are my code..and also the sample excel file

Dim wd As New Word.Application
Dim doc As Word.Document

Set doc = wd.Documents.Add
wd.Visible = True

ActiveSheet.ChartObjects("Chart 1").Activate
ActiveSheet.Shapes.Range(Array("Chart 1", "Chart 2")).Select
Selection.Copy


wd.Selection.PasteSpecial _
Link:=False, _
DataType:=wdPasteEnhancedMetafile, _
Placement:=wdInLine, _
DisplayAsIcon:=False
haaa.xlsm