Hi,
I'm trying to copy a range of cells from one worksheet and paste them into a chart in another worksheet.
However it keeps coming up with the same error which is:
Run-time error '-2147024809 (80070057)':
The item with the specified name wasn't found.
The Code stop at this piece of code 'ActiveSheet.ChartObjects("DAILY").Activate'.
The cells I am copying are in tab 'Div Dashboard' and the Chart (and tab) is called 'Daily'
Does anyone have any ideas why it doesn't work?
Alterntiavely, I can get the code to create the Chart, but can't seem to re-size it, so the picture ends up landscape instead of more squared.
Full Code Below:
Sheets("Div Dashboard").Select
Set oRange = Range("B2:AG67")
oRange.CopyPicture xlScreen, XlPictureAppearance.xlPrinter
Range("AH43").Select
ActiveWindow.SmallScroll Down:=27
Range("A2:AG67").Select
Range("AG67").Activate
Selection.Copy
Sheets("DAILY").Select
ActiveSheet.ChartObjects("DAILY").Activate
ActiveChart.Pictures.Paste.Select
Sheets("Div Dashboard").Select
Range("AH25").Select
Application.CutCopyMode = False
oCht.Paste ([XlPictureAppearance.xlPrinter])
Thanks
Paul
Bookmarks