Copy and paste chart as picture in different locations on same sheet

hazaoc

New Member
Joined
Mar 6, 2012
Messages
13
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:

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.
 

Some videos you may like

Excel Facts

Difference between two dates
Secret function! Use =DATEDIF(A2,B2,"Y")&" years"&=DATEDIF(A2,B2,"YM")&" months"&=DATEDIF(A2,B2,"MD")&" days"

Watch MrExcel Video

Forum statistics

Threads
1,108,984
Messages
5,526,060
Members
409,682
Latest member
HisHailo

This Week's Hot Topics

Top