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
Bookmarks