Hi
Thank you in advance for any help with this one.
To put things into context, the spreadsheet as a whole filters a number of pivot tables by 'manager name' and this updates some data which updates a chart in five different sheets. This chart is then copy and pasted as a picture in, currently, a specific cell in each sheet and the process loops for a new manager name until finish.
The only issue I have is that the pasted pictures (charts) all overlap slightly (shifting slightly down and right for each iteration) given they are all pasted on the same cell.
I have tried a few ways to resolve this but to no avail.
I would like each chart, which is about 8 cells in length, to be pasted 8/9/x cells below the last paste. So chart paste 1 - cell T1, chart paste 2 - T8, chart paste 3 - T16.
Ideally I would like to paste 10 charts down and then shift across a couple of cells e.g. W1 and do another 10 and then across to Z1 and so on.
The current code below:
If you need the full code let me know but it shouldnt be required.
Thank you in advance for any help with this one.
To put things into context, the spreadsheet as a whole filters a number of pivot tables by 'manager name' and this updates some data which updates a chart in five different sheets. This chart is then copy and pasted as a picture in, currently, a specific cell in each sheet and the process loops for a new manager name until finish.
The only issue I have is that the pasted pictures (charts) all overlap slightly (shifting slightly down and right for each iteration) given they are all pasted on the same cell.
I have tried a few ways to resolve this but to no avail.
I would like each chart, which is about 8 cells in length, to be pasted 8/9/x cells below the last paste. So chart paste 1 - cell T1, chart paste 2 - T8, chart paste 3 - T16.
Ideally I would like to paste 10 charts down and then shift across a couple of cells e.g. W1 and do another 10 and then across to Z1 and so on.
The current code below:
Code:
Sheets("L").Select
ActiveSheet.ChartObjects("Chart 2").Activate
ActiveChart.ChartArea.Copy
Range("T2").Select
ActiveSheet.Pictures.Paste.Select
Sheets("LM").Select
ActiveSheet.ChartObjects("Chart 2").Activate
ActiveChart.PlotArea.Select
ActiveChart.ChartArea.Copy
Range("T2").Select
ActiveSheet.Pictures.Paste.Select
Sheets("M").Select
ActiveSheet.ChartObjects("Chart 2").Activate
ActiveChart.PlotArea.Select
ActiveChart.ChartArea.Copy
Range("T2").Select
ActiveSheet.Pictures.Paste.Select
Sheets("MH").Select
ActiveSheet.ChartObjects("Chart 2").Activate
ActiveChart.PlotArea.Select
ActiveChart.ChartArea.Copy
Range("T2").Select
ActiveSheet.Pictures.Paste.Select
Sheets("H").Select
ActiveSheet.ChartObjects("Chart 2").Activate
ActiveChart.PlotArea.Select
ActiveChart.ChartArea.Copy
Range("T2").Select
ActiveSheet.Pictures.Paste.Select
If you need the full code let me know but it shouldnt be required.