Can anyone help me with this?
I have code that is setup to select and copy several graphs and paste them as a picture in another workbook. When I step through the code with the editor I can see that the code selects all of the graphs, but copies an individual cell instead. I get a 1004 error when the code reaches the paste section of the code. I assume this is because the code has copied a cell instead of something that can be pasted as a picture. I copied this code from another workbook that does the exact same thing and it works perfectly.
Here is the code.
I have code that is setup to select and copy several graphs and paste them as a picture in another workbook. When I step through the code with the editor I can see that the code selects all of the graphs, but copies an individual cell instead. I get a 1004 error when the code reaches the paste section of the code. I assume this is because the code has copied a cell instead of something that can be pasted as a picture. I copied this code from another workbook that does the exact same thing and it works perfectly.
Here is the code.
HTML:
wB.Activate
Sheets.Add(After:=Sheets(Sheets.Count)).Name = "AIPC"
Windows("LTL SHIPMENT HISTORY DATA WORKSHEET").Activate
Application.Run "'LTL SHIPMENT HISTORY DATA WORKSHEET.xlsm'!AIPC"
ThisWorkbook.ActiveSheet.Shapes.Range(Array("A", "B", "C", "D", "E")).Select
Selection.Copy
wB.Activate
Sheets("AIPC").Select
Range("A3").Select
ActiveSheet.PasteSpecial Format:="Picture (JPEG)", Link:=False, _
DisplayAsIcon:=False
