Copy - Paste Special query

[Sim85]

Hi there,

I have a standard template in PowerPoint (A4 sized) which I populate with a series of tables and charts generated in Excel. I tend to copy then paste special to create an excel linked object which is fine.

The problem is that when I paste the item PowerPoint tends to resize it automatically, depending on the size of the object in Excel (a small table might copy through at 100%, a larger graph at 33%). Now I can resize it manually in PowerPoint, however I'm doing this multiple times and would prefer it to paste the chart at 50% of the original size every time (this also ensures font sizes remain the same throughout the ppt doc).

This may seem like a wee bit of an odd question but a solution would make my life a lot easier! Thanks in advance.

Sim

 

[Sektor]

Change sheet and chart names accordingly.

[COLOR="Blue"]Sub[/COLOR] ChangeChartSize()

    [COLOR="Blue"]With[/COLOR] Sheets("Sheet1").Shapes("Chart 1")
        .Width = .Width / 2
        .Height = .Height / 2
    [COLOR="Blue"]End[/COLOR] [COLOR="Blue"]With[/COLOR]
    
[COLOR="Blue"]End[/COLOR] [COLOR="Blue"]Sub[/COLOR]

 

[Sim85]

Thanks Sektor,

I'm not super-techy when it comes to coding within Excel. Presumably I have to do this in the VBA in excel? To be honest I'm not entirely sure where to input the code.

Also will this work for every graph and table once I've inserted the code in the appropriate place?

If I could get a slightly more step-by-step guide that would be most appreciated.