Excel에서 PowerPoint 2010으로 크기가 조정 된 그림 내보내기

Question

Excel의 그림을 새로운 PowerPoint 프레젠테이션으로 복사하는 코드를 만들었습니다. 코드는하지 특히, 파워 포인트로 내 보낸 사진은 내가이 문제를 어떻게 해결할 수 2010

에 대한 .pptx에서 크기가 조정되지 않습니다 MS 오피스 2010 MS 오피스 2016 잘 작동하지만 ?

With PPApp.ActiveWindow.Selection.ShapeRange 

시도 :

With PPPres.Slides(x).Shapes(y) 

이

Application.Goto Reference:="Full_Account_Performance" 
    Application.CutCopyMode = False 
    Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture 

    PPPres.Slides(x).Shapes.PasteSpecial 

    On Error Resume Next     
    With PPApp.ActiveWindow.Selection.ShapeRange 
     .ScaleHeight 0.435, msoFalse, msoScaleFromTopLeft 
     'Powerpoint 2010 ingnors it... but in 2016 it is fine 
     .Left = 10 
     .Top = 55 
    End With