Paste Special Graph from another worksheet

Please please, can someone help me with the below.

I am trying to paste a graph into my worksheet, in my macro, from another worksheet and then resize it to quite small. If I simply just paste it, then resizing the chart doesn't just shrink the picture, it distorts so that the x -axis labels do not fit.

The best way to just shrink the chart is to paste special. However, you can only paste special manually if you open the worksheet in a completely new excel application.

I think this is affecting my marco, as when I do this manually, the chart shrinks fine, when I do it using the below:

ActiveSheet.Shapes("Square 1").Select
ActiveSheet.PasteSpecial Format:="Picture (Enhanced Metafile)", Link:=False _
, DisplayAsIcon:=False

Selection.ShapeRange.ScaleHeight 0.32, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.ScaleWidth 0.28, msoFalse, msoScaleFromTopLeft


as it isn't opening a new excel application, the axis doesn't fit again.

Is there anyway around this, or how can I ask my macro to open a new worksheet in a new excel application, and copy and paste special from there.

Thanks

I think it might have something to do with this line:

ActiveChart.CopyPicture Appearance:=xlScreen, Format:=xlPicture