图片 Copy到PPt的指定页，能指定像素比如：800 * 600？该怎么解决

图片 Copy到PPt的指定页，能指定像素比如：800 * 600？
myPpt.ActivePresentation.Slides(Range("G" & i).Value).Shapes.PasteSpecial DataType:=ppPasteEnhancedMetafile
   
With myPpt.ActivePresentation.Slides(Range("G" & i).Value).Shapes(Val(ss(4)))
  .Top = ss(0)
  .Left = ss(1)
  .ScaleHeight Val(ss(2)), msoTrue, msoScaleFromTopLeft
  .ScaleWidth Val(ss(3)), msoTrue, msoScaleFromTopLeft
End With

想要指定像素比如：800 * 600，怎么设置？


------解决方案--------------------------------------------------------
先改好再copy不行吗？