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.
 

Excel Facts

How to fill five years of quarters?
Type 1Q-2023 in a cell. Grab the fill handle and drag down or right. After 4Q-2023, Excel will jump to 1Q-2024. Dash can be any character.

Forum statistics

Threads
1,215,517
Messages
6,125,288
Members
449,218
Latest member
Excel Master

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top